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