Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/compmoderec.com
There are no other files named compmoderec.com in the archive.
(FILECREATED "16-DEC-81 09:22:31" ("compiled on " <LISPUSERS>COMPMODEREC.;1) (2 . 2) bcompl'd in 
"INTERLISP-MAXC " dated " 1-DEC-81 19:19:31")
(FILECREATED "16-DEC-81 09:22:16" <LISPUSERS>COMPMODEREC.;1 1298 changes to: COMPRECTRAN)

COMPRECTRAN BINARY
bZ_-.Z Z2B[+[[,<Zp-,+Z+Zp,<,<w/@[ +Z[Z1B+*-,+*,2B7 ,~3B+Zp+[pXBp+/+R3B\+3B\+2B]++[[,<Zp-,+Z+*Zp,<,<w/@[ +&Z\Z1B+%*-,+%*,2B7 ,~3B+(Zp+*[pXBp+/+R2B]+>[[,<Zp-,+0Z+=Zp,<,<w/@[ +:Z]Z 1B+8*-,+9*,2B7 ,~3B+<Zp+=[pXBp+-/+R2B^+R[,[,<Zp-,+CZ+QZp,<,<w/@[ +MZ^Z41B+L*-,+L*,2B7 ,~3B+OZp+Q[pXBp+A/+R ^Z[Z,<@_ ,~Z,<[?Z[V,,,~I%~I%`PY \
$K(VARIABLE-VALUE-CELL DECL . 174)
COMPILEMODE
D
(VARIABLE-VALUE-CELL X . 143)
PDP-10
MAXC/10
MAXC
VAX
JERICHO
SHOULDNT
(VARIABLE-VALUE-CELL RESULT . 176)
(CONSS1 CONS KT FMEMB SKLST BHC KNIL SKNLST ENTERF) 	P9`L%x	(78R`>(+p	hM	HC0:0x&X Bp`
(PRETTYCOMPRINT COMPMODERECCOMS)
(RPAQQ COMPMODERECCOMS ((E (RESETSAVE CLISPIFYPRETTYFLG NIL)) (ADDVARS (CLISPRECORDTYPES COMPREC)) (P 
(MOVD? (QUOTE RECORD) (QUOTE COMPREC))) (PROP USERRECORDTYPE COMPREC) (FNS COMPRECTRAN)))
(ADDTOVAR CLISPRECORDTYPES COMPREC)
(MOVD? (QUOTE RECORD) (QUOTE COMPREC))
(PUTPROPS COMPREC USERRECORDTYPE COMPRECTRAN)
NIL