diff --git a/code/eval.lisp b/code/eval.lisp index 07da893c96777545af699a7ffc7c5a05755de751..d5b890fa9b9414a0cc2306a75ffa0ace321fa653 100644 --- a/code/eval.lisp +++ b/code/eval.lisp @@ -9,8 +9,7 @@ ;;; ;;; (in-package "LISP") -(export '(eval *evalhook* - *applyhook* evalhook applyhook constantp quote proclaim +(export '(eval constantp quote proclaim eval-when progn prog1 prog2 let let* do do* dotimes dolist progv and or cond if the macro-function special-form-p *macroexpand-hook* @@ -33,6 +32,10 @@ lambda &optional &rest &key &aux &body &whole &allow-other-keys &environment)) +#| Not implemented: +*evalhook* *applyhook* evalhook applyhook +|# + (export '(eval::interpreted-function-p eval::interpreted-function-lambda-expression) "EVAL") @@ -210,35 +213,6 @@ (when (funcall test elt) (return elt))))) -(defvar *evalhook* nil - "Used to substitute another function for EVAL, for use by STEP, etc. - If *EVALHOOK* is not NIL, its value must be a function of the two - arguments, the form to evaluate and the environment to evaluate in. - This function does the evaluation instead of EVAL.") - -(defvar *applyhook* nil - "Used to substitute another function for the implicit APPLY normally done - within EVAL. If *APPLYHOOK* is not NIL, its value must be a function - which takes as arguments the function to be applied, the list of arguments - it is to be applied to, and the lexical environment. This function does - the application instead of EVAL.") - -#| -(defun evalhook (form evalhookfn applyhookfn &optional env) - "Evaluates Form with *Evalhook* bound to Evalhookfn and *Applyhook* bound - to applyhookfn. Ignores these hooks once, for the top-level evaluation - of Form." - ###) -|# - -#| -(defun applyhook (function args evalhookfn applyhookfn &optional env) - "Applies Function to Args, with *Evalhook* bound to Evalhookfn and with - *Applyhook* bound to Applyhookfn. Ignores the hook function once, for the - top-level application of Function to Args." - ###) -|# - ;;;; Syntactic environment access: