From 625faf3e3d415e12908e4afbced956644e6d640c Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 17 Dec 1991 18:16:02 +0000 Subject: [PATCH] Fixed SET-FUNCTION-NAME to correctly set interpreted function names. --- pcl/cmu-low.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/pcl/cmu-low.lisp b/pcl/cmu-low.lisp index 833a53eda..cc98797a8 100644 --- a/pcl/cmu-low.lisp +++ b/pcl/cmu-low.lisp @@ -88,6 +88,8 @@ ((funcallable-instance-p fcn) (setf (funcallable-instance-name fcn) new-name) fcn) + ((eval:interpreted-function-p fcn) + (setf (eval:interpreted-function-name fcn) new-name)) (t (let ((header (kernel:%closure-function fcn))) (system:%primitive c::set-function-name header new-name)) -- GitLab