X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffndb.lisp;h=73e3db14a0cc0ecf83464205dd311d0bd6b58580;hb=2e5263a05f55e2b56a3194ad7853e9ae18ad69af;hp=0c80ebf22a28aa72e70f2c5e50688a8cfd36f078;hpb=0c0d8909984b5b33bb6b59b350b2d5cee6dc1715;p=sbcl.git

diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp
index 0c80ebf..73e3db1 100644
--- a/src/compiler/fndb.lisp
+++ b/src/compiler/fndb.lisp
@@ -1408,7 +1408,7 @@
 (defknown %typep (t (or type-specifier ctype)) boolean
   (movable flushable explicit-check))
 (defknown %instance-typep (t (or type-specifier ctype)) boolean
-  (movable flushable explicit-check))
+  (movable flushable explicit-check always-translatable))
 
 (defknown %cleanup-point () t)
 (defknown %special-bind (t t) t)