Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(FILECREATED "21-AUG-81 12:37:07" <LISPUSERS>SHOW.;14 1446
changes to: SHOW IT
previous date: "31-JUL-79 09:55:23" <LISPUSERS>SHOW.;13)
(PRETTYCOMPRINT SHOWCOMS)
(RPAQQ SHOWCOMS [(FNS IT SHOW)
(ADDVARS [LISPXMACROS (SHOW (SHOW (COND [(AND (NULL (CDR LISPXLINE))
(LISTP (CAR LISPXLINE]
(T LISPXLINE]
(LISPXCOMS SHOW))
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA IT)
(NLAML)
(LAMA])
(DEFINEQ
(IT
[NLAMBDA LINE
(CLISP:) (* rmk: "21-AUG-81 12:36")
(* Calls VALUOF to bypass its own entry on the historylist)
(VALUOF LINE (EDITFINDP LISPXHISTORY:1:1:1 'IT])
(SHOW
[LAMBDA (EVENTSPEC)
(CLISP:) (* rmk: "21-AUG-81 12:36" posted: "13-OCT-77 12:50")
EVENTSPEC_(VALUOF EVENTSPEC T)
(RESETFORM (OUTPUT T)
(PROGN (PRINTDEF EVENTSPEC 0)
(TERPRI)))
EVENTSPEC])
)
(ADDTOVAR LISPXMACROS [SHOW (SHOW (COND [(AND (NULL (CDR LISPXLINE))
(LISTP (CAR LISPXLINE]
(T LISPXLINE])
(ADDTOVAR LISPXCOMS SHOW)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDTOVAR NLAMA IT)
(ADDTOVAR NLAML )
(ADDTOVAR LAMA )
)
(DECLARE: DONTCOPY
(FILEMAP (NIL (527 1115 (IT 539 . 824) (SHOW 828 . 1112)))))
STOP