X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Flow.lisp;h=9de576360eac270de4bd1886243cc1bc33c0523f;hb=f2db6743b1fadeea9e72cb583d857851c87efcd4;hp=277416f0fc260cb1110accd730ff0d8370eea04b;hpb=95d19447c10434753c2168ac943152fd5e3ded3d;p=sbcl.git

diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp
index 277416f..9de5763 100644
--- a/src/pcl/low.lisp
+++ b/src/pcl/low.lisp
@@ -202,7 +202,6 @@
 (defun set-fun-name (fun new-name)
   #+sb-doc
   "Set the name of a compiled function object. Return the function."
-  (declare (special *boot-state* *the-class-standard-generic-function*))
   (when (valid-function-name-p fun)
     (setq fun (fdefinition fun)))
   (typecase fun
@@ -211,7 +210,7 @@
     (sb-eval:interpreted-function
      (setf (sb-eval:interpreted-function-name fun) new-name))
     (funcallable-instance ;; KLUDGE: probably a generic function...
-     (cond ((if (eq *boot-state* 'complete)
+     (cond ((if (eq **boot-state** 'complete)
                 (typep fun 'generic-function)
                 (eq (class-of fun) *the-class-standard-generic-function*))
             (setf (%funcallable-instance-info fun 2) new-name))