X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffndb.lisp;h=4eacdfc3c5574ed0fe81743b37e78cf8209bf55a;hb=8be78b41ac1695e1c9b5d7f6c8bd41e3c7e6e6fc;hp=86fe96dc7f1dae10990ad623158129b71604d5bc;hpb=ce6c2726bfb08211d6d281fdf070490110bdc374;p=sbcl.git

diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp
index 86fe96d..4eacdfc 100644
--- a/src/compiler/fndb.lisp
+++ b/src/compiler/fndb.lisp
@@ -1478,6 +1478,9 @@
   (movable flushable explicit-check))
 (defknown %instance-typep (t (or type-specifier ctype)) boolean
   (movable flushable explicit-check always-translatable))
+;;; We should never emit a call to %typep-wrapper
+(defknown %typep-wrapper (t t (or type-specifier ctype)) t
+  (movable flushable always-translatable))
 
 (defknown %cleanup-point () t)
 (defknown %special-bind (t t) t)