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