Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/simplefns.com
There are no other files named simplefns.com in the archive.
(FILECREATED "11-JUL-82 23:42:06" ("compiled on " <LISPUSERS>SIMPLEFNS.;5) (2 . 2) brecompiled exprs: 
nothing in USYS dated "11-JUL-82 23:39:35")
(FILECREATED "11-JUL-82 23:41:59" <LISPUSERS>SIMPLEFNS.;5 8475 changes to: (VARS SIMPLEFNSCOMS) 
previous date: " 2-MAR-82 09:09:24" <LISPUSERS>SIMPLEFNS.;4)
OCCURRENCES BINARY
-.-.-.@,~Zp,<8,Z,~ZZp2B+

 .",XB
+Zp-,+Z+Zp,<,[p,<,+a(VARIABLE-VALUE-CELL ITEM . 16)
(STRUCTURE . 1)
(VARIABLE-VALUE-CELL ITEM . 0)
(VARIABLE-VALUE-CELL COUNT . 23)
*OCCURRENCES*
((UNBOXED-NUM . 1) VARIABLE-VALUE-CELL ITEM . 0)
(0 VARIABLE-VALUE-CELL COUNT . 0)
(KTSKNLST URET1 MKN BINDB BLKENT ENTERF)x


COMBINATIONS BINARY
0./-..[`3B+"[`B.,<,<,<,<Zw~-,+Zw+Zw~,<Z`,<,<Zw-,+ZpZ2B+ "+[QD "+Zw,<ZpZw~,/Zp,XBp[wXBw+/XBp-,+ Zw3B+ZpQD+ZpXBw  [2D+XBw[w~XBw~+Z`,<,<Zw-,+*ZpZ2B+( "+)[QD "+Zw,Zp,XBp[wXBw+#@@QI"@(CLIST . 1)
COMBINATIONS
(CONSNL URET2 SKLST COLLCT BHC CONS URET4 SKNLST KNIL ENTER1)8(HPHP

xp&@ 0`hX
DKILL BINARY
! -.Z`-,+,~Z`Z`2B+Z`[`2B+Z`ZXDZQDZ,~[`3B+Z`[`ZXD[`[QD,~Z`ZXDZ,~,<`[p-,+Z`[pZ2B+Zp[p[QD+Z`,<[wXBw,\3B++Z`+@ 0(X . 1)
(L . 1)
(URET1 SKLST KNIL SKNLST ENTER2)xP0H 	
DKILLQ BINARY
-.,<`,<`"D,~(X . 1)
(L . 1)
EVAL
DKILL
(ENTER2)
FILE BINARY
1%/-.%[`3B+

[`[2B+

[`ZZ7@7Z+

[`D',<'"(,<@( ,~,<(Z,<,,Z,XBXB`,<*,<+,<@+`+ZZ-XBZwZ8B-Zw~XB8Z,~2B+Z.XB[`XB,<(Z`Z[D.Z3B+$ /,~Z`,~B$*1	(ARGS . 1)
(VARIABLE-VALUE-CELL RESETVARSLST . 62)
FILECOMS
/SETATOMVAL
10
RADIX
(VARIABLE-VALUE-CELL OLDVALUE . 33)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 68)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
MAKEFILE
ERROR
APPLY
ERROR!
(KT CF CONS CONSNL LIST2 KNOB SKLA KNIL ENTER1)H@0(8h8h0
FIRSTPART BINARY


	-.	,<`,<`"
DXB`3B+Z`[`,3B+Z`,~Z,~@(WHOLE . 1)
(TAIL . 1)
LENGTH
LASTN
(EQUAL KNIL ENTER2)pP
IFF BINARY
	
-.	Z`2B+7Z,<Z`2B+7Z,\2B7Z,~(ARG1 . 1)
(ARG2 . 1)
(KT KNIL ENTER2)@`0
KILL BINARY



-.
Z`-,+,~Z`Z`2B+[`,~Z`,<,<`[`D,,~(ELT . 1)
(LIST . 1)
KILL
(CONSS1 SKNLST ENTER2)

LEAVES BINARY
-.Z`-,+,,~,<,<,<,<Zw~-,+Zw+Zw~BXBp-,+Zw3B+ZpQD+ZpXBw  [2D+XBw[w~XBw~+DI(X . 1)
LEAVES
(SKLST URET4 KNIL CONSNL SKNLST ENTER1)	H`0
SEARCH BINARY
-.,<`,<,<ZwXBpZp-,++Z`Zp2B+	Zp+,<`ZwDXBw3B+



!`(ELT . 1)
(STRUCT . 1)
SEARCH
(URET3 SKNLST KNIL ENTER2)X	

8
SINGLES BINARY
-.Z`-,+,<,<,<,<Z`-,++ZXBp-,+

ZpZw~,3B++,<,<w~$3B++ZpXBwZw3B+,<Zw,XBw~,\QB+Zw,XBwXBw~[`XB`+ZwZ`QDZw~+,~2a(LST . 1)
MEMBER
(URET4 CONSNL FMEMB SKLA SKNLST KNIL SKLST ENTER1)8h	hXH
STRINGSUBST BINARY
{qx-. qZ`-,+BsXB`,<`"s,<,<`"s,< w,>p,> p ,^/2B+Z`3B+,<`"t+,<`"sXB`,<,<t,<`,<`,<w&uXBp2B++,<`,<,<`&u p,>p,> w~.Bx,^/,XBp+Zw/+o w,>p,> p ,^/2"+JZ`3B+%,<`"t+&,<`"sXB` w,>p,> p ,^///",,<,<,<,<t,<`,<`,<w&uXBp2B+1+I,<`,<,<`&u,<` w,>p,> w}.Bx,^/,,<,<ZvHvXBw3B+A,<` w,>p,> w}.Bx,^/,,<,<w~&u,<`,<t,<w},<`(v p,>p,> w}.Bx,^/,XBp+-Zw/+o,<,<,<t,<`,<`$u3B+P,<`"tXB`+UZ`3B+S,<`"t+n,<`"s+nZp2B+W+l,<w,<`,<,<`,<`FuXBw~3B+b w~/",,< w~,>p,> w|.Bx,^/,XBw~,\FvXBw3B+h,<Zw3B+gZ`,,+kZw3B+kZ`,DwXBw+UZt,<,<w~$w/XB`Z`+ %R&(	i&I) $JRl` 	Id(NEW . 1)
(OLD . 1)
(STRING . 1)
(COPYFLG . 1)
MKSTRING
NCHARS
CONCAT
1
STRPOS
RPLSTRING
""
SUBSTRING
NCONC
APPLY
(URET2 CONSS1 CONSNL MKN KNIL BHC SKNSTP ENTER4)qhk

 ]	@,8

H[
hR	hL	8;1X-8

J	@*0
SUBSETP BINARY


-.

,<`,<,<Zw-,++ZXBp,<,<`$
Z+[wXBw+Z+0X (SMALL . 1)
(LARGE . 1)
MEMBER
(KT URET3 SKNLST KNIL ENTER2)HP

0
UNATTACH BINARY
-.Z`-,+[`ZXD[`[QD,~Z,~(L . 1)
(KNIL SKLST ENTER1)x0
(PRETTYCOMPRINT SIMPLEFNSCOMS)
(RPAQQ SIMPLEFNSCOMS ((DECLARE: EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T))) (FNS 
COMBINATIONS DKILL DKILLQ FILE FIRSTPART IFF KILL LEAVES SEARCH SINGLES STRINGSUBST SUBSETP UNATTACH) 
(PROP MACRO IFF) (COMS (FNS OCCURRENCES OCCURRENCES1) (BLOCKS (OCCURRENCES OCCURRENCES OCCURRENCES1)))
 (LOCALVARS . T) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA FILE) (
NLAML DKILLQ) (LAMA)))))
(PUTPROPS IFF MACRO ((ARG1 ARG2) (EQ (NOT ARG1) (NOT ARG2))))
NIL