From 977b95a1a3d72e4009edc9837a76ad0278f362fb Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 3 Dec 1990 17:14:59 +0000 Subject: [PATCH] Changed environment-macro to return the original "LAMBDA" rather than in interpreted function. In discovering this fix, I found out that PCL isn't "really" using the environment at all, but is rather making a bogus "macro" entry in the environment that isn't a lambda at all, but rather a representation of what it thinks is in the environment. My change to make the environment representation correct doesn't hurt anything, but is actually irrelevent to PCL's usage. --- pcl/walk.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pcl/walk.lisp b/pcl/walk.lisp index c26c164a6..1003ea606 100644 --- a/pcl/walk.lisp +++ b/pcl/walk.lisp @@ -853,7 +853,7 @@ (let ((entry (assoc macro (c::lexenv-functions env) :test #'eq))) (and entry (eq (cadr entry) 'c::macro) - (cddr entry))))) + (function-lambda-expression (cddr entry)))))) ); end of #+:CMU -- GitLab