(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 9-Nov-93 00:50:19" ("compiled on " {DSK}export>lispcore>sources>CLTL2>LOADFNS.;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:18:29" {DSK}local>lde>lispcore>sources>LOADFNS.;2 45703 changes to%: ( FNS LOADCOMP LOADCOMP?) previous date%: "16-May-90 20:14:50" {DSK}local>lde>lispcore>sources>LOADFNS.;1) LOADFNSCAN :D8 (P 0 ADR I 0 DICT) @(7 SCANFILE0) NIL () SCANFILE0 :D8 (P 4 FNADRLST P 0 DICT0 F 5 DICT F 6 ADR F 7 VARLST F 8 BUILDMAPFLG F 9 FNLST F 10 FILECREATEDLOC) UAU©W²jhc ‰W—U ¿Wµ¯hS ¿X°-i°*R°#d¹@Ið³AIð³IŸH¥¸IH ¤µÞh¢±ÿ~H¥¸Rgð®Rgð¦HWc¿UgðUgð¥H iH¤i(389 SKREAD 380 EVAL 334 READ 317 EDIT4E 309 READ 277 READ 271 SETFILEPTR 259 SETFILEPTR 241 FNTYP 233 FILECREATED1 223 \NCONC2 214 READ 66 \SCANFILEBLOCK/SCANDECLARE%: 59 \SCANFILEBLOCK/SCANDECLARE%: 43 RATOM 37 RATOM 31 SETFILEPTR) (372 GETDEF 364 EXPRESSIONS 349 LOADCOMP 341 LOADFROM 200 FILECREATED 172 RPAQ? 163 RPAQ 154 RPAQQ 140 LOADCOMP 128 RPAQ? 116 RPAQ 105 RPAQQ 92 VARS 79 LOADFROM 50 DONTCOPY 19 DECLARE%: 8 COMPILING) () \SCANFILEBLOCK/SCANDECLARE%: :D8 (L (1 DONTCOPIES 0 EVALFLG) P 2 ADR P 0 VARLST F 3 ADR F 4 LDFLG F 5 DONELST F 6 VARLST F 7 FNLST) òA‘i€Vc¿Ygð¬Idgð¢±”¿kÙc¿Ydgð²O¿S@²¹Hgð²°Wið²ªhS ¿¹Tgð§Tgð—IUc ¿°„I ¿±ÿ{gðš@A ¿±ÿiIhS ¿@¿±ÿQgð§Igð‘iA²;Idgð—¿ib¿±ÿ,gð˜¿±ÿIgð¢±ÿ¿ib¿±ÿTgð’±þùIgðªIdgð²¿Hgð¢±þÛib¿±þÔgð²Hgð¢±þÁhb¿±þºIgðªIdgð²¿Hgð’±þœib¿±þ•gð²Hgð’±þ‚hb¿±þ{Idgð² ¿¹Hgð¢±þ_I b¿±þSgð²¹Hgð’±þ:I b¿±þ.Igð¢±þ#¿±þ(492 SKREAD 470 EVAL 452 READ 433 EVAL 415 READ 254 SKREAD 234 SKREAD 181 \SCANFILEBLOCK/SCANEXP 174 SETFILEPTR 167 RATOM 157 \SCANFILEBLOCK/SCANDECLARE%: 139 EVAL 108 READ 102 SETFILEPTR 76 \SCANFILEBLOCK/SCANDEFINEQ 56 RATOM 46 GETFILEPTR 20 RATOM 12 GETFILEPTR) (482 COPYWHEN 459 LOADCOMP 444 EVAL@LOADWHEN 422 LOADCOMP 406 EVAL@COMPILEWHEN 387 LOADCOMP 378 DONTEVAL@LOAD 361 LOADCOMP 351 DOEVAL@LOAD 342 EVAL@LOAD 324 LOADCOMP 315 DONTEVAL@COMPILE 298 LOADCOMP 288 DOEVAL@COMPILE 279 EVAL@COMPILE 268 GETDEF 244 COPYWHEN 227 EVAL@COMPILEWHEN 212 DONTCOPY 198 %] 190 %) 148 DECLARE%: 123 GETDEF 115 EXPRESSIONS 86 LOADCOMP 63 DEFINEQ 35 %[ 26 %() () SCANFILE1 :D8 (L (1 LST) I 0 DICT F 7 LDFLG F 8 NOFIXFNSLST F 9 VARS F 10 FNLST) .A¤Wb¿@aH´A¡hHYZ’±†Wgð’±ƒWgð³xWgð³nAið³JA ³A‹d¼JL ¤µóh²LhI ¿[gð³Kg ¥¿hI ¿J ¿J ¿ˆIh¾]µHX±ÿ_¾A²÷WgðŸNW³eNWc°[Aið©NA ²NhN ¿N[ð³oi¿Wgð¨Wgð‘KŠKh ¿K ¿M±ÿ|(294 \SCANFILEBLOCK/SCANFILE2 286 DEFINE 257 ERROR 251 INPUT 236 READ 228 SETFILEPTR 217 MEMB 158 \SCANFILEBLOCK/SCANFILE2 151 LAPRD 144 SETFILEPTR 135 RETRYSCAN 129 GETPROP 109 READ 103 SETFILEPTR 87 TMPSUBFN 73 MEMB) (274 GETDEF 265 EXPRESSIONS 187 LOADCOMP 124 CODEREADER 115 BINARY 58 LOADCOMP 48 GETDEF 36 EXPRESSIONS) ( 246 "filemap does not agree with contents of") \SCANFILEBLOCK/SCANFILE2 :D8 (L (0 X) F 0 FNLST F 1 DONELST) @QcPiðhð´@dP c(22 DREMOVE) NIL () TMPSUBFN :D8 (L (1 FN 0 X)) kA@khid AH´@ kØYHÙlÜjð³#h@LHØ Z´õl0Jñ¤Jl9ñ’h°LkÔ\°@H lAð´Ölk¼»LKó²Íi´ÉHlÔXIýñ³ßi(75 NTHCHARCODE 46 NTHCHARCODE 23 NCHARS 11 STRPOS) NIL () LOADFROM :D8 (L (2 LDFLG 1 FNS 0 FILE)) /A@Bg`²A²Adœd3’¿A… ¿(37 LAST 12 LOADFNS) (43 LASTWORD 17 DWIMFLG 7 LOADFROM) () LOADBLOCK :D8 (L (2 LDFLG 1 FILE 0 FN)) IA¨@ b¿0@Aiµ#@h°d d¸IµHhZH&¹µãJd–AB(70 LOADFNS 40 EXPRP 35 VIRGINFN 21 GETBLOCKDEC 7 LOADFNS-FINDFILE) NIL () GETBLOCKDEC :D8 (L (2 FNSONLY 1 FILE 0 FN)) ^Aµ @ bg Hµh¹@I ²1B¡II²%0I°dd3@ðdºKµJh\J&»µéLµ@hHX°¾(38 MEMB 20 FILECOMSLST 8 LOADFNS-FINDFILE) (15 BLOCKS) () LOADCOMPA0001A0002 :D8 (L (1 VAL 0 NAME) F 0 RESETSTATE) P´@gA(14 PUTPROP) (8 LOADCOMP) () LOADCOMPA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 BLOCKS I 0 SI::*CLEANUP-FORMS* F 3 FILE F 4 SI::*RESETFORMS* F 5 LDFLG) KSi µS!gH Zdg hhdTcJgHiHUg(72 LOADFNS 59 /PUTPROP 35 GETPROP 23 COMSNAME 6 FINDFILE) (67 LOADCOMP 53 LOADCOMP 30 LOADCOMP 17 LOADCOMPA0001A0002) () LOADCOMP :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 LDFLG I 0 FILE F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 LOADCOMPA0001) (8 SI::RESETUNWIND) () LOADCOMP? :D8 (L (1 LDFLG 0 FILE)) 4@i !Hµ@Y g Z™HžJH ¦IA I(48 LOADCOMP 40 CL::SIMPLE-STRING-EQUAL 29 GETPROP 19 COMSNAME 6 FINDFILE) (24 LOADCOMP) () LOADVARS :D8 (L (2 LDFLG 1 FILE 0 VARS)) hAB@(8 LOADFNS) NIL () LOADEFS :D8 (L (1 FILE 0 FNS)) @Ag(11 LOADFNS) (6 GETDEF) () LOADFILEMAP :D8 (L (0 FILE)) h@hg(12 LOADFNS) (7 FILEMAP) () LOADFNSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 29 *PRINT-BASE* P 28 *READ-BASE* P 27 *READTABLE* P 26 *PACKAGE* P 16 FILECREATEDLOC P 11 DONELST P 10 VARLST P 9 FNLST P 7 FILECREATEDLST P 5 LISPXHIST P 4 ADDSPELLFLG P 3 FILEPKGFLG P 2 BUILDMAPFLG P 1 DFNFLG P 0 *PACKAGE* I 0 SI::*CLEANUP-FORMS* F 47 LDFLG F 48 FILE F 49 VARS F 50 SI::*RESETFORMS* F 51 FILEPKGFLG F 52 DFNFLG F 53 BUILDMAPFLG F 54 ADDSPELLFLG F 55 LISPXHIST F 56 FNS F 57 NOSPELLFLG F 58 UPDATEMAPFLG) ¦/`WhWjWfWlWnWf´÷@W^dgð³¿W^dgð` ²W^¹W^gð²9i¹h\Z[]°1`²W^h`i_µoW^ c^°£c^Y°ÃM²"gM_µ‚±‰gmÿhhM¿Wpi _¿W`ªO c`¿gW`g _h_$hdWdcd¿gO hhWdcd¿O c`¿Od ³¿W`o °£mÿ°…j ¿W` _¿O _,_"¿O,_*_¿O*_(_ ¿O(_¿Wbd¢±‹dgð—¿g°zdgð² ¿Og Og h°Sdgð˜¿i_¿Wb°Bdgð²¿OµJ§h³ûOg°#dgð—¿g°gð’Wb†Wb _¿Oµ‚±Òi_¿O"_2ÉO2ÉO2ÉO2ÉO _²5OOð³W`OO¿WtOO “i_&¿`—Wr¤Oµn`²#O`OO_¿`˜Oµ‚±W^gð¢±«W`O _d` ³¿`Oh ¿O ±Æ0 O°L±ÿ1d_d²)¿0#O°d_B¿ODµ OBh_F‚OB&_D¿µçOF…´Oh_<šO>µOO<_@_>¿µ¸O@B)OH_RµCOL_¢±ÿ,O&²O$W`g _¿O ¿OO ¿±ÿ _>O<°¯OJ³%ORdlFOJhOR Ÿ_P¿ONµOPh_N_L¿OR°ŽOP&_N°õ šOhð´OhŒOA.OTµOV_¢±þÃ`OO_¿±þ²_\¿Oh_0¿_.µh³O\_Z¿OXµBOZh_X_V¿OT_T°º_0¿O\d–d3Ÿ¿O\O0ð¯O\O0ð†O0 –O0³Ói°¼O.°±OZ&_X¿°ÃK²SWbgð³IW^gð³?W^gð³5W`Wbdið§dgð—¿g°gð•g„gNO¿Wbdgð’Ogð’W`O (1187 DREVERSE 1155 ADDFILE 1051 EDIT4E 925 FNTYP 890 FIXSPELL 860 LAST 851 SCANFILE1 841 INPUT 830 OPENSTREAM 701 SMASHFILECOMS 688 \NCONC2 671 MEMB 658 ROOTFILENAME 577 UPDATEFILEMAP 564 PUTFILEMAP 541 LOADFNSCAN 493 LOADFNS-MAKELIST 407 FILECOMS 395 FILECOMS 319 \MVLIST 314 GET-ENVIRONMENT-AND-FILEMAP 304 ROOTFILENAME 296 SETFILEPTR 281 ERROR 266 RANDACCESSP 255 FULLNAME 237 INPUT 208 OPENSTREAM 188 LOADFNS-FINDFILE 174 LOADFNS-MAKELIST 165 LISPXPUT 122 ERROR 106 FIXSPELL 61 MEMB 23 FILEPKGCHANGES) (1175 LOADFROM 1165 FILEMAP 1147 loadfns 1141 LOADCOMP 1134 LOADCOMP 1127 LOADFNS 1119 LOADFROM 1102 GETDEF 1092 EXPRESSIONS 1082 FILEMAP 961 NOT-FOUNDTAG 825 INPUT 693 SYSFILES 679 SYSFILES 666 SYSFILES 643 SYSLOAD 626 NOT-FOUNDTAG 612 NOT-FOUNDTAG 601 NOT-FOUNDTAG 587 DWIMFLG 515 READER-ENVIRONMENT 481 DONTCOPY 474 LOADFROM 466 LOADFROM 458 FILEMAP 435 FILEMAP 418 LOADCOMP 402 BLOCKS 390 COMS 379 FNS/VARS 371 VARS 363 VARS 230 INPUT 203 INPUT 196 CLOSEF? 154 SIDE 139 SIDE 100 LOADOPTIONS 90 DWIMFLG 73 SYSLOAD 56 LOADOPTIONS 49 GETDEF 37 EXPRESSIONS 4 *INTERLISP-PACKAGE*) ( 276 "not a random access file" 115 "unrecognized load option") LOADFNS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 VARS I 2 LDFLG I 1 FILE I 0 FNS F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 LOADFNSA0001) (8 SI::RESETUNWIND) () LOADFNS-FINDFILE :D8 (L (0 FN) P 1 FILEPKGFLG P 0 DWIMFLG) 4id@ µ'g lðš@hdiµ@oi(49 ERROR 35 EDITLOADFNS? 22 NARGS 10 EDITLOADFNS?) (17 WHEREIS) ( 43 "'s file not found") LOADFNS-MAKELIST :D8 (L (1 FNSFLG 0 LST)) y@dið‘id²Ed3@ð“@h@«o@ A³!0@°d ¸IµHhZH&¹µëJ@AHµI\d3@ð‘i‹o ¿h™L»JµKhZ¹HX°ØK&º°ø(96 LISPXPRIN1 49 EDITFPAT 32 ERROR) NIL ( 91 " isn't a function name -- ignored. " 26 "illegal arg") RETRYSCAN :D8 (F 0 FILE F 1 *FILEMAP-HASH*) DPQ ²6PQ oi Pi oi g (65 SCANFILEHELP 59 RETFROM 54 LOADFNSCAN 44 PRIN1 33 PRINT 26 PRIN1 15 REMHASH 6 GETHASH) (49 LOADFNSCAN) ( 38 "rebuilding map..." 20 "something is wrong with the filemap for ") SCANFILEHELP :D8 NIL Eoi i i oi i oi i (66 HELP 61 TERPRI 55 PRIN1 44 TERPRI 38 PRIN1 27 TERPRI 21 PRIN1 15 INPUT 10 PRIN1) NIL ( 49 "Note: for (1) and (2), you may still be able to use this file by setting USEMAPFLG to NIL, and then reexecuting the operation that caused this message." 32 "Here are some possibilities: (1) you edited the file with a text editor; (2) you printed a DEFINEQ in the file directly, i.e. without using the FNS command; (3) the file got clobbered. If you are convinced it is none of the above, then please inform the 1100Support program." 4 "something is wrong with either the filemap or format of ") (PRETTYCOMPRINT LOADFNSCOMS) (RPAQQ LOADFNSCOMS ((FNS LOADFROM LOADBLOCK GETBLOCKDEC LOADCOMP LOADCOMP? LOADVARS LOADEFS LOADFILEMAP LOADFNS LOADFNS-FINDFILE LOADFNS-MAKELIST) (FNS LOADFNSCAN SCANFILE0 SCANCOMPILEDFN SCANDEFINEQ SCANEXP SCANDECLARE%: SCANFILE1 SCANFILE2 TMPSUBFN RETRYSCAN SCANFILEHELP) (VARS ( NOT-FOUNDTAG (QUOTE NOT-FOUND%:))) (GLOBALVARS LASTWORD LOADOPTIONS SYSFILES NOT-FOUNDTAG) (LOCALVARS . T) (BLOCKS (SCANFILEBLOCK (ENTRIES LOADFNSCAN TMPSUBFN SCANFILE1) LOADFNSCAN SCANFILE0 SCANCOMPILEDFN SCANDEFINEQ SCANEXP SCANDECLARE%: SCANFILE1 SCANFILE2 TMPSUBFN (LOCALFREEVARS FNADRLST DICT DICT0 ADR) (SPECVARS VARLST) (RETFNS SCANFILE0))))) (RPAQQ NOT-FOUNDTAG NOT-FOUND%:) (PUTPROPS LOADFNS COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1986 1987 1989 1990 1992)) NIL