PDP-10 Archive: decus/20-0004/scratchlist.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/scratchlist.com

There are no other files named scratchlist.com in the archive.

(FILECREATED "24-SEP-81 21:45:08" ("compiled on " <LISPUSERS>SCRATCHLIST.;7) (2
 . 3) bcompl'd in WORK dated NOBIND)
(FILECREATED "22-AUG-80 21:45:38" <LISPUSERS>SCRATCHLIST.;7 2365 changes to: 
SCRATCHLIST previous date: "14-APR-79 13:25:18" <LISPUSERS>SCRATCHLIST.;6)

ADDTOSCRATCHLIST BINARY

	
-.	[-,+Z,<Z, ,\QD[XBZXD,~(VARIABLE-VALUE-CELL VALUE . 15)
(VARIABLE-VALUE-CELL !SCRATCHTAIL . 14)
(CONSNL KNIL SKNLST ENTERF)

SCRATCHLIST BINARY
! -.Z,<,<$-,+Z,,<,<@@+ZXBZ,<[,<,<&ZZ2B+Z,~[

,<@ ,~Z,<[

,<Z,<,<$ ,\D Z  [2D+ZQDZ,~,~!$1 @(VARIABLE-VALUE-CELL ARGS . 20)
INTERNAL
EVAL
(VARIABLE-VALUE-CELL !SCRATCHLIST . 45)
(VARIABLE-VALUE-CELL !SCRATCHTAIL . 39)
PROGN
APPLY
(VARIABLE-VALUE-CELL L2 . 53)
RPLACD
(CONSNL KNIL SKNLST ENTERF)Xp
(PRETTYCOMPRINT SCRATCHLISTCOMS)
(RPAQQ SCRATCHLISTCOMS ((FNS ADDTOSCRATCHLIST SCRATCHLIST) (PROP MACRO 
SCRATCHLIST ADDTOSCRATCHLIST) (PROP INFO SCRATCHLIST) (DECLARE: DONTEVAL@LOAD 
DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA SCRATCHLIST) (NLAML) (LAMA
)))))
(PUTPROPS SCRATCHLIST MACRO ((SCRATCHLIST . FORMS) ((LAMBDA (!SCRATCHLIST 
!SCRATCHTAIL) (DECLARE (SPECVARS !SCRATCHLIST !SCRATCHTAIL)) (SETQ !SCRATCHTAIL
 !SCRATCHLIST) (PROGN . FORMS) (COND ((EQ !SCRATCHTAIL !SCRATCHLIST) NIL) (T (
PROG ((L2 (CDR !SCRATCHLIST))) (RPLACD !SCRATCHLIST (PROG1 (CDR !SCRATCHTAIL) (
RPLACD !SCRATCHTAIL NIL))) (FRPLACD (FLAST !SCRATCHLIST) L2) (RETURN L2))))) (
OR (LISTP SCRATCHLIST) (CONS)) NIL)))
(PUTPROPS ADDTOSCRATCHLIST MACRO ((VALUE) (FRPLACA (SETQ !SCRATCHTAIL (OR (
LISTP (CDR !SCRATCHTAIL)) (CDR (FRPLACD !SCRATCHTAIL (CONS))))) VALUE)))
(PUTPROPS SCRATCHLIST INFO EVAL)
NIL