(FILECREATED "14-OCT-83 06:30:00" {PHYLUM}<LISPCORE>LIBRARY>EVALHOOK.;3
 1395   

      changes to:  (VARS EVALHOOKCOMS)
		   (FNS PRINTEVAL EVALHOOK \NEWEVALFORM INSTALL.EVALHOOK)

      previous date: "14-OCT-83 03:37:58" {PHYLUM}<LISPCORE>LIBRARY>EVALHOOK.;1)


(PRETTYCOMPRINT EVALHOOKCOMS)

(RPAQQ EVALHOOKCOMS
 ((FNS EVALHOOK INSTALL.EVALHOOK \NEWEVALFORM PRINTEVAL)
		     (VARS (EVALHOOK))))
(DEFINEQ

(EVALHOOK

  [LAMBDA (X Y)
    (DECLARE
 (LOCALVARS X Y))                                (* lmm "14-OCT-83 03:42")

    (SETQ \EVALHOOK Y)
    (\OLD.EVAL X])

(INSTALL.EVALHOOK

  [LAMBDA NIL                                                (* lmm "14-OCT-83 03:24")

    (OR (GETD (QUOTE \OLD.EVAL))
	(PUTD (QUOTE \OLD.EVAL)
	      (GETD (QUOTE \EVALFORM))
	      T))
    (MOVD (QUOTE \NEWEVALFORM)
	  (QUOTE \EVALFORM])

(\NEWEVALFORM

  [LAMBDA (X Y)
    (DECLARE
 (LOCALVARS X Y))                                (* lmm "14-OCT-83 03:42")

    (COND
      (\EVALHOOK (SPREADAPPLY*(PROG1 \EVALHOOK (SETQ \EVALHOOK))
		   X))
      (T (\OLD.EVAL X Y])

(PRINTEVAL

  [LAMBDA (.PRINTHOOK.)                                      (* lmm "14-OCT-83 04:33")

    (DECLARE
 (LOCALVARS .PRINTHOOK.))
    (EVALHOOK
 (PRINT .PRINTHOOK. T)
	      (FUNCTION PRINTEVAL])
)

(RPAQQ EVALHOOK
 NIL)
(PUTPROPS EVALHOOK COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (406 1310 (EVALHOOK 416 . 582) (INSTALL.EVALHOOK 584 . 850) (\NEWEVALFORM 852 . 1090) (
PRINTEVAL 1092 . 1308)))))
STOP