From 76a0f027a65122bfb68443a12872d0d26c070afb Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 13 Jul 2010 23:18:07 +0200 Subject: [PATCH] When using DEFMETHOD we called EVAL-WITH-ENV using :load-toplevel mode instead of :execute. This causes some trouble. Until the bytecodes compiler is revised we may safely fall back to :execute. --- src/clos/method.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clos/method.lsp b/src/clos/method.lsp index 3765ab86c..85164aa9f 100644 --- a/src/clos/method.lsp +++ b/src/clos/method.lsp @@ -168,7 +168,7 @@ ;; 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))) + (si::eval-with-env method-lambda env nil t t))) (values call-next-method-p next-method-p-p in-closure-p)))