projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gencgc: More precise conservatism for pointers to boxed pages.
[sbcl.git]
/
src
/
code
/
typep.lisp
diff --git
a/src/code/typep.lisp
b/src/code/typep.lisp
index
531b1ab
..
374d3bc
100644
(file)
--- a/
src/code/typep.lisp
+++ b/
src/code/typep.lisp
@@
-121,6
+121,12
@@
(and (consp object)
(%%typep (car object) (cons-type-car-type type) strict)
(%%typep (cdr object) (cons-type-cdr-type type) strict)))
(and (consp object)
(%%typep (car object) (cons-type-car-type type) strict)
(%%typep (cdr object) (cons-type-cdr-type type) strict)))
+ #!+sb-simd-pack
+ (simd-pack-type
+ (and (simd-pack-p object)
+ (let* ((tag (%simd-pack-tag object))
+ (name (nth tag *simd-pack-element-types*)))
+ (not (not (member name (simd-pack-type-element-type type)))))))
(character-set-type
(and (characterp object)
(let ((code (char-code object))
(character-set-type
(and (characterp object)
(let ((code (char-code object))