X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftypep.lisp;h=49b3964290e8825b97f4d7905cac45417a36da6e;hb=85483d976cc2d779493985f77f39efefb2ea622b;hp=0844ebf06af7c08fed2d98a9010edf3d3e3344a2;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/typep.lisp b/src/code/typep.lisp
index 0844ebf..49b3964 100644
--- 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)