Skip to content
Snippets Groups Projects
Commit 625faf3e authored by ram's avatar ram
Browse files

Fixed SET-FUNCTION-NAME to correctly set interpreted function names.

parent 47f6489b
No related branches found
No related tags found
No related merge requests found
...@@ -88,6 +88,8 @@ ...@@ -88,6 +88,8 @@
((funcallable-instance-p fcn) ((funcallable-instance-p fcn)
(setf (funcallable-instance-name fcn) new-name) (setf (funcallable-instance-name fcn) new-name)
fcn) fcn)
((eval:interpreted-function-p fcn)
(setf (eval:interpreted-function-name fcn) new-name))
(t (t
(let ((header (kernel:%closure-function fcn))) (let ((header (kernel:%closure-function fcn)))
(system:%primitive c::set-function-name header new-name)) (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