Interlisp.medley/sources/BOOTSTRAP.LCOM

(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

(FILECREATED " 2-Mar-2026 12:03:05" ("compiled on " {WMEDLEY}<sources>BOOTSTRAP.;71) 
"26-Feb-2026 12:11:15" brecompiled exprs%: READ-READER-ENVIRONMENT in "FULL 26-Feb-2026 ..." dated 
"26-Feb-2026 12:11:24")
(FILECREATED " 2-Mar-2026 12:03:05" {WMEDLEY}<sources>BOOTSTRAP.;71 47856 :EDIT-BY rmk :CHANGES-TO (
FNS READ-READER-ENVIRONMENT) :PREVIOUS-DATE "25-Feb-2026 15:03:24" {WMEDLEY}<sources>BOOTSTRAP.;69)
GETPROP :D8
(I 1 PROP I 0 ATM) )
@d3@ð´@ÁÉ
H´Hd¡h
Að“H
HX°êNIL
NIL
()
SETATOMVAL :D8
(I 1 Y I 0 X) 	@A
(6 SETTOPVAL)
NIL
()
RPAQQ :D8
(I 1 Y I 0 X) 	
@A
(6 SETTOPVAL)
NIL
()
RPAQ :D8
(I 1 RPAQY I 0 RPAQX) 
@A	
(11 SETTOPVAL 6 EVAL)
NIL
()
RPAQ? :D8
(I 1 RPAQY I 0 RPAQX) 
@	gðhðµ@A	
(27 SETTOPVAL 22 EVAL 5 GETTOPVAL)
(10 NOBIND)
()
MOVD :D8
(P 3 NEWFLG P 2 \INTERRUPTABLE I 3 DONTCOPY I 2 COPYFLG I 1 TO I 0 FROM F 4 FILEPKGFLG) i
C²)B³&@Á
AÁ

IHÉIHÊÏIHʇχAA	hð
AB›@		…@	CT²A	›AgKA(101 MARKASCHANGED 88 EXPRP 79 PUTD 73 GETD 66 COPY 61 VIRGINFN 47 GETD)
(95 FNS)
()
MOVD? :D8
(I 3 DONTCOPY I 2 COPYFLG I 1 TO I 0 FROM F 0 FILEPKGFLG) >
A	³5AB›@		…@	CP²A	›AgiAh(56 MARKASCHANGED 43 EXPRP 34 PUTD 28 GETD 21 COPY 16 VIRGINFN 5 \DEFINEDP)
(50 FNS)
()
SELECTQ :D8
(I 0 SELCQ) $
g@
g
@
g(33 APPLY 23 SELECTQ1 16 EVAL)
(28 SELECTQ 11 SELECTQ 4 PROGN)
()
SELECTQ1 :D8
(L (1 L 0 M)) !
AXb¡HH
Xd
@ðª
²î@H
²èHNIL
NIL
()
NCONC1 :D8
(I 1 X I 0 LST) @Ah
(8 \NCONC2)
NIL
()
PUTPROP :D8
(P 1 X0 P 0 X I 2 VAL I 1 PROP I 0 ATM) R@d3@ð«l@h	¿@ÁÉ
Hµ H¢Iµ@ÁAB@ÁÉBABhB²åHd
Að”BBYX°Ì(16 ERRORX)
NIL
()
PROPNAMES :D8
(I 0 ATM) 
0@ÁÉ<00>d
¸IµHhZ<>H&¹µïJNIL
NIL
()
ADDPROP :D8
(P 1 X0 P 0 X I 3 FLG I 2 NEW I 1 PROP I 0 ATM) y@µ
lABh‡d3@ð«l@h	¿@ÁÉ
Hµ(H¢Iµ@ÁABhb@ÁÉBABhbhB²ÝHd
Að²C•BH
ŠH
Bh
bBYX°¯(108 \NCONC2 26 ERRORX)
NIL
()
REMPROP :D8
(P 2 VAL P 1 X0 P 0 X I 1 PROP I 0 ATM) O@d3@ð«l@h	¿@ÁÉ!H”Hd¡J
Að² AµiºIµ@ÁH¿HX°ÝH°ôHYX°Ï(16 ERRORX)
NIL
()
MEMB :D8
(L (1 Y 0 X)) A¡h@A
ð‘AAb°ñNIL
NIL
()
CLOSEF? :D8
(I 0 FL) 
@dœ	´@	(15 CLOSEF 7 OPENP)
NIL
()
LOADA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 1 TEM P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 2 LDFLG F 3 PACKAGE F 4 SI::*RESETFORMS* F 5 FILE F 6 PRETTYHEADER F 7 PRINTFLG) ‰
 
R`³*`ŸRh`iYµoR
c°Õc¿Sµ9gUgg`XhhdTc¿HRWV´iS
óÄS	µSc¿°±(122 CL:FIND-PACKAGE 108 \LOAD-STREAM 80 OPENSTREAM 44 ERROR 30 FIXSPELL)
(130 PACKAGE 114 PACKAGE 75 LOADPARAMETERS 70 OLD 65 INPUT 59 CLOSEF? 24 LOADOPTIONS 16 DWIMFLG 8 LOADOPTIONS)
( 38 "unrecognized load option")
LOAD :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 PACKAGE I 2 PRINTFLG I 1 LDFLG I 0 FILE F 3 LISPXHIST) 
S!g		¿$
(23 SI::RESETUNWIND 18 \MVLIST 13 LOADA0001)
(8 SI::RESETUNWIND)
()
\LOAD-STREAMA0002 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 STREAM F 3 TEM F 4 SI::NLSETQ-VALUE) i@
RS
¿R	hcg(18 READ 11 SETFILEPTR)
(27 :NORMAL)
()
\LOAD-STREAM :D8
(P 30 *CONDITION-HANDLER-BINDINGS* P 29 SI::*NLSETQFLAG* P 28 *PROCEED-CASES* P 27 SI::NLSETQ-VALUE P 26 *PRINT-BASE* P 25 *READ-BASE* P 24 *READTABLE* P 23 *PACKAGE* P 22 MANAGED-FILE-P P 19 FILECREATEDLOC P 18 INTERLISP-P P 17 MAYBEWANTFILEMAP P 16 LOADA P 15 FILECREATEDLST P 14 TEM P 13 ROOTNAME P 12 FNADRLST P 11 FILEMAP P 10 DEFINEDENV P 9 PRLST P 8 LISPXHIST P 7 ADDSPELLFLG P 6 FILEPKGFLG P 5 BUILDMAPFLG P 4 DFNFLG P 3 *READTABLE* P 2 *PACKAGE* P 1 FILE P 0 *STANDARD-INPUT* I 4 PACKAGE I 3 LOAD-VERBOSE-STREAM I 2 PRINTFLG I 1 LDFLG I 0 STREAM F 31 FILEPKGFLG F 32 *PACKAGE* F 33 DFNFLG F 34 BUILDMAPFLG F 35 *CONDITION-HANDLER-BINDINGS* F 36 ADDSPELLFLG F 37 LISPXHIST F 38 *PROCEED-CASES*) %@d	W@`WBWDW>WHWJW>´ÊC²+I²(C	¿Cið«oC
¿IC
¿C	¿A\gð™i¼h_]^_<10>O²&gO_ µgmÿhhO„
mÿ¿@	_dl‘𢱃¿@	¿Ii
_ÁÉg'
I`
¬I`¿O,²EAgð².Od`
³¿`Oh
¿O	<00>N›Og
Il(ð©@BCDMš@	“i_"¿@	_D²`O
DºdJ¿_<14>O_*dgi˜¿@	_*¿O*ÉO*ÉO*ÉO*Éh_(¿O¢±œ@	_ g
­O g
²z@	_(¿@	¿@	gð²ShO(
_h
¿OO

¿@	dl)ð§dl]ð¢±
Ù¿@	¿Oµ‚±
¼O 		_ ¿±
†@O(
¿@	_ gð§O µ‚±¤Agð²7IO
_d`
³¿`Oh
¿O	ŒN›IiOO¿O².IO
OOhO&
¿`²@O(
¿@O

¿Id`
’±
Q¿gI`
±
;¢±<00>O d
g𢱉¿O"²{@	_(¿O 
_3 ´P`WLioWFO8	gð´O6
_d² 
gð´O
_
«IOhOˆhd
_¿@O(
¿h_"¿O ,_ ¿°+,_ ¿°%O—O 	¿O˜@	_(¿O 	¿OµB¢±ýåO B
±ýÙO(@	O 
¿°Þ
@	¿±þ=dl(ð¥dl[ð²1¿@	_(¿@	O _ ¿O¢±ýóOO 

O(@	±ýÚ¿o	I(1057 ERROR 1041 GETFILEPTR 1015 READ 1006 GETFILEPTR 983 GETFILEPTR 972 TCONC 963 GETFILEPTR 952 PRINT 934 LAPRD 924 GETFILEPTR 914 ADDSPELL 885 SETFILEPTR 874 TCONC 866 PUTFILEMAP 820 \LOAD-STREAMA0002 775 GETFILEPTR 742 /SETTOPVAL 720 MEMB 707 UPDATEFILEMAP 697 SETFILEPTR 681 PUTFILEMAP 659 ADDFILE 645 SMASHFILECOMS 632 \NCONC2 615 MEMB 602 ROOTFILENAME 567 READ 560 SETFILEPTR 546 DEFINE 541 DREVERSE 525 READCCODE 505 SKIPSEPRCODES 498 TCONC 487 TCONC 479 TCONC 463 RATOM 456 READCCODE 447 GETFILEPTR 439 SYNTAXP 426 SYNTAXP 414 SKIPSEPRCODES 371 READ-READER-ENVIRONMENT 363 \GETSTREAM 332 NCREATE2 315 READ-READER-ENVIRONMENT 304 RANDACCESSP 295 \CML-LOAD 280 ADDFILE 265 SMASHFILECOMS 252 \NCONC2 235 MEMB 195 MEMB 169 ROOTFILENAME 161 FASL:PROCESS-FILE 144 SKIPSEPRCODES 131 LISPXPUT 78 LISPXTERPRI 71 LISPXPRIN1 63 PRIN1 47 LISPXTERPRI 32 FILEPKGCHANGES 6 FULLNAME)
(844 FILEMAP 826 :NORMAL 798 SI::NLSETQ-PROCEED-CASE 759 FILECREATED 736 LOADEDFILELST 730 LOADEDFILELST 715 LOADEDFILELST 687 UPDATEMAPFLG 637 SYSFILES 623 SYSFILES 610 SYSFILES 590 SYSLOAD 574 STOP 468 DEFINEQ 434 LEFTBRACKET 421 LEFTPAREN 378 READER-ENVIRONMENT 357 INPUT 338 PACKAGE 325 |READER-ENVIRONMENTTYPE#| 275 Compiled 257 SYSFILES 243 SYSFILES 230 SYSFILES 219 SYSLOAD 208 LOADEDFILELST 202 LOADEDFILELST 190 LOADEDFILELST 180 FILEDATES 119 SIDE 107 SIDE 86 SYSLOAD 13 FILERDTBL)
( 1052 "illegal argument in defineq" 807 (CL:ERROR . SI::NLSETQHANDLER) 57 "; Loading ")
FILECREATED :D8
(P 1 FILE P 0 FILEDATE I 0 X F 2 LOAD-VERBOSE-STREAM F 3 FILECREATEDLST) b
@
@

S@h
cRµ Id²³I	gHIhhið«oR
¿@	R
¿HR
¿R	¿°·(93 LISPXTERPRI 86 LISPXPRIN1 78 LISPXPRIN1 72 FILECREATED1 65 PRIN1 49 /PUT 34 ROOTFILENAME 16 \NCONC2)
(39 FILEDATES)
( 59 "; ")
FILECREATED1 :D8
(L (0 X) F 0 PRETTYHEADER) 

@
µP
NIL
NIL
()
PRETTYCOMPRINT :D8
(I 0 X F 0 LOAD-VERBOSE-STREAM) 


Pd²ið«oP
¿@P
(25 LISPXPRINT 17 PRIN1)
NIL
( 11 "; ")
BOOTSTRAP-NAMEFIELD :D8
(P 2 END P 1 POS P 0 START I 1 SUFFIXFLG I 0 FILE) uk!g@Hµg@Hµg@HYµBg@
Yµg@HY•A£IkÙº@HJkÙº@J
l.ð²ÖJkÙº°Ðkظ°’(99 NTHCHARCODE 88 SUBATOM 72 STRPOS 57 STRPOS 43 STRPOS 29 STRPOS 15 STRPOS)
(65 %. 51 ; 36 / 22 > 8 })
()
PUTPROPS :D8
(P 0 Y I 0 X) 

@°d
@
H
H
µìh(18 PUTPROP)
NIL
()
DECLARE%: :D8
(I 0 X) 	
@i
(6 DECLARE%:1)
NIL
()
DECLARE%:1 :D8
(I 1 EVALFLG I 0 X) j@¡h@d
²#¿A²V@d

gð™
i
°@
	°8
dgð§dgð“¿i°!dgðž¿@
	b¿@‹gð“hb¿@b°š(81 EVAL 41 EVAL 33 DECLARE%:1)
(92 DONTEVAL@LOAD 70 EVAL@LOADWHEN 58 DOEVAL@LOAD 50 EVAL@LOAD 23 DECLARE%:)
()
ROOTFILENAME :D8
(I 1 COMPFLG I 0 NAME) @Ö@	€@Ahð
	(27 U-CASE 22 NAMEFIELD 12 FULLNAME)
(5 STREAM)
()
DEFINE-FILE-INFO :D8
(I 0 ARGS F 0 FILECREATEDLOC) 

ch@
	(18 SET-READER-ENVIRONMENT 13 \DO-DEFINE-FILE-INFO 4 GETFILEPTR)
NIL
()
\DO-DEFINE-FILE-INFO :D8
(P 11 R P 10 TAIL P 6 READTABLEFORM P 5 PACKAGEFORM P 4 VALUE P 3 FORMAT P 2 BASE P 1 READTABLE P 0 PACKAGE I 1 ARGS I 0 STREAM) 
 	A±
d

O
¼O
dgð¨dgð²+¿Ld•]	XÃ’±ÑH	X’±ÆoL±·dgð¨dgð²*¿Ld•^	YÃ’±—I	Y’±ŒoL°}dgð¨dgð²;¿Ld”	
Od
Ÿ¿kOñ§Odl$ñ—¿O	µ
oL
Z°8dgð¯dgð§dgðŸ¿L	É[<5B>¿oO

¿µ‚±þùK³gi
•g„g»@µH`Hµ`_¿dO¿Iµ`_¿dO¿Jµl
_¿dO¿dK¿dM¿dN
¿K
¿°³(378 \EXTERNALFORMAT 286 FIND-FORMAT 261 ERROR 238 FIND-FORMAT 204 ERROR 190 \INVALID.RADIX 160 EVAL 120 FIND-READTABLE 104 EVAL 62 CL:FIND-PACKAGE 46 EVAL)
(333 FILERDTBL 316 *INTERLISP-PACKAGE* 307 |READER-ENVIRONMENTTYPE#| 298 :XCCS 292 :MCCS 280 :MCCS 243 EXTERNALFORMAT 229 %:FORMAT 221 FORMAT 213 :FORMAT 147 %:BASE 139 :BASE 110 READTABLEP 90 %:READTABLE 82 :READTABLE 52 PACKAGE 32 %:PACKAGE 24 :PACKAGE)
( 253 "Unrecognized file info key" 198 "Bad read base for DEFINE-FILE-INFO reader environment" 130 "Can't find read table for DEFINE-FILE-INFO reader environment"
 72 "Can't find package for DEFINE-FILE-INFO reader environment")
PRINT-READER-ENVIRONMENT :D8
(P 3 RDTBL P 2 PKG P 1 *PRINT-BASE* P 0 *PACKAGE* I 1 STREAM I 0 ENV F 5 *OLD-INTERLISP-READ-ENVIRONMENT* F 6 *DEFINE-FILE-INFO-ENV*) Ý@U
’±Ò`l
2@ɵ@É´@É	Z@É
µ@É´@Ég
[gJ´gJhK´gKhg@É@É\oð³Lgð¨Lgð² hAVÉA	g@Éh°Óh(198 TERPRI 192 PRINT 177 CL:APPEND 92 READTABLEPROP 53 CL:PACKAGE-NAME 6 EQUAL-READER-ENVIRONMENT)
(210 READER-ENVIRONMENT 204 :FORMAT 185 READER-ENVIRONMENT 166 :XCCS 158 :MCCS 141 READER-ENVIRONMENT 133 READER-ENVIRONMENT 127 :BASE 118 :READTABLE 106 :PACKAGE 98 DEFINE-FILE-INFO 87 NAME 80 READER-ENVIRONMENT 70 READER-ENVIRONMENT 60 READER-ENVIRONMENT 46 READER-ENVIRONMENT 36 READER-ENVIRONMENT 26 READER-ENVIRONMENT 15 *INTERLISP-PACKAGE*)
( 149 (:MCCS :XCCS))
READ-READER-ENVIRONMENTA0001 :D8
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 STRM F 1 DEFAULTENV F 2 RETURNFORM F 3 A0903) 
PQR	hc¿$
(12 \MVLIST 7 READ-READER-ENVIRONMENT)
NIL
()
READ-READER-ENVIRONMENTA0002 :D8
(F 0 STRM F 1 A0903) PgQ(11 CL:CLOSE)
(5 :ABORT)
()
READ-READER-ENVIRONMENT :D8
(P 10 A0903 P 9 STRM P 8 *PRINT-BASE* P 7 *READ-BASE* P 6 *READTABLE* P 5 *PACKAGE* P 3 ARGS P 2 *READTABLE* P 1 ENV P 0 START I 2 RETURNFORM I 1 DEFAULTENV I 0 STREAM F 11 *OLD-INTERLISP-READ-ENVIRONMENT* F 12 *COMMON-LISP-READ-ENVIRONMENT* F 13 *DEFINE-FILE-INFO-ENV*) 
@gi¢±ÊA¤Wb¿@	AWÉ#@j
@	dl;ð²@WÉ
Wl(𢱂@WÉ
@	W\dgi—¿@	\LÉLÉLÉLÉo@	
²l)@
»@K
Y†@H
¿B<C2BF>K›IgK$
IA@i
µ@ggi
g		OgO¿$
(272 CL:CLOSE 258 \MVLIST 253 READ-READER-ENVIRONMENTA0001 239 OPEN 221 FINDFILE 193 SETFILEPTR 184 \DO-DEFINE-FILE-INFO 176 CL:READ-DELIMITED-LIST 166 STREQUAL 161 RSTRING 129 READ-READER-ENVIRONMENT 121 \GETSTREAM 106 READCCODE 100 \EXTERNALFORMAT 75 \EXTERNALFORMAT 54 SKIPSEPRCODES 48 SETFILEPTR 28 GETFILEPTR 11 \GETSTREAM)
(265 :ABORT 248 READ-READER-ENVIRONMENTA0002 234 :INPUT 229 :DIRECTION 204 DEFINE-FILE-INFO 135 READER-ENVIRONMENT 115 INPUT 93 READER-ENVIRONMENT 68 READER-ENVIRONMENT 36 READER-ENVIRONMENT 5 INPUT)
( 155 "DEFINE-FILE-INFO")
MAKE-DEFINE-FILE-INFO-ENV :D8
(P 0 RTBL F 1 *OLD-INTERLISP-READ-ENVIRONMENT*) :

QÉ	
l:gHHl:Ï`Q
dH¿(50 NCREATE2 28 SETSYNTAX 12 COPYREADTABLE)
(44 |READER-ENVIRONMENTTYPE#| 34 READTABLEP 22 PACKAGEDELIM 5 READER-ENVIRONMENT)
()
(PRETTYCOMPRINT BOOTSTRAPCOMS)
(RPAQQ BOOTSTRAPCOMS ((COMS (* ; 
"Some basic fns.  Note that several are redefined later.  E.g., RPAQQ et al real definitions are on UNDO"
) (FNS GETPROP SETATOMVAL RPAQQ RPAQ RPAQ? MOVD MOVD? SELECTQ SELECTQ1 NCONC1 PUTPROP PROPNAMES 
ADDPROP REMPROP MEMB CLOSEF?)) (COMS (* ; "Need these in order to load even compiled files SYSLOAD") (
FNS LOAD \LOAD-STREAM FILECREATED FILECREATED1 PRETTYCOMPRINT BOOTSTRAP-NAMEFIELD PUTPROPS DECLARE%: 
DECLARE%:1 ROOTFILENAME)) (COMS (* ; "For DEFINE-FILE-INFO") (FNS DEFINE-FILE-INFO 
\DO-DEFINE-FILE-INFO PRINT-READER-ENVIRONMENT READ-READER-ENVIRONMENT MAKE-DEFINE-FILE-INFO-ENV) (
INITVARS (*DEFINE-FILE-INFO-ENV* (MAKE-DEFINE-FILE-INFO-ENV)))) (INITVARS (EOLCHARCODE (CHCON1 "
")) (PRETTYHEADER) (DWIMFLG) (UPDATEMAPFLG) (DFNFLG) (ADDSPELLFLG) (BUILDMAPFLG) (FILEPKGFLG) (
SYSFILES) (NOTCOMPILEDFILES) (RESETVARSLST) (LOADPARAMETERS (QUOTE ((SEQUENTIAL T)))) (LISPXHIST) (
LISPXPRINTFLG T) (PRETTYHEADER "File created ") (LOAD-VERBOSE-STREAM T) (BELLS (QUOTE "")) (
LOADOPTIONS (QUOTE (SYSLOAD NIL T PROP ALLPROP))) (PRETTYDEFMACROS NIL) (PRETTYTYPELST NIL) (
FILEPKGTYPES NIL)) (ADDVARS (LOADEDFILELST)) (GLOBALVARS DWIMFLG UPDATEMAPFLG LOADOPTIONS 
LOADPARAMETERS FILERDTBL SYSFILES) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MAPC (QUOTE ((PUTD . /PUTD) (
PUTPROP . /PUTPROP) (PUTPROP . PUT) (PUTPROP . SAVEPUT) (ADDPROP . /ADDPROP) (PUT . /PUT) (PRIN1 . 
LISPXPRIN1) (PRIN2 . LISPXPRIN2) (PRINT . LISPXPRINT) (TERPRI . LISPXTERPRI) (SPACES . LISPXSPACES) (
GETPROP . GETP) (SET . SAVESET) (SET . /SET) (NILL . MISSPELLED?) (SETTOPVAL . /SETTOPVAL) (
BOOTSTRAP-NAMEFIELD . NAMEFIELD) (NILL . RESETRESTORE))) (FUNCTION (LAMBDA (X) (OR (CCODEP (CDR X)) (
MOVD (CAR X) (CDR X) NIL T))))) (AND (CCODEP (QUOTE BOOTSTRAP-NAMEFIELD)) (PUTD (QUOTE 
BOOTSTRAP-NAMEFIELD)))) (P (RADIX 10))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (* ; 
"eventually imported from FASL") (CONSTANTS FASL:SIGNATURE)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE 
DONTCOPY COMPILERVARS (ADDVARS (NLAMA DEFINE-FILE-INFO DECLARE%: PUTPROPS FILECREATED SELECTQ) (NLAML 
PRETTYCOMPRINT RPAQ? RPAQ RPAQQ) (LAMA)))))
(RPAQ? *DEFINE-FILE-INFO-ENV* (MAKE-DEFINE-FILE-INFO-ENV))
(RPAQ? EOLCHARCODE (CHCON1 "
"))
(RPAQ? PRETTYHEADER)
(RPAQ? DWIMFLG)
(RPAQ? UPDATEMAPFLG)
(RPAQ? DFNFLG)
(RPAQ? ADDSPELLFLG)
(RPAQ? BUILDMAPFLG)
(RPAQ? FILEPKGFLG)
(RPAQ? SYSFILES)
(RPAQ? NOTCOMPILEDFILES)
(RPAQ? RESETVARSLST)
(RPAQ? LOADPARAMETERS (QUOTE ((SEQUENTIAL T))))
(RPAQ? LISPXHIST)
(RPAQ? LISPXPRINTFLG T)
(RPAQ? PRETTYHEADER "File created ")
(RPAQ? LOAD-VERBOSE-STREAM T)
(RPAQ? BELLS (QUOTE ""))
(RPAQ? LOADOPTIONS (QUOTE (SYSLOAD NIL T PROP ALLPROP)))
(RPAQ? PRETTYDEFMACROS NIL)
(RPAQ? PRETTYTYPELST NIL)
(RPAQ? FILEPKGTYPES NIL)
(ADDTOVAR LOADEDFILELST)
(MAPC (QUOTE ((PUTD . /PUTD) (PUTPROP . /PUTPROP) (PUTPROP . PUT) (PUTPROP . SAVEPUT) (ADDPROP . 
/ADDPROP) (PUT . /PUT) (PRIN1 . LISPXPRIN1) (PRIN2 . LISPXPRIN2) (PRINT . LISPXPRINT) (TERPRI . 
LISPXTERPRI) (SPACES . LISPXSPACES) (GETPROP . GETP) (SET . SAVESET) (SET . /SET) (NILL . MISSPELLED?)
 (SETTOPVAL . /SETTOPVAL) (BOOTSTRAP-NAMEFIELD . NAMEFIELD) (NILL . RESETRESTORE))) (FUNCTION (LAMBDA 
(X) (OR (CCODEP (CDR X)) (MOVD (CAR X) (CDR X) NIL T)))))
(AND (CCODEP (QUOTE BOOTSTRAP-NAMEFIELD)) (PUTD (QUOTE BOOTSTRAP-NAMEFIELD)))
(RADIX 10)
NIL