Add some missing FNDB declarations.

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

diff --git a/src/pcl/fixup.lisp b/src/pcl/fixup.lisp
index d4e0257..3ba1153 100644 (file)
--- a/src/pcl/fixup.lisp
+++ b/src/pcl/fixup.lisp
@@ -41,8 +41,14 @@
 (in-package "SB-C")
 
 (defknown slot-value (t symbol) t (any))
+(defknown (slot-boundp slot-exists-p) (t symbol) boolean)
 (defknown sb-pcl::set-slot-value (t symbol t) t (any))
 
+(defknown find-class (symbol &optional t lexenv-designator)
+  (or class null))
+(defknown class-of (t) class (flushable))
+(defknown class-name (class) symbol (flushable))
+
 (deftransform slot-value ((object slot-name) (t (constant-arg symbol)) *
                           :node node)
   (let ((c-slot-name (lvar-value slot-name)))