0.pre7.61:

[sbcl.git] / src / pcl / construct.lisp

diff --git a/src/pcl/construct.lisp b/src/pcl/construct.lisp
index 8217abb..5f3b40c 100644 (file)
--- a/src/pcl/construct.lisp
+++ b/src/pcl/construct.lisp
@@ -207,7 +207,7 @@
 ;;; should always be used to set them both at the same time.
 (defun set-constructor-code (constructor code type)
   (set-funcallable-instance-fun constructor code)
-  (set-function-name constructor (constructor-name constructor))
+  (set-fun-name constructor (constructor-name constructor))
   (setf (constructor-code-type constructor) type))
 
 (defmethod describe-object ((constructor constructor) stream)