X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=91fb725380288a0c7571a3ff4eab1a772a9dd90a;hb=7cf668a2141d2aa6f5fc1386345699b40d3e7845;hp=9c60ee063bd313060e3aff6d8d0b1f00f0e23916;hpb=4680204d81349894f47d2ba5fcfc92ecf4e725d3;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 9c60ee0..91fb725 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -700,10 +700,6 @@
       (setf (info :type :classoid name)
 	    (make-classoid-cell name))))
 
-;;; FIXME: When the system is stable, this DECLAIM FTYPE should
-;;; probably go away in favor of the DEFKNOWN for FIND-CLASS.
-(declaim (ftype (function (symbol &optional t (or null sb!c::lexenv)))
-		find-classoid))
 (eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
 (defun find-classoid (name &optional (errorp t) environment)
   #!+sb-doc