PDP-10 Archive: decus/20-0004/loadtimeconstant.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/loadtimeconstant.com

There are no other files named loadtimeconstant.com in the archive.

(FILECREATED "23-SEP-81 22:55:53" ("compiled on " 
<LISPUSERS>LOADTIMECONSTANT.;6) (2 . 2) bcompl'd in WORK dated NOBIND)
(FILECREATED " 2-NOV-79 10:40:54" <LISPUSERS>LOADTIMECONSTANT.;6 3030 
changes to: LOADTIMECONSTANTCOMS (LOADTIMECONSTANT MAXCMACRO) LTCDEFC 
LTCMAC previous date: "11-MAY-79 10:55:47" 
<LISPUSERS>LOADTIMECONSTANT.;5)

LTCDEFC BINARY
0)/-.)Z*,<ZB*,<@+@+&Z,<ZB-,/" ,\ DZ,< 
." ,\ D ,>(,>  ,^/3"++%Z,< ,<,XB-,ZZ2B-+Z,< ,<[B.,Z,< ,<,XB-,ZZ2B-+$Z,< ,<[B.,+
Z`,~Z,<Z!D.,~(@@@

` @(VARIABLE-VALUE-CELL NM . 76)
(VARIABLE-VALUE-CELL DF . 78)
100000
LASTLIT+1
(VARIABLE-VALUE-CELL J . 68)
(VARIABLE-VALUE-CELL END . 30)
NIL
(NIL VARIABLE-VALUE-CELL L . 70)
FIRSTLIT
LoadTimeConstant
EVAL
DEFC
(FFNCLD FFNOPD FFNCLA KNIL SKLST FFNOPA BHC IUNBOX ENTERF)Ph@hX

LTCMAC BINARY
-.ZZ,2B+ZXB-,+ZBZ,3B+Z,<[	,<,<Zw-,+ZpZ2B+ "+[QD "+ZwBZp,XBp[wXBw+/,,~Z
,~EH( @(VARIABLE-VALUE-CELL FORM . 47)
(VARIABLE-VALUE-CELL CLISPARRAY . 4)
ARGTYPE
((0 2) . 0)
LTCMAC
(CONSS1 BHC COLLCT SKNLST FMEMB SKLST KNIL GETHSH ENTERF)xpHP`p@	@8
(PRETTYCOMPRINT LOADTIMECONSTANTCOMS)
(RPAQQ LOADTIMECONSTANTCOMS ((FNS LTCDEFC LTCMAC) (MACROS CONSTANT 
LOADTIMECONSTANT) (P (CHANGENAME (QUOTE LAPBLOCK) (QUOTE DEFC) (QUOTE 
LTCDEFC)) (CHANGENAME (QUOTE BINRD) (QUOTE DEFC) (QUOTE LTCDEFC)) (MOVD?
 (QUOTE CONSTANT) (QUOTE LOADTIMECONSTANT))) (PROP MAXCMACRO 
LOADTIMECONSTANT)))
(PUTPROPS CONSTANT MACRO (MACROX (PROG ((VAL (APPLY (QUOTE PROG1) MACROX
))) (RETURN (COND ((CONSTANTOK VAL) (KWOTE VAL)) (T (CONS (QUOTE 
LOADTIMECONSTANT) MACROX)))))))
(PUTPROPS LOADTIMECONSTANT MACRO (ARGS (KWOTE (CONS (QUOTE 
LoadTimeConstant) (LTCMAC (CAR ARGS))))))
(CHANGENAME (QUOTE LAPBLOCK) (QUOTE DEFC) (QUOTE LTCDEFC))
(CHANGENAME (QUOTE BINRD) (QUOTE DEFC) (QUOTE LTCDEFC))
(MOVD? (QUOTE CONSTANT) (QUOTE LOADTIMECONSTANT))
(PUTPROPS LOADTIMECONSTANT MAXCMACRO (X (KWOTE (CONS LOADTIMECONSTANT (
LTCMAC (CAR X))))))
NIL