From 8232cba243bdb085ed68b22a40bc4f51cd01d3bd Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 6 Feb 1992 20:33:44 +0000
Subject: [PATCH] Make SET-FUNCTION-NAME return the function, even when called
 on interpreted functions.

---
 pcl/cmu-low.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pcl/cmu-low.lisp b/pcl/cmu-low.lisp
index cc98797a8..102864b0a 100644
--- a/pcl/cmu-low.lisp
+++ b/pcl/cmu-low.lisp
@@ -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))
-- 
GitLab