In WALK-METHOD-LAMBDA use eval-with-env to get access to the macros that are...

In WALK-METHOD-LAMBDA use eval-with-env to get access to the macros that are defined in the compiler environment
parent 905475f9
......@@ -164,7 +164,11 @@
in-closure-p t))))))
form))
(let ((si::*code-walker* #'code-walker))
(coerce method-lambda 'function)))
;; Instead of (coerce method-lambda 'function) we use
;; explicitely the bytecodes compiler with an environment, no
;; stepping, compiler-env-p = t and execute = nil, so that the
;; form does not get executed.
(si::eval-with-env method-lambda env nil t nil)))
(values call-next-method-p
next-method-p-p
in-closure-p)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment