projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.6.5
[sbcl.git]
/
src
/
compiler
/
generic
/
vm-typetran.lisp
diff --git
a/src/compiler/generic/vm-typetran.lisp
b/src/compiler/generic/vm-typetran.lisp
index
4a0ba1a
..
f80e41f
100644
(file)
--- a/
src/compiler/generic/vm-typetran.lisp
+++ b/
src/compiler/generic/vm-typetran.lisp
@@
-39,10
+39,18
@@
(simple-array (unsigned-byte 2) (*)))
(define-type-predicate simple-array-unsigned-byte-4-p
(simple-array (unsigned-byte 4) (*)))
(simple-array (unsigned-byte 2) (*)))
(define-type-predicate simple-array-unsigned-byte-4-p
(simple-array (unsigned-byte 4) (*)))
+(define-type-predicate simple-array-unsigned-byte-7-p
+ (simple-array (unsigned-byte 7) (*)))
(define-type-predicate simple-array-unsigned-byte-8-p
(simple-array (unsigned-byte 8) (*)))
(define-type-predicate simple-array-unsigned-byte-8-p
(simple-array (unsigned-byte 8) (*)))
+(define-type-predicate simple-array-unsigned-byte-15-p
+ (simple-array (unsigned-byte 15) (*)))
(define-type-predicate simple-array-unsigned-byte-16-p
(simple-array (unsigned-byte 16) (*)))
(define-type-predicate simple-array-unsigned-byte-16-p
(simple-array (unsigned-byte 16) (*)))
+(define-type-predicate simple-array-unsigned-byte-29-p
+ (simple-array (unsigned-byte 29) (*)))
+(define-type-predicate simple-array-unsigned-byte-31-p
+ (simple-array (unsigned-byte 31) (*)))
(define-type-predicate simple-array-unsigned-byte-32-p
(simple-array (unsigned-byte 32) (*)))
(define-type-predicate simple-array-signed-byte-8-p
(define-type-predicate simple-array-unsigned-byte-32-p
(simple-array (unsigned-byte 32) (*)))
(define-type-predicate simple-array-signed-byte-8-p