Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0004/compilebang.com
There are no other files named compilebang.com in the archive.
(FILECREATED "16-MAR-82 00:00:44" ("compiled on " <LISPUSERS>COMPILEBANG.;3) (2 . 2) brecompiled
changes: COMPILE! in WORK dated "10-MAR-82 01:09:35")
(FILECREATED "18-JAN-82 17:08:00" {PHYLUM}<LISPUSERS>COMPILEBANG.;3 2258 changes to: COMPILE! previous
date: "30-NOV-81 12:08:21" {PHYLUM}<LISPUSERS>COMPILEBANG.;2)
COMPILE! BINARY
Q 7 N-. R X 7Z ,< @ ? ),~ Z ,< ,< @,< A,< @ A ` + 0Z Z CXB Z ,< Z ,< Z ,< Z ,< Z ,< Z ,< Z 3B + Z 3B + Z + Z" + Z ,< Z 2B + 7 Z ,< Z 2B + 7 Z ,< Z 3B + Z ,< D C+ Z ,< @ D@+ /Z -, + #+ $Z J,< Z !-, + (,< ,< $ K+ -B K3B + *Z $+ -,< L,< Z ),< , ,< ,< & L,~ XB Z ,~ 3B + 2Z + 3Z MXB D MZ 33B + 6 N,~ Z /,~
(VARIABLE-VALUE-CELL NOSAVE . 49)
(VARIABLE-VALUE-CELL NOREDEFINE . 43)
(VARIABLE-VALUE-CELL PRINTLAP . 31)
(VARIABLE-VALUE-CELL LISPXHIST . 3)
(VARIABLE-VALUE-CELL RESETVARSLST . 8)
(VARIABLE-VALUE-CELL NLAMA . 19)
(VARIABLE-VALUE-CELL NLAML . 21)
(VARIABLE-VALUE-CELL LAMS . 23)
(VARIABLE-VALUE-CELL LAMA . 25)
(VARIABLE-VALUE-CELL NOFIXFNSLST . 27)
(VARIABLE-VALUE-CELL NOFIXVARSLST . 29)
(VARIABLE-VALUE-CELL BYTECOMPFLG . 34)
(VARIABLE-VALUE-CELL LOCALVARS . 55)
(VARIABLE-VALUE-CELL SYSLOCALVARS . 62)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
(NIL VARIABLE-VALUE-CELL RESETY . 109)
(NIL VARIABLE-VALUE-CELL RESETZ . 104)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
UNION
(VARIABLE-VALUE-CELL NLAMA . 0)
(VARIABLE-VALUE-CELL NLAML . 0)
(VARIABLE-VALUE-CELL LAMS . 0)
(VARIABLE-VALUE-CELL LAMA . 0)
(VARIABLE-VALUE-CELL NOFIXFNSLST . 0)
(VARIABLE-VALUE-CELL NOFIXVARSLST . 0)
(VARIABLE-VALUE-CELL LAPFLG . 0)
(VARIABLE-VALUE-CELL STRF . 0)
(VARIABLE-VALUE-CELL SVFLG . 0)
(VARIABLE-VALUE-CELL LOCALVARS . 0)
(NIL VARIABLE-VALUE-CELL LCFIL . 0)
(T VARIABLE-VALUE-CELL LSTFIL . 0)
(T VARIABLE-VALUE-CELL SPECVARS . 0)
*DUMMY-COMPILED-FUNCTION*
VIRGINFN
ARGTYPE
LAMBDA
COMPILE1
ERROR
RESETRESTORE
ERROR!
(LIST3 SKNLST SKLA ASZ KT CF KNIL ENTERF) X ` 0 H . x 0 8 X 2 , p ( p
(PRETTYCOMPRINT COMPILEBANGCOMS)
(RPAQQ COMPILEBANGCOMS ((E (RESETSAVE CLISPIFYPRETTYFLG NIL)) (LISPXMACROS C) (FNS COMPILE!) (
USERMACROS C)))
(ADDTOVAR LISPXMACROS (C (COND (LISPXLINE (COMPILE! (CAR LISPXLINE) T NIL T)) (T C))))
(ADDTOVAR USERMACROS (C NIL (ORR (UP 1) NIL) (ORR ((E (COMPILE! (OR (LISTP (##)) (## !0)) T T T))) ((E
(QUOTE C?))))))
(ADDTOVAR EDITCOMSA C)
NIL