(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "20-Jul-2022 19:56:53" ("compiled on " {DSK}larry>medley>sources>MACHINEINDEPENDENT.;4) "19-Jul-2022 19:04:37" brecompiled changes%: UNSAFE.TO.MODIFY in "FULL 19-Jul-2022 ..." dated "19-Jul-2022 19:04:39") (FILECREATED "20-Jul-2022 19:55:30" {DSK}larry>medley>sources>MACHINEINDEPENDENT.;4 117970 :CHANGES-TO (VARS MACHINEINDEPENDENTCOMS) (FNS UNSAFE.TO.MODIFY) :PREVIOUS-DATE "20-Jul-2022 15:26:15" {DSK}larry>medley>sources>MACHINEINDEPENDENT.;3) LOAD? :D8 (L (2 PRINTFLG 1 LDFLG 0 FILE)) @@ X@l bd` Yg Ig J@Hg `*KKdgdgihJHi #K HAB iJHJH H(158 FILEDATE 136 LOAD 123 FILEDATE 77 FILENAMEFIELD 62 GETPROP 50 GETPROP 39 ROOTFILENAME 19 \LISPERROR 8 FINDFILE) (105 COMPILED 97 Compiled 82 COMPILE.EXT 72 EXTENSION 57 FILE 45 FILEDATES 29 LOADEDFILELST) () FILESLOAD :D8 (L (0 FILES)) @ (10 DOFILESLOAD 5 NLAMBDA.ARGS) NIL () DOFILESLOAD :D8 (L (0 FILES) F 13 *STANDARD-INPUT* F 14 DIRECTORIES F 15 LDFLG F 16 *COMPILED-EXTENSIONS*)  @gg g >W _W0Oi*ghghghgO iWWHKHhHHKLd3@L IgtL g bgLMW "OhLgLgJ M _.OdooLM \dPd3@L CJLIdgOi OgON ONlIh__L h dggh^/dgghdgL\_gOdgLgLL\ RO dl{dl" 217 (T NIL) 160 "-") READ-FILECREATED :D8 (L (0 STREAM)) -@ @j @g @H I(41 SETFILEPTR 31 \MVLIST 26 \PARSE-FILE-HEADER 15 SETFILEPTR 5 GETFILEPTR) (21 RETURN) () DMPHASHA0001A0005 :D8 (L (1 ITEM 0 VAL) F 0 ARRAYNAME) <gAddi3 gAh@ddi3 g@hPh (57 PRINT) (42 QUOTE 21 QUOTE 4 PUTHASH) () DMPHASHA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 7 ARRAYNAME F 8 SI::NLSETQ-VALUE) i@RWg hgWMUgM Ng \ddi3 gLhhh NMg hdcgggN Ng Zddi3 gJhhM[ddi3gK(142 HARRAYPROP 131 HARRAYSIZE 101 MAPHASH 86 PRINT 52 HARRAYPROP 41 HARRAYSIZE 16 EVALV) (187 QUOTE 159 QUOTE 137 OVERFLOW 125 HARRAY 120 CONS 112 :NORMAL 96 DMPHASHA0001A0005 69 QUOTE 47 OVERFLOW 35 HASHARRAY 24 RPAQ 11 DMPHASH) () DMPHASH :D8 (L (0 L) P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 ARRAYNAME F 4 *PROCEED-CASES*) !@d`TJ h(23 DMPHASHA0001) (12 SI::NLSETQ-PROCEED-CASE) () HASHOVERFLOW :D8 (L (0 HARRAY)) v@@1Hg \Hg ZK/dlJdkԽnMMgndNNgl@h Kd0JlJK _nOOn_dOO3 *JlJK_nOOn_dOOK @kK[3&Hg ZlJdk_nO@O?dEHg ZlJK _nOOn_dOOn_dOOYHILHg Hg dH @(370 \COPYHARRAYP 363 REHASH 358 HASHARRAY 353 HARRAYPROP 342 HARRAYPROP 284 FIXR 272 HARRAYPROP 230 HARRAYPROP 208 FNTYP 125 FIXR 103 ERRORX 36 HARRAYPROP 23 HARRAYPROP) (348 EQUIVFN 337 HASHBITSFN 267 NUMKEYS 225 NUMKEYS 90 ERROR 66 ERROR 31 NUMKEYS 18 OVERFLOW 5 HARRAYP) () BKBUFS :D8 (L (1 ID 0 BUFS)) n @h@i 0id I i I HAAi Hi H (105 BKSYSBUF 97 BKLINBUF 90 PRIN1 82 PRIN1 65 SYSBUF 59 BKSYSBUF 54 SYSBUF 47 BKSYSBUF 40 CLEARBUF 32 DOBE 26 PRINTBELLS 19 READP) NIL () CHANGENAME :D8 (L (2 TO 1 FROM 0 FN) F 0 FILEPKGFLG) *@ AB@ P@d @g @(38 MARKASCHANGED 25 EXPRP 13 CHANGENAME1 5 GETD) (33 FNS) () CHNGNMA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 DEF F 1 X F 2 Y F 3 FN) iPQRS (14 CHANGENAME1) (5 NOLINKMESS) () CHNGNM :D8 (L (2 FLG 1 OLD) P 5 SI::*RESETFORMS* P 3 Y P 2 X P 1 DEF I 0 FN) dP@hi bAid Ab@g @g @ YAg@h XBd H A@g \@gL @g Hg AHI=g`hg $FJo@h oHAZ@g H Hg HBSA YghAoid HAhIA @gA Hg@A K(352 /PUT 337 /ADDPROP 324 /PUTD 319 SAVED 308 PRINT 290 GENSYM 277 GETD 264 GETP 251 \DEFINEDP 243 MEMB 238 GETP 214 \APPEND2 193 SI::RESETUNWIND 188 \MVLIST 183 CHNGNMA0001 149 /REMPROP 137 /REMPROP 125 /PUT 111 /DREMOVE 106 GETP 93 /PUTD 86 STKPOS 74 PACK 57 GETD 49 GETP 36 GETP 20 FNCHECK 10 FNCHECK) (344 ALIAS 331 NAMESCHANGED 285 NLAMBDA 259 ALIAS 233 NAMESCHANGED 178 SI::RESETUNWIND 167 NOLINKMESS 162 NOLINKMESS 144 ALIAS 132 NAMESCHANGED 119 NAMESCHANGED 101 NAMESCHANGED 64 -IN- 44 BROKEN 31 ADVISED) ( 300 (was undefined) 221 (not defined) 206 (not found in)) CLBUFS :D8 (L (2 BUF 1 NOTYPEFLG 0 NOCLEARFLG) F 2 READBUF) a @$Ai id Bchi i Ho hIHHI(83 STREQUAL 71 SYSBUF 65 LINBUF 59 SYSBUF 52 LINBUF 34 CLEARBUF 26 DOBE 20 PRINTBELLS 14 READP) (45 CTRLUFLG) ( 78 " ") DEFINE :D8 (L (1 TYPE-IN 0 X)) T@@Jd[oK KgKKgKAgg IHhZH&J(64 FNS.PUTDEF 22 ERROR) (59 LOAD 53 DEFINED 43 LAMBDA 30 FNS) ( 16 "incorrect defining form") FNS.PUTDEF :D8 (L (3 REASON 2 DEFINITION 1 TYPE 0 NAME) F 2 DFNFLG F 3 ADDSPELLFLG F 4 LAMBDASPLST F 5 FILEPKGFLG) /BddTBo Rddi@o @oi CgB @g Bg@g RRiU@ 4@i R)oi @i oi @ S@ @BHI ]S@j B@ ICCg1B@g "oi @i oi @gB U@gC @(299 MARKASCHANGED 284 /PUTPROP 271 LISPXPRIN1 259 LISPXPRIN2 251 LISPXPRIN1 237 GETPROP 211 GETD 203 ADDSPELL 191 XCL::UNDOABLY-SETF-SYMBOL-FUNCTION 177 ADDSPELL 168 SAVEDEF 161 LISPXPRIN1 149 LISPXPRIN2 141 LISPXPRIN1 126 VIRGINFN 117 \DEFINEDP 103 DELDEF 81 HASDEF 69 FIXEDITDATE 54 ERROR 41 UNSAFE.TO.MODIFY 20 ERROR) (293 FNS 278 EXPR 232 EXPR 222 CHANGED 98 FUNCTIONS 90 NLAMBDA 76 FUNCTIONS 61 DEFINED) ( 265 " (but not installed). " 245 "New fns definition for " 155 ". " 135 "New fns definition for " 48 " not redefined" 36 "redefine" 15 "Illegal function definition") EQMEMB :D8 (L (1 Y 0 X)) @A A@AiNIL NIL () EQUALN :D8 (L (2 DEPTH 1 Y 0 X)) q@Al@0@d3A3]@A  @A @B@A AhBkBg@ABdkb dgi @AB (110 EQUALN 87 EQUALN 53 EQP 40 STREQUAL 32 STRINGP 26 EQP) (93 ? 70 ?) () FNCHECKA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FN F 3 SPELLFLG F 4 TAIL F 5 SI::NLSETQ-VALUE F 6 X) 9i@RlF`STg RlF`ST c hc g(43 MISSPELLED? 25 MISSPELLED?) (54 :NORMAL 35 SPELLINGS2 19 GETD 12 USERWORDS) () FNCHECK :D8 (L (3 PROPFLG 1 NOERRORFLG) P 12 *CONDITION-HANDLER-BINDINGS* P 11 SI::*NLSETQFLAG* P 10 *PROCEED-CASES* P 9 SI::NLSETQ-VALUE P 0 X I 4 TAIL I 2 SPELLFLG I 0 FN F 13 *PROCEED-CASES* F 14 *CONDITION-HANDLER-BINDINGS* F 15 ADDSPELLFLG) 4 @d3@@ @g CuAh` `WioW O gOH@Hb@ h__/hgIg@ Z JbW@j @_g OhMdGOiMhMMNg h[ hYNiH@I LiKOm@og g h b(301 ERROR 294 RELSTK 289 STKPOS 277 STKPOS 244 MEMB 216 FILECOMSLST 174 GETP 159 ADDSPELL 143 \DEFINEDP 137 PACK* 107 WHEREIS 78 FNCHECKA0001 30 GETP 15 \DEFINEDP) (284 LOADFROM 272 LOAD 211 BLOCKS 169 FILEGROUP 131 / 124 \ 84 :NORMAL 56 SI::NLSETQ-PROCEED-CASE 46 DWIMFLG 25 EXPR) ( 267 "not a function" 65 (CL:ERROR . SI::NLSETQHANDLER)) FNTYP1 :D8 (L (0 X)) `@` d (24 FNTYP 17 GETHASH) (12 CLISPARRAY 4 CLISPARRAY) () LCSKIP :D8 (L (1 FLG 0 FN)) O l )Xdg@AhdH g o@ h@AhdHlI(62 ERROR 49 GETPROP 38 BINSKIP 17 READ 7 PEEKCCODE) (44 CODEREADER 24 BINARY) ( 56 "Bad or incompatible compiled function") MAPRINTA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 FILE F 1 LST F 2 PFN F 3 SEP F 4 LSPXPRNTFLG F 5 LISPXPRINTFLG F 6 LEFT F 7 RIGHT) gTc RgcSgcVQ9"P "oP QPlRWdP hSP QPlRQcȰ(83 LISPXPRIN1 74 LISPXPRIN1 55 LISPXPRIN1 38 LISPXPRIN1) (20 % 10 LISPXPRIN1) ( 49 " . ") MAPRINT :D8 (P 0 SI::*RESETFORMS* I 6 LSPXPRNTFLG I 5 PFN I 4 SEP I 3 RIGHT I 2 LEFT I 1 FILE I 0 LST F 1 LISPXPRINTFLG) &gQhg $(31 SI::RESETUNWIND 26 \MVLIST 21 MAPRINTA0001) (16 SI::RESETUNWIND 4 LISPXPRINTFLG) () MKLIST :D8 (L (0 X)) @ddhNIL NIL () NAMEFIELD :D8 (L (2 DIRFLG 1 SUFFIXFLG 0 FILE)) Bg@g sAdg@g \B@g LgB @g g@g gA@g bd jA  (138 MKATOM 133 PACKFILENAME.STRING 122 NCHARS 113 UNPACKFILENAME.STRING 94 UNPACKFILENAME.STRING 78 UNPACKFILENAME.STRING 57 UNPACKFILENAME.STRING 41 UNPACKFILENAME.STRING 18 UNPACKFILENAME.STRING) (108 EXTENSION 99 EXTENSION 89 NAME 83 NAME 73 DIRECTORY 64 DIRECTORY 52 NAME 36 EXTENSION 27 ONLY 13 DIRECTORY 5 ONLY) () NLIST :D8 (L (0 N)) !eHIjJJIdaIaJIkYNIL NIL () PRINTBELLS :D8 NIL `i (10 PRIN3) (4 BELLS) () PROMPTCHARA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 X F 3 SI::NLSETQ-VALUE) i@R hcg(10 EVAL) (19 :NORMAL) () PROMPTCHAR :D8 (L (1 FLG) P 6 SI::*NLSETQFLAG* P 5 *PROCEED-CASES* P 4 SI::NLSETQ-VALUE P 3 X P 2 PROMPTSTR I 2 HISTORY I 0 ID F 7 READBUF F 8 *PROCEED-CASES*) z0A0WW cGB*`#BkXBldYHIىhH`0JJi @di hd`WM (112 PROMPTCHARA0001 88 PRIN1 78 PRIN2 56 LISPXREADP 15 LISPXREADBUF) (100 SI::NLSETQ-PROCEED-CASE 67 PROMPTCHARFORMS 27 PROMPT#FLG) () RAISEP :D8 (L (0 TTBL)) h@ i@ i(15 RAISE 6 RAISE) NIL () READFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 5 HELPCLOCK I 0 SI::*CLEANUP-FORMS* F 9 FILE F 10 SI::*RESETFORMS* F 11 RDTBL F 12 *COMMON-LISP-READ-ENVIRONMENT* F 13 *PACKAGE* F 14 *READTABLE* F 15 PACKAGE F 16 ENDTOKEN) gWghd` chhdWcWhi !HHIW IWWWcW0o!0WhK \KLdW J NI$Nc_O Oh_O&_(107 CL:READ 70 SET-READER-ENVIRONMENT 52 \MVLIST 47 READ-READER-ENVIRONMENT 24 OPENSTREAM) (18 LOADPARAMETERS 11 INPUT 4 CLOSEF?) ( 92 "eof") READFILE :D8 (L (0 -args-) P 12 RESETSTATE P 11 SI::*RESETFORMS* P 10 LISPXHIST P 9 *PRINT-BASE* P 8 *READ-BASE* P 7 *READTABLE* P 6 *PACKAGE* P 4 PACKAGE P 3 ENDTOKEN P 2 RDTBL P 1 FILE F 13 *OLD-INTERLISP-READ-ENVIRONMENT* F 14 LISPXHIST) { ekaAlHhlalHglalHhlaW]MMM J+L W! g $_(98 SI::RESETUNWIND 93 \MVLIST 88 READFILEA0001) (116 READTABLEP 108 PACKAGE 83 SI::RESETUNWIND 52 READER-ENVIRONMENT 29 STOP) () READLINEA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 LINE F 3 SI::NLSETQ-VALUE) i@R hcg(10 EDITE) (19 :NORMAL) () READLINE :D8 (L (0 RDTBL) P 6 *CONDITION-HANDLER-BINDINGS* P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 1 SPACEFLG I 2 LISPXFLG I 1 LINE F 7 READBUF F 8 *PROCEED-CASES* F 9 *CONDITION-HANDLER-BINDINGS*) 0Wsi 0i Ag@ Jdg@ #i@ BAdhh b|l Jg@ iY `gig i@ i@l`X`AHh bi Xdg@ JAC`") (HISTSTR2 "repeat") (HISTSTR3 "from event:") (HISTSTR4 "ignore") (LISPXREADFN (QUOTE READ)) ( USEMAPFLG T)) (P (MAPC (QUOTE ((APPLY BLKAPPLY) (SETTOPVAL SETATOMVAL) (GETTOPVAL GETATOMVAL) (APPLY* BLKAPPLY*) (RPLACA FRPLACA) (RPLACD FRPLACD) (STKNTH FSTKNTH) (STKNAME FSTKNAME) (CHARACTER FCHARACTER ) (STKARG FSTKARG) (CHCON DCHCON) (UNPACK DUNPACK) (ADDPROP /ADDPROP) (ATTACH /ATTACH) (DREMOVE /DREMOVE) (DSUBST /DSUBST) (NCONC /NCONC) (NCONC1 /NCONC1) (PUT /PUT) (PUTPROP /PUTPROP) (PUTD /PUTD) (REMPROP /REMPROP) (RPLACA /RPLACA) (RPLACD /RPLACD) (SET /SET) (SETATOMVAL /SETATOMVAL) (SETTOPVAL /SETTOPVAL) (SETPROPLIST /SETPROPLIST) (SET SAVESET) (PRINT LISPXPRINT) (PRIN1 LISPXPRIN1) (PRIN2 LISPXPRIN2) (SPACES LISPXSPACES) (TAB LISPXTAB) (TERPRI LISPXTERPRI) (PRINT SHOWPRINT) (PRIN2 SHOWPRIN2) (PUTHASH /PUTHASH) (QUOTE *) (FNCLOSER /FNCLOSER) (FNCLOSERA /FNCLOSERA) (FNCLOSERD /FNCLOSERD) (EVQ DELFILE) (NILL SMASHFILECOMS) (PUTASSOC /PUTASSOC) (LISTPUT1 PUTL) (NILL I.S.OPR) ( NILL RESETUNDO) (NILL LISPXWATCH) (QUOTE ADDSTATS) (NILL FREEVARS) (QUOTE USEDFREE) (COPYBYTES COPYCHARS))) (FUNCTION (LAMBDA (X) (MOVD? (CAR X) (CADR X))))) (MAPC (QUOTE ((TIME PRIN1 LISPXPRIN1) ( TIME SPACES LISPXSPACES) (TIME PRINT LISPXPRINT) (DEFC PRINT LISPXPRINT) (DEFC PUTD /PUTD) (DEFC PUTPROP /PUTPROP) (DOLINK FNCLOSERD /FNCLOSERD) (DOLINK FNCLOSERA /FNCLOSERA) (DEFLIST PUTPROP /PUTPROP) (SAVEDEF1 PUTPROP /PUTPROP) (MKSWAPBLOCK PUTD /PUTD))) (FUNCTION (LAMBDA (X) (AND (CCODEP ( CAR X)) (APPLY (QUOTE CHANGENAME) X))))) (MAPC (QUOTE ((EVALQT (LAMBDA NIL (PROG (TEM) (RESETRESTORE NIL (QUOTE RESET)) LP (PROMPTCHAR (QUOTE _) T) (LISPX (LISPXREAD T T)) (GO LP)))) (LISPX (LAMBDA ( LISPXX) (PRINT (AND LISPXX (PROG (LISPXLINE LISPXHIST TEM) (RETURN (COND ((AND (NLISTP LISPXX) (SETQ LISPXLINE (READLINE T NIL T))) (APPLY LISPXX (CAR LISPXLINE))) (T (EVAL LISPXX)))))) T T))) (LISPXREAD (LAMBDA (FILE RDTBL) (COND (READBUF (PROG1 (CAR READBUF) (SETQ READBUF (CDR READBUF)))) (T (READ FILE RDTBL))))) (LISPXREADP (LAMBDA (FLG) (COND ((AND READBUF (SETQ READBUF (LISPXREADBUF READBUF))) T) (T (READP T FLG))))) (LISPXUNREAD (LAMBDA (LST) (SETQ READBUF (APPEND LST (CONS HISTSTR0 READBUF))))) ( LISPXREADBUF (LAMBDA (RDBUF) (PROG NIL LP (COND ((NLISTP RDBUF) (RETURN NIL)) ((EQ (CAR RDBUF) HISTSTR0) (SETQ RDBUF (CDR RDBUF)) (GO LP)) (T (RETURN RDBUF)))))) (LISPX/ (LAMBDA (X) X)) (LOWERCASE (LAMBDA (FLG) (PROG1 LCASEFLG (RAISE (NULL FLG)) (RPAQ LCASEFLG FLG)))) (FILEPOS (LAMBDA (STR FILE) ( PROG NIL LP (COND ((EQ (PEEKC FILE) (NTHCHAR STR 1)) (RETURN T))) (READC FILE) (GO LP)))) (FILEPKGCOM (NLAMBDA NIL NIL)))) (FUNCTION (LAMBDA (L) (OR (GETD (CAR L)) (PUTD (CAR L) (CADR L)))))))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA RESETBUFS DMPHASH FILESLOAD) ( NLAML FILEMAP) (LAMA READFILE NLIST))) (LOCALVARS . T))) (RPAQ? *COMPILED-EXTENSIONS* (LIST FASL.EXT COMPILE.EXT)) (RPAQQ UNSAFE.TO.MODIFY.FNS (/PUT /PUTD /REMPROP ADDCHAR ADDCHAR ADDSPELL ADVISEWDS ALLOCSTRING APPLY APPLY ASSOC AWAIT.EVENT BITBLT.ERASE BITMAPCOPY BITMAPCREATE BKBITBLT BLOCK BLOCK BLTCHAR BLTCHAR BLTSHADE BREAK BREAK0 BREAK1 CHARSET CHCON1 CLEAR.LINE? CLOCK CLOCKDIFFERENCE CLOSEW CONCAT CREATEW CURSOR CURSORHOTSPOT DELETETO DO.CRLF DRAWLINE DSPBACKUP DSPCLIPPINGREGION DSPCLIPPINGREGION DSPCREATE DSPDESTINATION DSPFILL DSPFONT DSPLEFTMARGIN DSPRIGHTMARGIN DSPSCROLL DSPSOURCETYPE DSPXOFFSET DSPXPOSITION DSPYPOSITION EQLENGTH EQP EQUAL ERASE.TO.END.OF.LINE ERASE.TO.END.OF.PAGE ERRORMESS1 ERRORSET EVAL EVALQT EXPRP FASSOC FILENAMEFIELD FIXR FLIPCURSOR FLAST FMEMB GENSYM GETHASH GETMOUSESTATE GETPROP GETSTREAM GETWINDOWUSERPROP HELP HISTORYSAVE IDATE IMAGESTREAMTYPEP IMOD INIT.CURSOR INTEGERLENGTH INTERRUPTABLE INTERSECTREGIONS IREMAINDER LAST LASTC LISPX LISPX/ LISPXFIND LISPXFIND1 LISPXPRINT LISPXPUT LISPXPUT LISPXREAD LISPXREADBUF LISPXUNREAD LISTGET LISTPUT MEMB MKATOM MKSTRING MONITOR.AWAIT.EVENT MOVETOUPPERLEFT NOTIFY.EVENT NTH NTHCHARCODE OBTAIN.MONITORLOCK OPENW OPENWP OVERFLOW? PACK* PAGEHEIGHT PRIN1 PRIN1 PRIN2 PRIN2 PRIN3 PRIN3 PRINT PRINT PRINTCCODE PRINTLEVEL PROGN PROMPTCHAR PUTWINDOWPROP QUOTE READ CL:READ READLINE READLINE READP REALSTKNTH REGIONP RELEASE.PUP RELSTK RESETRESTORE RESHOWTITLE RETFROM RPLCHARCODE RPLSTRING SETCURSOR SETTERMTABLE SHOWPRIN2 SHOWPRINT SHOWWFRAME SHOWWTITLE SKIPSEPRS SPACES STKPOS STREAMP SUBATOM SUBSTRING SYNTAXP TERPRI TIMEREXPIRED? TIMEREXPIRED? TOTOPW TTBIN TTBITWIDTH TTCRLF TTDELETELINE TTSKREAD TTWAITFORINPUT TTWAITFORINPUT TTYDISPLAYSTREAM TTYIN TTYIN.CLEANUP TTYIN.FINISH TTYIN.READ TTYIN.SETUP TTYIN1 TTYIN1RESTART TTYINREAD TYPENAME UNBREAK0 UNDOSAVE UNPACKFILENAME.STRING WFROMDS WINDOW.MOUSE.HANDLER)) (RPAQ? OK.TO.MODIFY.FNS) (MOVD? (QUOTE NILL) (QUOTE FASL-FILEDATE)) (MOVD? (QUOTE CL:FMAKUNBOUND) (QUOTE UNDOABLY-FMAKUNBOUND)) (RPAQ? *FILEMAP-LIMIT* 20) (RPAQ? *FILEMAP-VERSIONS* 2) (RPAQ? *FILEMAP-HASH* (HASHARRAY *FILEMAP-LIMIT* (FUNCTION \FILEMAP-HASHOVERFLOW) (FUNCTION STRING-EQUAL-HASHBITS) (FUNCTION STRING.EQUAL))) (MOVD? (QUOTE EVQ) (QUOTE CONSTANT)) (MOVD? (QUOTE EVQ) (QUOTE DEFERREDCONSTANT)) (MOVD? (QUOTE EVQ) (QUOTE LOADTIMECONSTANT)) (PUTPROPS SCRATCHLIST MACRO ((SCRATCHLIST . FORMS) ((LAMBDA (!SCRATCHLIST !SCRATCHTAIL) (DECLARE ( SPECVARS !SCRATCHLIST !SCRATCHTAIL)) (SETQ !SCRATCHTAIL !SCRATCHLIST) (PROGN . FORMS) (COND ((EQ !SCRATCHTAIL !SCRATCHLIST) NIL) (T (PROG ((L2 (CDR !SCRATCHLIST))) (RPLACD !SCRATCHLIST (PROG1 (CDR !SCRATCHTAIL) (RPLACD !SCRATCHTAIL NIL))) (FRPLACD (FLAST !SCRATCHLIST) L2) (RETURN L2))))) (OR (LISTP SCRATCHLIST) (CONS)) NIL))) (PUTPROPS ADDTOSCRATCHLIST MACRO ((VALUE) (FRPLACA (SETQ !SCRATCHTAIL (OR (LISTP (CDR !SCRATCHTAIL)) ( CDR (FRPLACD !SCRATCHTAIL (CONS))))) VALUE))) (PUTPROPS SCRATCHLIST INFO EVAL) (ADDTOVAR CLISPARRAY) (ADDTOVAR CLISPFLG) (ADDTOVAR CTRLUFLG) (ADDTOVAR EDITCALLS) (ADDTOVAR EDITHISTORY) (ADDTOVAR EDITUNDOSAVES) (ADDTOVAR EDITUNDOSTATS) (ADDTOVAR GLOBALVARS) (ADDTOVAR LCASEFLG) (ADDTOVAR LISPXBUFS) (ADDTOVAR LISPXCOMS) (ADDTOVAR LISPXFNS) (ADDTOVAR LISPXHIST) (ADDTOVAR LISPXHISTORY) (ADDTOVAR LISPXPRINTFLG) (ADDTOVAR NOCLEARSTKLST) (ADDTOVAR NOFIXFNSLST) (ADDTOVAR NOFIXVARSLST) (ADDTOVAR P.A.STATS) (ADDTOVAR PROMPTCHARFORMS) (ADDTOVAR READBUF) (ADDTOVAR READBUFSOURCE) (ADDTOVAR REREADFLG) (ADDTOVAR RESETSTATE) (ADDTOVAR SPELLSTATS1) (RPAQ? CHCONLST (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) (RPAQ? CHCONLST1 (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) (RPAQ? CHCONLST2 (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) (RPAQ? CLEARSTKLST T) (RPAQ? CLISPTRANFLG (QUOTE CLISP% )) (RPAQ? HISTSTR0 "") (RPAQ? HISTSTR2 "repeat") (RPAQ? HISTSTR3 "from event:") (RPAQ? HISTSTR4 "ignore") (RPAQ? LISPXREADFN (QUOTE READ)) (RPAQ? USEMAPFLG T) (MAPC (QUOTE ((APPLY BLKAPPLY) (SETTOPVAL SETATOMVAL) (GETTOPVAL GETATOMVAL) (APPLY* BLKAPPLY*) ( RPLACA FRPLACA) (RPLACD FRPLACD) (STKNTH FSTKNTH) (STKNAME FSTKNAME) (CHARACTER FCHARACTER) (STKARG FSTKARG) (CHCON DCHCON) (UNPACK DUNPACK) (ADDPROP /ADDPROP) (ATTACH /ATTACH) (DREMOVE /DREMOVE) ( DSUBST /DSUBST) (NCONC /NCONC) (NCONC1 /NCONC1) (PUT /PUT) (PUTPROP /PUTPROP) (PUTD /PUTD) (REMPROP /REMPROP) (RPLACA /RPLACA) (RPLACD /RPLACD) (SET /SET) (SETATOMVAL /SETATOMVAL) (SETTOPVAL /SETTOPVAL) (SETPROPLIST /SETPROPLIST) (SET SAVESET) (PRINT LISPXPRINT) (PRIN1 LISPXPRIN1) (PRIN2 LISPXPRIN2) ( SPACES LISPXSPACES) (TAB LISPXTAB) (TERPRI LISPXTERPRI) (PRINT SHOWPRINT) (PRIN2 SHOWPRIN2) (PUTHASH /PUTHASH) (QUOTE *) (FNCLOSER /FNCLOSER) (FNCLOSERA /FNCLOSERA) (FNCLOSERD /FNCLOSERD) (EVQ DELFILE) ( NILL SMASHFILECOMS) (PUTASSOC /PUTASSOC) (LISTPUT1 PUTL) (NILL I.S.OPR) (NILL RESETUNDO) (NILL LISPXWATCH) (QUOTE ADDSTATS) (NILL FREEVARS) (QUOTE USEDFREE) (COPYBYTES COPYCHARS))) (FUNCTION ( LAMBDA (X) (MOVD? (CAR X) (CADR X))))) (MAPC (QUOTE ((TIME PRIN1 LISPXPRIN1) (TIME SPACES LISPXSPACES) (TIME PRINT LISPXPRINT) (DEFC PRINT LISPXPRINT) (DEFC PUTD /PUTD) (DEFC PUTPROP /PUTPROP) (DOLINK FNCLOSERD /FNCLOSERD) (DOLINK FNCLOSERA /FNCLOSERA) (DEFLIST PUTPROP /PUTPROP) (SAVEDEF1 PUTPROP /PUTPROP) (MKSWAPBLOCK PUTD /PUTD))) ( FUNCTION (LAMBDA (X) (AND (CCODEP (CAR X)) (APPLY (QUOTE CHANGENAME) X))))) (MAPC (QUOTE ((EVALQT (LAMBDA NIL (PROG (TEM) (RESETRESTORE NIL (QUOTE RESET)) LP (PROMPTCHAR (QUOTE _ ) T) (LISPX (LISPXREAD T T)) (GO LP)))) (LISPX (LAMBDA (LISPXX) (PRINT (AND LISPXX (PROG (LISPXLINE LISPXHIST TEM) (RETURN (COND ((AND (NLISTP LISPXX) (SETQ LISPXLINE (READLINE T NIL T))) (APPLY LISPXX (CAR LISPXLINE))) (T (EVAL LISPXX)))))) T T))) (LISPXREAD (LAMBDA (FILE RDTBL) (COND (READBUF (PROG1 ( CAR READBUF) (SETQ READBUF (CDR READBUF)))) (T (READ FILE RDTBL))))) (LISPXREADP (LAMBDA (FLG) (COND ( (AND READBUF (SETQ READBUF (LISPXREADBUF READBUF))) T) (T (READP T FLG))))) (LISPXUNREAD (LAMBDA (LST) (SETQ READBUF (APPEND LST (CONS HISTSTR0 READBUF))))) (LISPXREADBUF (LAMBDA (RDBUF) (PROG NIL LP ( COND ((NLISTP RDBUF) (RETURN NIL)) ((EQ (CAR RDBUF) HISTSTR0) (SETQ RDBUF (CDR RDBUF)) (GO LP)) (T ( RETURN RDBUF)))))) (LISPX/ (LAMBDA (X) X)) (LOWERCASE (LAMBDA (FLG) (PROG1 LCASEFLG (RAISE (NULL FLG)) (RPAQ LCASEFLG FLG)))) (FILEPOS (LAMBDA (STR FILE) (PROG NIL LP (COND ((EQ (PEEKC FILE) (NTHCHAR STR 1)) (RETURN T))) (READC FILE) (GO LP)))) (FILEPKGCOM (NLAMBDA NIL NIL)))) (FUNCTION (LAMBDA (L) (OR ( GETD (CAR L)) (PUTD (CAR L) (CADR L)))))) (PUTPROPS MACHINEINDEPENDENT COPYRIGHT ("Venue & Xerox Corporation" T 1983 1984 1985 1986 1987 1988 1989 1990 1991 2021 2022)) NIL