make-lexical-environment

[cperdue@Sun.COM (Cris Perdue)]

Is the following code adequate for make-lexical-environment (compared
with the code in walk.lisp), and if not, is it inadequate for a good
reason related to the definition of Common Lisp, or just because
implementation quirks of some Lisps?  This code is certainly a bit
simpler.

(defmacro current-env (&environment e)
  `',e)

(defun make-lexical-environment (form env)
  (evalhook
   `(,(first form)
     ,(second form)		; Local macro defns
     ()				; No declarations, though according to the
				; PCL comments, they are illegal here.
     (current-env))		; body of the macrolet
   nil nil env))

Thanks for any info on this.

				-Cris