(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 9-Nov-93 00:56:56" ("compiled on " |{DSK}export>lispcore>sources>CLTL2>MACHINEINDEPENDENT.;1|) "19-Feb-93 17:03:08" |bcompl'd| |in| "Medley 19-Feb-93 ..." |dated| "19-Feb-93 18:20:42") (FILECREATED "22-Sep-92 19:22:00" |{DSK}local>lde>lispcore>sources>MACHINEINDEPENDENT.;2| 73176 |changes| |to:| (FNS NAMEFIELD COMSNAME NAMEFIELD-STRING) (VARS MACHINEINDEPENDENTCOMS) |previous| |date:| "27-Feb-91 18:30:38" |{DSK}local>lde>lispcore>sources>MACHINEINDEPENDENT.;1|) LOAD? :D8 (L (2 PRINTFLG 1 LDFLG 0 FILE)) ¥@@ Xµ@l b°îd`’±ƒ Yg ºIg »J²@Hg `ð²*K²Kdgð§dgð’¿i¿hžJHi °#KµHABið²óJHð«JH ô²á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 12 *STANDARD-INPUT* F 13 DIRECTORIES F 14 LDFLG F 15 *COMPILED-EXTENSIONS*) o@gg“g ²>W _Wð³0Oið³*ghghghgO iW½W¾HµK£H¼h„H¼H¸KLd3@ð«Ld ¢±Ø¿Igð²xL g ²fh±™gð²LMWµ#Ohð´L°gLgJiM_³0O’h°ZooLM\d²Ed3@ð§L ´8JµŸL°ÉIdgð¿Oi ¿O°gð˜ON †ONlIh »±ÿ!dgð›¿g¹hº±dgð²y¿L\_gð³Odgð²¿LgðL¼L\ °;O dl{ð¤dl<ð’¿h¿i²!Og _ šO _µLd£d‘h½±‚dgðœ¿i_¿gº°ldgð˜¿g¹°[dgð§dgð˜¿L\º°Bdgð§dgð”¿hº°-dgðš¿g¹hº°gð”i_¿‹Ld`’¾L\´‚±þÝLdgð¢±þÙ¿g¹h^º°ß(442 \\EVALV1 434 BOUNDP 427 PACK* 398 CHCON1 389 EVAL 307 \\NCONC2 292 LOAD 272 CHECKIMPORTS 246 STRINGP 231 CL:CERROR 204 FINDFILE 197 PACKFILENAME.STRING 169 FINDFILE-WITH-EXTENSIONS 146 GETPROP 136 ROOTFILENAME 116 STRINGP 76 PACKFILENAME.STRING 32 FULLNAME 23 BOUNDP) (615 LOADCOMP? 604 LOADCOMP 582 LOADOPTIONS 567 NOERROR 557 CHECKIMPORTS 549 IMPORT 536 SYMBOLIC 528 SOURCE 511 EXT 503 EXTENSION 494 LOAD? 486 LOAD 477 :COMPILED 465 COMPILED 422 DIRECTORIES 375 OF 363 VALUE 352 VALUEOF 337 FROM 325 LOADFROM 317 LOADFROM 282 LOAD? 261 CHECKIMPORTS 191 EXTENSION 185 BODY 157 :COMPILED 141 FILEDATES 127 LOAD? 68 BODY 62 EXTENSION 56 NAME 50 VERSION 18 LDFLG 10 :COMPILED 5 LOAD?) ( 224 "File ~A not found~@[ on~{ ~A~}~]" 219 "Forget about loading ~A") FINDFILE-WITH-EXTENSIONS :D8 (L (2 EXTENSIONS 1 DIRLST 0 FILE) F 10 DIRECTORIES) ô @d²O ‘ H°/ddgð”¿i[°dgð¯dgð§dgð’¿iZ¿µÒJ²-K–@ B\µh½gMH µêL°áAµWšidW €i¾Nd²Ïd¤_¿h…_¿N¾Oµgh ‹ið‘H‰gOH¹K›I ŠBh_¿_µhµ…°²_¿gOI µ‚±ÿfO°Õ(231 INFILEP 226 PACKFILENAME.STRING 191 INFILEP 186 PACKFILENAME.STRING 161 DIRECTORYNAME 123 REMOVE 102 INFILEP 97 PACKFILENAME.STRING 73 INFILEP 8 UNPACKFILENAME.STRING) (216 EXTENSION 172 DIRECTORY 155 DIRECTORY 88 EXTENSION 51 DIRECTORY 43 DEVICE 35 HOST 22 EXTENSION) () DMPHASHA0001A0005 :D8 (L (1 ITEM 0 VAL) F 0 ARRAYNAME) <gAd²dið¬3µgAh@d²dið¬3µ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 h¾½gWMµUgM Ng \d´dið¬3µgLhhh ¿NµMg ¿hdcg¾ggN Ng Zd´dið¬3µgJhhM[d´Ÿdið³™3µ•gK°Š(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µ/dlÔJdkÔâÔ½níMñ›MŒ»g¼°Öní¾dNñ’±ú¿N±õgðl@h ¿°ôKd²0¿JlÔJKê _¿nøOñ’O‚nø_¿dOñ’±²¿O±¬3 ²*JlÔJKÔ_¿níOñ’O‚ní_¿dOñ’±†¿O±€K ™@kK[3µ&Hg ZlÔJdkÔâÔ_¿níOñ²@O°?d²E¿Hg ZlÔJKê _¿níOñ’O‚ní_¿dOñ³¿Oní_¿dOñ¢¿OYHILHg 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 ²0¿¿id ¿I ¿i ¿¿‚Iµ H´ÀA—Ai ¿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@hibAidµAb@g µ@g µ@ YAg@h XB¢±’d ¦H ¿A@g \œ@gLŠ@g ¿Hg ¿A»HºI´=g`hg ¿$³FJo@h oH»AZ@g ²§H ²ŸHg ²’HB³SA Y³gh¹Aoid¿HAhIA ¿@gA¿Hg@AK(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 @³$A²i ›¿¿id ¿Bc¿h¿i ¸i ¹¿¿Ho ‘h¸I¢H´HI(83 STREQUAL 71 SYSBUF 65 LINBUF 59 SYSBUF 52 LINBUF 34 CLEARBUF 26 DOBE 20 PRINTBELLS 14 READP) (45 CTRLUFLG) ( 78 " ") COMSNAME :D8 (L (2 DIRFLG 1 SUFFIXFLG 0 FILE)) !@ABHd ¦¿H (30 MKATOM 25 U-CASE 17 U-CASEP 7 NAMEFIELD-STRING) NIL () DEFINE :D8 (L (1 TYPE-IN 0 X)) T@@°Jd[µoK ¿KgK£K‡gKA•g„g¸IµHhZH&¹µ·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 FILEPKGFLG) 3Bd’d˜`«Bo ¿Rd”dið²¿@o œ@oi¿Cgð–B ¿@g ²Bgð«@g ¿R”Rið²U@ ²4@i ¿R³)oi ¿@i ¿oi ¿@ ¿S–@ ¿@B¹HI °]S—@j ¿B@ ð³IC˜Cgð²1B@g ð²"oi ¿@i ¿oi ¿@gB¿T›@gC@(303 MARKASCHANGED 288 /PUTPROP 275 LISPXPRIN1 263 LISPXPRIN2 255 LISPXPRIN1 241 GETPROP 215 GETD 207 ADDSPELL 195 XCL::UNDOABLY-SETF-SYMBOL-FUNCTION 181 ADDSPELL 172 SAVEDEF 165 LISPXPRIN1 153 LISPXPRIN2 145 LISPXPRIN1 130 VIRGINFN 121 \\DEFINEDP 107 DELDEF 85 HASDEF 73 FIXEDITDATE 58 ERROR 45 UNSAFE.TO.MODIFY 24 ERROR) (297 FNS 282 EXPR 236 EXPR 226 CHANGED 102 FUNCTIONS 94 NLAMBDA 80 FUNCTIONS 65 DEFINED 11 LAMBDASPLST) ( 269 " (but not installed). " 249 "New fns definition for " 159 ". " 139 "New fns definition for " 52 " not redefined" 40 "redefine" 19 "Illegal function definition") EQMEMB :D8 (L (1 Y 0 X)) @AðµA´@A´iNIL NIL () EQUALN :D8 (L (2 DEPTH 1 Y 0 X)) q@Aðµl@³0@d3¿A3´]@A —@A @´B@A A¡hB™kBñ•g@ABd“kÙbdgð³ãið´@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 chc 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 ™C³uA¢±áh`²ô `WioWO gð´O˜H@ð¤Hb° @ h_¿_µ/h²gIg@Z ²“Jb¿W–@j @_g µOh¾½Md¨²GO³»i°¶£M¾h„M¾M½Ng h¼[µhY²ÕN³×i°Ò¼H@I •Lµéi°æK°ÝO±ÿm@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 ¿R§gc¿S§gc¿VµQµ9°"P ¿°ó³"oP ¿QPlR¿Wd–P hSP ¿QPlR¿QcµÈ°Ý(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)) @d”d¡hNIL NIL () NAMEFIELD :D8 (L (2 DIRFLG 1 SUFFIXFLG 0 FILE)) @AB (12 MKATOM 7 NAMEFIELD-STRING) NIL () NAMEFIELD-STRING :D8 (L (2 DIRFLG 1 SUFFIXFLG 0 FILE)) …Bgð›@g Adgðœ¿@g B«@g gB´ @g g@g gA´@g bd™ jó´A (130 PACKFILENAME.STRING 119 NCHARS 110 UNPACKFILENAME.STRING 91 UNPACKFILENAME.STRING 75 UNPACKFILENAME.STRING 55 UNPACKFILENAME.STRING 40 UNPACKFILENAME.STRING 18 UNPACKFILENAME.STRING) (105 EXTENSION 96 EXTENSION 86 NAME 80 NAME 70 DIRECTORY 61 DIRECTORY 50 NAME 35 EXTENSION 26 ONLY 13 DIRECTORY 5 ONLY) () NLIST :D8 (L (0 N)) !eHIjð‘JJ¤Ida–¿IaJºIkÙY°ëNIL 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*) z0A²0WšW c³GB²*`²#BkØXBµldYñœHIÙ‰²ÛhHº`µ0J—Ji ¿@d–i 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 3 HELPCLOCK I 0 SI::*CLEANUP-FORMS* F 7 FILE F 8 SI::*RESETFORMS* F 9 *READTABLE* F 10 *PACKAGE* F 11 ENDTOKEN F 12 RDTBL F 13 PACKAGE) µgWghd` chhdWcW l;ð²`c¿o c¿Wµ7Wµ)o10WhHZHð§JdWð²¿LI$c¿°Ñc¿°ÃgðŸWJ Y ¿J¾Mµ Nh]¼°®N&½°©(161 SET-READER-ENVIRONMENT 155 \\DO-DEFINE-FILE-INFO 99 CL:READ 68 CL:FIND-PACKAGE 45 SKIPSEPRCODES 24 OPENSTREAM) (144 DEFINE-FILE-INFO 133 READTABLEP 123 PACKAGE 55 CMLRDTBL 18 LOADPARAMETERS 11 INPUT 4 CLOSEF?) ( 84 "eof" 63 "USER") 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) c ekaAlHñ‘h‚laºlHñ•g‚la»lHñ‘h‚la¼W]ÉMÉMÉMÉ W!g ¿$(92 SI::RESETUNWIND 87 \\MVLIST 82 READFILEA0001) (77 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*) ²0Wµ‚±si ’±0i Ag@¯Jdg@²#¿i@ ¿B¢±Ad’±‰hh b°|l ð²Jg@™iY ±Ò`gð«ig —i@ Ši@l`X`ð’±AHh b¿i Xdg@²J¿A²C`²") ( 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)) (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) (RPAQQ CHCONLST (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) (RPAQQ CHCONLST1 (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) (RPAQQ CHCONLST2 (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) (RPAQQ CLEARSTKLST T) (RPAQQ CLISPTRANFLG CLISP\ ) (RPAQ HISTSTR0 "") (RPAQ HISTSTR2 "repeat") (RPAQ HISTSTR3 "from event:") (RPAQ HISTSTR4 "ignore") (RPAQQ LISPXREADFN READ) (RPAQQ 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)))))) (PRETTYCOMPRINT MACHINEINDEPENDENTCOMS) (RPAQQ MACHINEINDEPENDENTCOMS ((COMS (* \; " \"File loader\"") (FNS LOAD? FILESLOAD DOFILESLOAD FINDFILE-WITH-EXTENSIONS) (INITVARS (*COMPILED-EXTENSIONS* (LIST FASL.EXT COMPILE.EXT)))) (COMS (* \; "random machine-independent utilities") (FNS DMPHASH HASHOVERFLOW) (DECLARE\: EVAL@COMPILE DONTCOPY ( MACROS HASHOVERFLOW.ARRAYTEST HASHOVERFLOW.UPDATEARRAY)) (FNS BKBUFS CHANGENAME CHNGNM CLBUFS COMSNAME DEFINE FNS.PUTDEF EQMEMB EQUALN FNCHECK FNTYP1 LCSKIP MAPRINT MKLIST NAMEFIELD NAMEFIELD-STRING NLIST PRINTBELLS PROMPTCHAR RAISEP READFILE READLINE REMPROPLIST RESETBUFS TAB UNSAVED1 WRITEFILE CLOSE-AND-MAYBE-DELETE UNSAFE.TO.MODIFY) (VARS UNSAFE.TO.MODIFY.FNS) (COMS (* \; "FILEDATE, for finding out the creation date of source files, from the compiled files.") (* |;;| "FASL isn't loaded when MACHINEINDEPENDENT is, so we have to fake the FASL checker for now. It's defined in FASLOAD." ) (FNS FILEDATE) (P (MOVD? (QUOTE NILL) (QUOTE FASL-FILEDATE)))) (P (MOVD? (QUOTE CL:FMAKUNBOUND) ( QUOTE UNDOABLY-FMAKUNBOUND))) (* \; "used in FNS.PUTDEF before CMLUNDO loaded")) (COMS (* \; "Functions for retrieving and remembering FILEMAPs and file reader environments") (FNS FILEMAP \\PARSE-FILE-HEADER GET-ENVIRONMENT-AND-FILEMAP LOOKUP-ENVIRONMENT-AND-FILEMAP GET-FILEMAP-FROM-FILECREATED \\FILEMAP-HASHOVERFLOW FLUSHFILEMAPS LISPSOURCEFILEP GETFILEMAP PUTFILEMAP UPDATEFILEMAP PRINT-READER-ENVIRONMENT) (INITVARS (*FILEMAP-LIMIT* 20) (*FILEMAP-VERSIONS* 2) (*FILEMAP-HASH* (HASHARRAY *FILEMAP-LIMIT* (FUNCTION \\FILEMAP-HASHOVERFLOW) (FUNCTION STRING-EQUAL-HASHBITS) (FUNCTION STRING.EQUAL)))) (DECLARE\: EVAL@COMPILE DONTCOPY (RECORDS FILEMAPHASH) (GLOBALVARS *FILEMAP-LIMIT* *FILEMAP-VERSIONS* *FILEMAP-HASH*))) (COMS (* * LVLPRINT) ( FNS LVLPRINT LVLPRIN1 LVLPRIN2 LVLPRIN LVLPRIN0)) (COMS (* \; "used by PRINTOUT") (FNS FLUSHRIGHT PRINTPARA PRINTPARA1)) (COMS (* \; "SUBLIS and friends") (FNS SUBLIS SUBPAIR DSUBLIS)) (COMS (* * CONSTANTS) (FNS CONSTANTOK) (P (MOVD? (QUOTE EVQ) (QUOTE CONSTANT)) (MOVD? (QUOTE EVQ) (QUOTE DEFERREDCONSTANT)) (MOVD? (QUOTE EVQ) (QUOTE LOADTIMECONSTANT)))) (COMS (* * SCRATCHLIST) (PROP MACRO SCRATCHLIST ADDTOSCRATCHLIST) (PROP INFO SCRATCHLIST)) (GLOBALVARS SYSFILES LOADOPTIONS LISPXCOMS CLISPTRANFLG COMMENTFLG HISTSTR4 LISPXREADFN REREADFLG HISTSTR0 CTRLUFLG NOLINKMESS PROMPTCHARFORMS PROMPT#FLG FILERDTBL SPELLINGS2 USERWORDS BELLS CLISPARRAY) (FNS NLAMBDA.ARGS) (DECLARE\: DONTEVAL@LOAD DOCOPY (* \; "initialization of variables used in many places") (ADDVARS (CLISPARRAY) ( CLISPFLG) (CTRLUFLG) (EDITCALLS) (EDITHISTORY) (EDITUNDOSAVES) (EDITUNDOSTATS) (GLOBALVARS) (LCASEFLG) (LISPXBUFS) (LISPXCOMS) (LISPXFNS) (LISPXHIST) (LISPXHISTORY) (LISPXPRINTFLG) (NOCLEARSTKLST) ( NOFIXFNSLST) (NOFIXVARSLST) (P.A.STATS) (PROMPTCHARFORMS) (READBUF) (READBUFSOURCE) (REREADFLG) ( RESETSTATE) (SPELLSTATS1)) (VARS (CHCONLST (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) (CHCONLST1 (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) (CHCONLST2 (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))) (CLEARSTKLST T) (CLISPTRANFLG (QUOTE CLISP\ )) (HISTSTR0 "") ( 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 FILEMAP RESETBUFS DMPHASH FILESLOAD) (NLAML) ( LAMA READFILE NLIST))) (LOCALVARS . T))) (PUTPROPS MACHINEINDEPENDENT COPYRIGHT ("Venue & Xerox Corporation" T 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992)) NIL