Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/simplify.com
There are no other files named simplify.com in the archive.
(FILECREATED "16-NOV-81 00:09:27" ("compiled on " <LISPUSERS>SIMPLIFY.;3) (2 . 2) bcompl'd in 
"INTERLISP-MAXC " dated "15-NOV-81 22:11:46")
(FILECREATED " 6-NOV-79 17:25:50" <LISPUSERS>SIMPLIFY.;3 4183 changes to: APPLYFORM previous date: 
" 6-NOV-79 16:53:20" <LISPUSERS>SIMPLIFY.;2)

APPLYFORM BINARY
#-.-.,<,<Zw~-,ZZ2B+"[w~-,ZZ-,+"[w~Z[2B+"[w~ZZXBw-,+"3B+"[w~[[3B+Z[w~[,+[w~[ZXBp,<w,W2B+,<w,<w,<,$3B+"ZwZw2B+Zp+,<w,<,<w,g+,<w~,<w~,+-.,<`,<`,)Z3B+(7Z,~,<p,<,<Zw-,+-+=ZXBpZ&2B+0+=Zp-,+6,<,<w},>2B+;,<w~,<w,)+;Zw~Zp2B+;Z.3B+:Z+;ZXB8[wXBw++Zw+Zw2B+@Z+3B+B2B+EZp[wZ,+2B+V[wZ,<,<,<Zw-,+J+UZXBpZw~,<Zw-,+OZw+O,\2B+SZp2B+RZXBw+U[wXBw+HZw/+Z+Zp-,77+Zp-,ZZ3B+a3B+a3B+a3B+a2B+d[pZ-,77++eZZp-,Z+Zp-,+,<,<w,>3B+lZp+,<,<,<w,<,<Zw-,+p+zZXBp,<,<w|,<w|,<,gXBw},\3B+yZp2B+xZXBw+z[wXBw+nZw/XBp3B+,<w,<Zw-,+ZpZ2B+ "+[QD "+Zw,<Zw~2B+	,<w|,<w|,<w,g+

x

$J`"$B"d ((FN . 1)
(ARG1 . 1)
(VARIABLE-VALUE-CELL FLG . 118)
LAMBDA
PROGN
*ONCE*
((UNBOXED-NUM . 3) VARIABLE-VALUE-CELL FLG . 0)
FAILED
ONCE
QUOTE
NLAMBDA
PROG
CAR
CDR
CADR
CDDR
(COLLCT URET3 SKSTP SKNLA URET1 SKNA BHC FMEMB URET2 URET5 SKNLST KT BINDB LIST2 URET4 CONS SKLA SKLST
 KNIL BLKENT ENTER2)xp@lfcg

HZY @VEX
pEhxp	 ,x

8Y
0@P@H"Xx

pe

@\ W
 I	9@+0)H

H

SIMPLIFY BINARY
-.Z,~(VARIABLE-VALUE-CELL FORM . 3)
(ENTERF)
(PRETTYCOMPRINT SIMPLIFYCOMS)
(RPAQQ SIMPLIFYCOMS ((* Tools for symbolic simplification of LISP forms) (FNS SIMPLIFY) (FNS APPLYFORM
 ONCE ONCE1 OPAQUE SIMPLEP SUBSTVAL) (BLOCKS (APPLYFORM APPLYFORM ONCE ONCE1 OPAQUE SIMPLEP SUBSTVAL))
))
NIL