projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.4.21:
[sbcl.git]
/
src
/
compiler
/
alpha
/
type-vops.lisp
diff --git
a/src/compiler/alpha/type-vops.lisp
b/src/compiler/alpha/type-vops.lisp
index
4b31c6a
..
2105967
100644
(file)
--- a/
src/compiler/alpha/type-vops.lisp
+++ b/
src/compiler/alpha/type-vops.lisp
@@
-68,9
+68,9
@@
(error "must supply at least one type for test-type"))
(cond
(fixnump
(error "must supply at least one type for test-type"))
(cond
(fixnump
- (when (remove-if #'(lambda (x)
- (or (= x even-fixnum-lowtag)
- (= x odd-fixnum-lowtag)))
+ (when (remove-if (lambda (x)
+ (or (= x even-fixnum-lowtag)
+ (= x odd-fixnum-lowtag)))
lowtags)
(error "can't mix fixnum testing with other lowtags"))
(when function-p
lowtags)
(error "can't mix fixnum testing with other lowtags"))
(when function-p
@@
-233,8
+233,8
@@
(def-type-vops fixnump check-fixnum fixnum object-not-fixnum-error
even-fixnum-lowtag odd-fixnum-lowtag)
(def-type-vops fixnump check-fixnum fixnum object-not-fixnum-error
even-fixnum-lowtag odd-fixnum-lowtag)
-(def-type-vops functionp check-function function
- object-not-function-error fun-pointer-lowtag)
+(def-type-vops functionp check-fun function
+ object-not-fun-error fun-pointer-lowtag)
(def-type-vops listp check-list list object-not-list-error
list-pointer-lowtag)
(def-type-vops listp check-list list object-not-list-error
list-pointer-lowtag)
@@
-369,14
+369,14
@@
;;; XXX
#|
(def-type-vops scavenger-hook-p nil nil nil
;;; XXX
#|
(def-type-vops scavenger-hook-p nil nil nil
- #-gengc 0 #+gengc scavenger-hook-type)
+ #!-gengc 0 #!+gengc scavenger-hook-type)
|#
(def-type-vops code-component-p nil nil nil
code-header-widetag)
(def-type-vops lra-p nil nil nil
|#
(def-type-vops code-component-p nil nil nil
code-header-widetag)
(def-type-vops lra-p nil nil nil
- #-gengc return-pc-header-widetag #+gengc 0)
+ #!-gengc return-pc-header-widetag #!+gengc 0)
(def-type-vops fdefn-p nil nil nil
fdefn-widetag)
(def-type-vops fdefn-p nil nil nil
fdefn-widetag)