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