X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-misc.lisp;h=12d9312a633bf222bb3f53f1d2c0efb37f600ca8;hb=1af3faa2b79125b774c2182cab841ed7ee555bed;hp=342bc076992ead905ed552ed1cff7e64dc462a09;hpb=5ecef987f3847ed5de8c03f66ef9d8ab468af993;p=sbcl.git

diff --git a/src/code/cross-misc.lisp b/src/code/cross-misc.lisp
index 342bc07..12d9312 100644
--- a/src/code/cross-misc.lisp
+++ b/src/code/cross-misc.lisp
@@ -136,6 +136,9 @@
   (assert (typep array '(simple-array * (*))))
   (values array start end 0))
 
+(defun sb!kernel:signed-byte-32-p (number)
+  (typep number '(signed-byte 32)))
+
 ;;; package locking nops for the cross-compiler
 
 (defmacro without-package-locks (&body body)