From 7ad5bfd657a35182fde1f7237c0b33e152abd112 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 8 Feb 1990 14:27:56 +0000
Subject: [PATCH] Made %DEFMACRO set the interpreted function name to "DEFMACRO
 <name>" rather than just <name>.  Also, changed %DEFUN to set the function
 name.

---
 code/macros.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/code/macros.lisp b/code/macros.lisp
index 29ecd9df0..0c0d1ba74 100644
--- a/code/macros.lisp
+++ b/code/macros.lisp
@@ -126,7 +126,8 @@
   ;; environment, but is read with the NEW-COMPILER feature.
   (when (fboundp 'eval:interpreted-function-p)
     (assert (eval:interpreted-function-p definition))
-    (setf (eval:interpreted-function-name definition) name)
+    (setf (eval:interpreted-function-name definition)
+	  (format nil "DEFMACRO ~S" name))
     (setf (eval:interpreted-function-arglist definition) lambda-list))
   (c::%%defmacro name definition doc))
 ;;;
@@ -267,6 +268,10 @@
 ;;;
 (defun c::%defun (name def doc source)
   (declare (ignore source))
+  #+new-compiler
+  (assert (eval:interpreted-function-p def))
+  #+new-compiler
+  (setf (eval:interpreted-function-name def) name)
   (c::%%defun name def doc))
 
 
-- 
GitLab