Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/all.com
There are no other files named all.com in the archive.
(FILECREATED " 6-May-82 16:03:05" ("compiled on " <DONC>ALL.LISP.33) (2 . 2) 
tcompl'd in "INTERLISP-10 " dated "18-Mar-82 14:03:52")
(FILECREATED " 6-May-82 16:02:55" <DONC>ALL.LISP.33 7194 changes to: PP-ALL 
ALLCOMS MAKENEWCOM ALLCONTENTS NEW-ALL ALL-TYPES ADD-ALL DEL-ALL previous date: 
" 2-Mar-81 14:13:40" <DONC>ALL.LISP.30)

ADD-ALL BINARY

-. @ ,~Z-,+Z,<[Z,XBZXB[Z2B+[[ZZ7@7ZXB
+[XBZ,<ZXB ,\,2B+)Z-,+(Z,<@ +'Z`-,++&ZXB-,+$[Z[,3B+$ZXB3B+$Z2B+#ZXB`+&[`XB`+Z`,~2B+)Z,~Z,<[DXB3B+_Z-,+B[+,<@ +=Z`-,+2+<ZXB-,+:[3,<[ D3B+:Z42B+9ZXB`+<[`XB`+0Z`,~XB3B+B[,ZXB>Z5XBZ=XB.Z?[A,3B+EZ,~Z@,<@ +\Z`-,+J+[ZXB7ZB3B+[-,+RZK-,+R[J,<[MD3B+R+[[BZZO3B+XZS-,+Y[RZ-,+Y[VXBX[`XB`+HZ`,~ZY,<ZP[\,D	+DZ3B+p,<[*D3B+([aXB],<ZdZZ_2B+hZp+j[eXBh+e/Zi,<Z),<Z],<,[j,D	+DZcXBn,<[p3B+w[qZZ,<ZkD
2B+xZp+y[sXBx+q/Zx,<Zu,<Zl,<,[z,D	+D  J1HA)DR$B)D HAR0(VARIABLE-VALUE-CELL COM . 224)
(VARIABLE-VALUE-CELL NAME . 246)
(VARIABLE-VALUE-CELL TYPE . 248)
(VARIABLE-VALUE-CELL NEAR . 204)
(NIL VARIABLE-VALUE-CELL TYPLST . 139)
(NIL VARIABLE-VALUE-CELL TEM . 251)
(NIL VARIABLE-VALUE-CELL ALLPROPS . 128)
(NIL VARIABLE-VALUE-CELL PROPLST . 130)
*
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL TL . 67)
ASSOC
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL TP . 170)
INTERSECTION
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL TP . 0)
/RPLACD
ALPHORDER
(LIST2BHCpCONSXKTSKNLSTKNIL FMEMBKNOBALIST2 SKLST ENTERF)`nz

8a
 Dh9x,(0!xDpX
hO	X4``

ALLCONTENTS BINARY
q[j-.[@\,~[Z2B]+[[ZZ7@7ZXBZ,<[[Z,<,<^,[	,,XB
XBZXB-,+,<^"_[XBZZ,2B++Z3B_++Z-,+*Z,<@` +)Z`-,++(ZXB-,+&[Z[,3B+&Z!2B+%ZXB`+([`XB`+Z`,~2B++Z,~Z 2B+zZ2B_+dZ,<,<,<,<Zw~-,+3Zw+Zw~,<@a +Z[,<,<,<,<Zw~-,+:Zw+Zw~,<@b +PZ-,+O[=,<,<Zw-,+FZpZ2B+D "+F[QD "+Zw,<@b +LZ5,<Z,<,,~Zp,XBp[wXBw+@Z,~XBp-,+XZw3B+TZpQD+UZpXBw  [2D+VXBw[w~XBw~+8XBp-,+bZw3B+^ZpQD+_ZpXBw  [2D+`XBw[w~XBw~+0Z.,<,<,<,<Zw~-,+iZw+Zw~,<@a +pZ,[I,3B+oZl,,~Z,~XBp-,+yZw3B+uZpQD+vZpXBw  [2D+vXBw[w~XBw~+f2B+&Zk2Bc+Zd3B+7Z,~2B_+Z},<@c +Z`-,++ZXBn,<@e +Z`-,+
+ZXB-,+2B+ZXB`+[`XB`+Z`,~3B+Z2B+ZXB`+[`XB`+Z`,~,~Z,<@f +&Z`-,++%ZXBZ{[,3B+#Z2B+"ZXB`+%[`XB`+Z`,~,~-,+U,<,<Zw-,+/ZpZ2B+- "+.[QD "+Zw,<@h +QZ,<ZZ7[ZZ1H+72D+4[ ,\,2B+PZ2-,+PZ:Z37[ZZ1H+A2D+=,<@h +OZ`-,+E+NZXB>-,+M[1Z[E,3B+MZH2B+LZXB`+N[`XB`+CZ`,~,~Z,~3B+TZwZp,XBp[wXBw+(ZG,<Z+,<Z<Dj[ ,\,,~0p%A$D"@ H "HVF)ERDIL"@P & I@(VARIABLE-VALUE-CELL CMD . 31)
(VARIABLE-VALUE-CELL NAME . 429)
(VARIABLE-VALUE-CELL TYPE . 427)
(NIL VARIABLE-VALUE-CELL TYPLIST . 52)
(NIL VARIABLE-VALUE-CELL CONTENTS . 431)
*
VARS
"Bad Format in ALL list"
HELP
PROPS
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL TL . 71)
(VARIABLE-VALUE-CELL C . 321)
(VARIABLE-VALUE-CELL TP . 404)
(VARIABLE-VALUE-CELL PR . 148)
ALL
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL C . 0)
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL P . 278)
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL C . 0)
(VARIABLE-VALUE-CELL X . 376)
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL TP . 0)
ASSOC
(CONSNL COLLCT URET2 URET4 KT SKLST KNIL FMEMB SKNLST CONSS1 CONS LIST2 KNOB 
ENTERF)/px{`p<x

 [
>RK A(7@+"(

pf

`bPX
0P8C870,0*P#p0I  
Ph9(ph	@

DEL-ALL BINARY
\SY-.S@T,~[Z2BV+	[[ZZ7@7ZXB+
[XB	Z-,+Z,<[
Z,XB

Z,<[
DVXB2B+Z,~Z-,+*[ZXB3B+*ZXB3B+*Z,<@W +(Z`-,++'ZXB-,+&ZZ,3B+&Z!2B+%ZXB`+'[`XB`+Z`,~XB2B+*+Z [(,2B+-+Z+XB,<[.ZZ*2B+2Zp+4[/XB2+//Z3,<[4[DX[-3B+9Z,~Z3B+DXB5XB7,<Z;[;Z2B+@Zp+A[=XB@+</Z@,<[B[DX[<3B+F+8ZXBC,<[GZZD2B+KZp+M[HXBK+H/ZL,<[M[DX[F3B+R+8ZY,~0!%BI

H$
 L'(VARIABLE-VALUE-CELL COM . 160)
(VARIABLE-VALUE-CELL NAME . 31)
(VARIABLE-VALUE-CELL TYPE . 96)
(NIL VARIABLE-VALUE-CELL TEM . 146)
(NIL VARIABLE-VALUE-CELL TEM2 . 157)
(NIL VARIABLE-VALUE-CELL INPROP . 115)
*
ASSOC
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL TP . 70)
/RPLACD
ALL
(BHC KT FMEMB SKNLST KNIL ALIST2 SKLST KNOB ENTERF)	`BP%,(`
H`=08x- $00p@

NEW-ALL BINARY
3,1-.,Z-,+Z,<[Z,XBZXBZZ,2B+Z-,+Z,<@/<+Z`-,++ZXB-,+[	Z[,3B+Z2B+ZXB`+[`XB`+
(VARIABLE-VALUE-CELL TYPE . 0)
(VARIABLE-VALUE-CELL LISTNAME . 74)
(VARIABLE-VALUE-CELL FILE . 0)
(VARIABLE-VALUE-CELL $TYPE$ . 83)
(VARIABLE-VALUE-CELL ALL-TYPES . 79)
(0 . 1)
NIL
(NIL VARIABLE-VALUE-CELL AT . 41)
ALL
*
(ALIST3 LIST3 SET LIST2 KT SKNLST KNIL FMEMB ALIST2 SKLST ENTERF)@pH8"@`@	#`0

PP-ALL BINARY
;69-.6[,<,<,<,<Zw~-,+Zw+Zw~,<@7 +,[,<,<Zw-,+ZpZ2B+ "+[QD "+Zw,<@7 +)Z-,+'[,<,<Zw-,+ZpZ2B+ "+[QD "+%Zw,<@8 +"Z	,<Z,<,,~Zp,XBp[wXBw+/Z8,,~,<Z,,~Zp,XBp[wXBw+
XBp-,+5Zw3B+1ZpQD+2ZpXBw  [2D+2XBw[w~XBw~+( R(J$@(VARIABLE-VALUE-CELL A . 3)
(VARIABLE-VALUE-CELL NAME . 80)
(VARIABLE-VALUE-CELL TYPE . 42)
(VARIABLE-VALUE-CELL P . 65)
PROPS
(ALIST2@CONS21BHC COLLCT LIST2 SKLST URET2 URET4 SKNLST KNIL ENTERF))'&+@(`@4x`
(PRETTYCOMPRINT ALLCOMS)
(RPAQQ ALLCOMS ((FNS ADD-ALL ALLCONTENTS DEL-ALL NEW-ALL PP-ALL) (VARS ALL-TYPES
) (FILEPKGCOMS * ALLFILEPKGCOMS) (ADVISE MAKENEWCOM) (DECLARE: DONTEVAL@LOAD 
DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML PP-ALL) (LAMA)))))
(RPAQQ ALL-TYPES (COMMENTS FNS MACROS VARS LISPXMACROS USERMACROS))
(RPAQQ ALLFILEPKGCOMS (ALL))
(FILEPKGCOM (QUOTE ALL) (QUOTE MACRO) (QUOTE (X (COMS * (PP-ALL X)))) (QUOTE 
CONTENTS) (QUOTE ALLCONTENTS) (QUOTE DELETE) (QUOTE DEL-ALL) (QUOTE ADD) (QUOTE 
ADD-ALL))
(FILEPKGTYPE (QUOTE ALL) (QUOTE DESCRIPTION) (QUOTE "all") (QUOTE NEWCOM) (QUOTE
 NEW-ALL) (QUOTE GETDEF) (QUOTE (LAMBDA (NAME TYPE) NIL)))
(PUTPROPS MAKENEWCOM READVICE (NIL (BEFORE NIL (COND ((OR (FMEMB TYPE ALL-TYPES)
 (AND (EQ TYPE (QUOTE PROPS)) (for AT in ALL-TYPES thereis (AND (LISTP AT) (
FMEMB (CADR (LISTP NAME)) (CDR AT)))))) (SETQ $TYPE$ TYPE) (SETQ TYPE (QUOTE ALL
)))))))
(READVISE MAKENEWCOM)
NIL