Fix cut-to-width in the presence of bad constants in dead code.

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

diff --git a/src/pcl/defclass.lisp b/src/pcl/defclass.lisp
index e342b6e..33bfd0b 100644 (file)
--- a/src/pcl/defclass.lisp
+++ b/src/pcl/defclass.lisp
@@ -312,12 +312,11 @@
            ;; that :WHERE-FROM is :DEFINED, not :DECLARED, and should
            ;; probably be factored into a common function -- eg.
            ;; (%proclaim-ftype name declared-or-defined).
-           (with-single-package-locked-error (:symbol name "proclaiming ~S as a function")
-             (when (eq (info :function :where-from name) :assumed)
-               (proclaim-as-fun-name name)
-               (note-name-defined name :function)
-               (setf (info :function :where-from name) :defined
-                     (info :function :type name) type)))))
+           (when (eq (info :function :where-from name) :assumed)
+             (proclaim-as-fun-name name)
+             (note-name-defined name :function)
+             (setf (info :function :where-from name) :defined
+                   (info :function :type name) type))))
     (let ((rtype (specifier-type '(function (t) t)))
           (wtype (specifier-type '(function (t t) t))))
       (dolist (reader readers)