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