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