X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-misc.lisp;h=12d9312a633bf222bb3f53f1d2c0efb37f600ca8;hb=69ef68ba7393e3492c1b4a756d1140f71c2922bc;hp=440c0373f2fc9f3a60aadc1f21d9d57f9c75d8a3;hpb=fd526bc66c53616a2e757323cbda0271c72b3d54;p=sbcl.git

diff --git a/src/code/cross-misc.lisp b/src/code/cross-misc.lisp
index 440c037..12d9312 100644
--- a/src/code/cross-misc.lisp
+++ b/src/code/cross-misc.lisp
@@ -136,17 +136,8 @@
   (assert (typep array '(simple-array * (*))))
   (values array start end 0))
 
-#!-(or alpha x86-64)
-(progn
-  (defun sb!vm::ash-left-mod32 (integer amount)
-    (ldb (byte 32 0) (ash integer amount)))
-  (defun sb!vm::logxor-mod32 (x y)
-    (ldb (byte 32 0) (logxor x y)))
-  (defun sb!vm::lognot-mod32 (x)
-    (ldb (byte 32 0) (lognot x))))
-#!+(or alpha x86-64)
-(defun sb!vm::ash-left-mod64 (integer amount)
-  (ldb (byte 64 0) (ash integer amount)))
+(defun sb!kernel:signed-byte-32-p (number)
+  (typep number '(signed-byte 32)))
 
 ;;; package locking nops for the cross-compiler