;; which is used for a fixed #\NULL so that when we call out to C
;; we don't need to cons a new copy)
(n-pad-elements (missing-arg) :type index :read-only t)
- ;; the relative importance of this array type. Used for determining
- ;; the order of the TYPECASE in HAIRY-DATA-VECTOR-{REF,SET}. High
- ;; positive numbers are near the top; low negative numbers near the
- ;; bottom.
+ ;; the relative importance of this array type. Previously used for
+ ;; determining the order of the TYPECASE in
+ ;; HAIRY-DATA-VECTOR-{REF,SET}; currently (as of 2013-09-18) unused.
(importance (missing-arg) :type fixnum :read-only t))
(defparameter *specialized-array-element-type-properties*
((unsigned-byte 16) 0 16 simple-array-unsigned-byte-16
:importance 12)
#!+#.(cl:if (cl:= 32 sb!vm:n-word-bits) '(and) '(or))
- ((unsigned-byte 29) 0 32 simple-array-unsigned-byte-29
+ ((unsigned-byte #.sb!vm:n-positive-fixnum-bits)
+ 0 32 simple-array-unsigned-fixnum
:importance 8
:fixnum-p t)
((unsigned-byte 31) 0 32 simple-array-unsigned-byte-31
((unsigned-byte 32) 0 32 simple-array-unsigned-byte-32
:importance 11)
#!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))
- ((unsigned-byte 60) 0 64 simple-array-unsigned-byte-60
+ ((unsigned-byte #.sb!vm:n-positive-fixnum-bits)
+ 0 64 simple-array-unsigned-fixnum
:importance 8
:fixnum-p t)
#!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))
;; compiler/generic/primtype.lisp, for why this is FIXNUM and
;; not (SIGNED-BYTE 30)
#!+#.(cl:if (cl:= 32 sb!vm:n-word-bits) '(and) '(or))
- (fixnum 0 32 simple-array-signed-byte-30
+ (fixnum 0 32 simple-array-fixnum
:importance 8
:fixnum-p t)
((signed-byte 32) 0 32 simple-array-signed-byte-32
:importance 7)
;; KLUDGE: see above KLUDGE for the 32-bit case
#!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))
- (fixnum 0 64 simple-array-signed-byte-61
+ (fixnum 0 64 simple-array-fixnum
:importance 8
:fixnum-p t)
#!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))