Skip to content
Snippets Groups Projects
Commit 7ad5bfd6 authored by ram's avatar ram
Browse files

Made %DEFMACRO set the interpreted function name to "DEFMACRO <name>" rather

than just <name>.  Also, changed %DEFUN to set the function name.
parent 2a053fef
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment