(FILECREATED "21-AUG-81 12:37:07" <LISPUSERS>SHOW.;14 1397   

     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 (510 1082 (IT 520 . 801) (SHOW 803 . 1080)))))
STOP