X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Flow.lisp;h=98174f3673fb6fb60c711a625f02f21e1b44acdd;hb=8dc064d2296902f01afd9107e89a81146e3771fe;hp=099e48ce865f7996f9caba6572cc5b794a7f1873;hpb=39ca94ec421224c78cb01f7d2d7b49321c66a2d4;p=sbcl.git

diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp
index 099e48c..98174f3 100644
--- a/src/pcl/low.lisp
+++ b/src/pcl/low.lisp
@@ -194,7 +194,7 @@
 	 ;; lets not do this...
 	 #+nil
 	 (let ((header (sb-kernel:%closure-function fcn)))
-	   (setf (sb-c::%function-name header) new-name))
+	   (setf (sb-kernel:%function-name header) new-name))
 
 	 ;; XXX Maybe add better scheme here someday.
 	 fcn)))