0.9.4.71:

[sbcl.git] / src / code / typep.lisp

diff --git a/src/code/typep.lisp b/src/code/typep.lisp
index 0844ebf..49b3964 100644 (file)
--- a/src/code/typep.lisp
+++ b/src/code/typep.lisp
@@ -37,6 +37,8 @@
     (named-type
      (ecase (named-type-name type)
        ((* t) t)
+       ((instance) (%instancep object))
+       ((funcallable-instance) (funcallable-instance-p object))
        ((nil) nil)))
     (numeric-type
      (and (numberp object)