projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix "unable to read" compiler-error reporting during SBCL build
[sbcl.git]
/
src
/
compiler
/
generic
/
early-type-vops.lisp
diff --git
a/src/compiler/generic/early-type-vops.lisp
b/src/compiler/generic/early-type-vops.lisp
index
7709680
..
b84493d
100644
(file)
--- a/
src/compiler/generic/early-type-vops.lisp
+++ b/
src/compiler/generic/early-type-vops.lisp
@@
-48,8
+48,9
@@
&key &allow-other-keys)
;; Determine what interesting combinations we need to test for.
(let* ((type-codes (mapcar #'eval type-codes))
&key &allow-other-keys)
;; Determine what interesting combinations we need to test for.
(let* ((type-codes (mapcar #'eval type-codes))
- (fixnump (and (member even-fixnum-lowtag type-codes)
- (member odd-fixnum-lowtag type-codes)
+ (fixnump (and (every (lambda (lowtag)
+ (member lowtag type-codes))
+ '#.(mapcar #'symbol-value fixnum-lowtags))
t))
(lowtags (remove lowtag-limit type-codes :test #'<))
(extended (remove lowtag-limit type-codes :test #'>))
t))
(lowtags (remove lowtag-limit type-codes :test #'<))
(extended (remove lowtag-limit type-codes :test #'>))
@@
-66,8
+67,7
@@
(cond
(fixnump
(when (remove-if (lambda (x)
(cond
(fixnump
(when (remove-if (lambda (x)
- (or (= x even-fixnum-lowtag)
- (= x odd-fixnum-lowtag)))
+ (member x '#.(mapcar #'symbol-value fixnum-lowtags)))
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