X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmeta-vmdef.lisp;h=1242e96cebc3d6c0bc458ba37faf6e75b27b5eca;hb=51bc001b7a98af096af782a672389e51004af068;hp=d59da64a783998ad2676dab799ba68613157f02f;hpb=372d68ae1432a96a527c662de3af3bb334808856;p=sbcl.git

diff --git a/src/compiler/meta-vmdef.lisp b/src/compiler/meta-vmdef.lisp
index d59da64..1242e96 100644
--- a/src/compiler/meta-vmdef.lisp
+++ b/src/compiler/meta-vmdef.lisp
@@ -1415,7 +1415,7 @@
                               (rest type))))
            (:constant
             ``(:constant ,#'(lambda (x)
-                              (typep x ',(second type)))
+                              (sb!xc:typep x ',(second type)))
                          ,',(second type)))))))
 
 (defun specify-operand-types (types ops more-ops)