projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.1.16:
[sbcl.git]
/
src
/
compiler
/
srctran.lisp
diff --git
a/src/compiler/srctran.lisp
b/src/compiler/srctran.lisp
index
8897534
..
81c82d2
100644
(file)
--- 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 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.
;;; 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)
#+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)
(def compiler-error)
(def compiler-warn)
(def compiler-style-warn)