X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefclass.lisp;h=33bfd0b1a3024063326c7942436f413e21d406b9;hb=6794373d588cef4333fbbb9d04b931ae0a414a7f;hp=e342b6e2d71e1fc87e971a673568ab4c72cb916f;hpb=737f1f34bd33a1f7080a04786479035d366e672f;p=sbcl.git

diff --git a/src/pcl/defclass.lisp b/src/pcl/defclass.lisp
index e342b6e..33bfd0b 100644
--- 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)