Skip to content
Snippets Groups Projects
Commit 8232cba2 authored by ram's avatar ram
Browse files

Make SET-FUNCTION-NAME return the function, even when called on interpreted

functions.
parent 7dd60d58
No related branches found
No related tags found
No related merge requests found
......@@ -81,6 +81,7 @@
;;;
(defsetf funcallable-instance-name set-funcallable-instance-name)
;;; And returns the function, not the *name*.
(defun set-function-name (fcn new-name)
"Set the name of a compiled function object."
(cond ((symbolp fcn)
......@@ -89,7 +90,8 @@
(setf (funcallable-instance-name fcn) new-name)
fcn)
((eval:interpreted-function-p fcn)
(setf (eval:interpreted-function-name fcn) new-name))
(setf (eval:interpreted-function-name fcn) new-name)
fcn)
(t
(let ((header (kernel:%closure-function fcn)))
(system:%primitive c::set-function-name header new-name))
......
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