X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsrctran.lisp;h=81c82d2cd017823b6cad28057cc6477265f63a99;hb=935d6f6a696c2b0bff1c937cef346cb495e41999;hp=889753468dee1cbb3cc8c5bb8a925bcc0e4cd8be;hpb=0aad9fb773a97e400b727dd8673494491e56a464;p=sbcl.git

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index 8897534..81c82d2 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -183,8 +183,8 @@
 (define-source-transform 1+ (x) `(+ ,x 1))
 (define-source-transform 1- (x) `(- ,x 1))
 
-(define-source-transform oddp (x) `(not (zerop (logand ,x 1))))
-(define-source-transform evenp (x) `(zerop (logand ,x 1)))
+(define-source-transform oddp (x) `(logtest ,x 1))
+(define-source-transform evenp (x) `(not (logtest ,x 1)))
 
 ;;; Note that all the integer division functions are available for
 ;;; inline expansion.
@@ -3726,7 +3726,6 @@
   #+sb-xc-host ; Only we should be using these
   (progn
     (def style-warn)
-    (def compiler-abort)
     (def compiler-error)
     (def compiler-warn)
     (def compiler-style-warn)