;;; -*- Mode:TEXT -*-

(eval (
GLOBAL::EXPORT (
GLOBAL::QUOTE (
LISP::AREF 
ARRAY::ASET 
ARRAY::ARRAY-ELEMENT-TYPE 
ARRAY::ARRAY-RANK 
ARRAY::ARRAY-DIMENSION 
ARRAY::ARRAY-DIMENSIONS 
ARRAY::ARRAY-TOTAL-SIZE 
ARRAY::ARRAY-IN-BOUNDS-P 
ARRAY::ARRAY-ROW-MAJOR-INDEX 
ARRAY::ADJUSTABLE-ARRAY-P 
ARRAY::ARRAY-HAS-FILL-POINTER-P 
ARRAY::MAKE-ARRAY 
ARRAY::FILL-POINTER 
ARRAY::VECTOR-POP 
ARRAY::VECTOR-PUSH 
ARRAY::VECTOR-PUSH-EXTEND 
ARRAY::BIT-VECTOR-P 
ARRAY::SIMPLE-BIT-VECTOR-P 
ARRAY::VECTOR 
ARRAY::NAMED-STRUCTURE-INVOKE))))

(DEFUN 
ARRAY::ARRAY-TYPE
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-TYPE
[LOCAL-REFS]:
(13 11)
(5 13)
[REFS]:
([OFFSET] 6 [FUNCTION] 
ARRAY::%ADDITIONAL-HEADER-WORD [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 112 (simple) 27761454>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-ELEMENT-TYPE
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-ELEMENT-TYPE
[LOCAL-REFS]:
(36 37)
(35 37)
(34 37)
(33 37)
(32 37)
(31 37)
(30 37)
(29 37)
(28 37)
(27 37)
(26 37)
(25 37)
(24 37)
(23 37)
(22 37)
(21 39)
(20 40)
(19 41)
(18 42)
(17 48)
(16 43)
(15 49)
(14 44)
(13 50)
(12 45)
(11 51)
(10 46)
(9 52)
(8 47)
(7 53)
(6 54)
[REFS]:
([OFFSET] 38 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
ARRAY::ARRAY-TYPE [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 440 (simple) 27763215>
[IMMEDIATES]:
(53 (
LISP-INTERNALS::UNSIGNED-BYTE 1))
(52 (
LISP-INTERNALS::UNSIGNED-BYTE 2))
(51 (
LISP-INTERNALS::UNSIGNED-BYTE 4))
(50 (
LISP-INTERNALS::UNSIGNED-BYTE 8))
(49 (
LISP-INTERNALS::UNSIGNED-BYTE 16))
(48 (
LISP-INTERNALS::UNSIGNED-BYTE 32))
(47 (
LISP-INTERNALS::SIGNED-BYTE 2))
(46 (
LISP-INTERNALS::SIGNED-BYTE 4))
(45 (
LISP-INTERNALS::SIGNED-BYTE 8))
(44 (
LISP-INTERNALS::SIGNED-BYTE 16))
(43 (
LISP-INTERNALS::SIGNED-BYTE 32))
(42 
LISP-INTERNALS::STRING-CHAR)
(41 
LISP-INTERNALS::CHARACTER)
(40 
K::SINGLE-FLOAT)
(39 
K::DOUBLE-FLOAT)
(37 Bad array type used in header))

(DEFUN 
ARRAY::LOCK-ARRAY-HARD-P
COMPILED FUNCTION INFO:
NAME: 
ARRAY::LOCK-ARRAY-HARD-P
[LOCAL-REFS]:
[REFS]:
([OFFSET] 1 [FUNCTION] 
ARRAY::%HARD-HEADER-P [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 16 (simple) 27765233>
[IMMEDIATES]:)

(DEFUN 
ARRAY::%ADDITIONAL-HEADER-DIMENSIONS
COMPILED FUNCTION INFO:
NAME: 
ARRAY::%ADDITIONAL-HEADER-DIMENSIONS
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 16 (simple) 27765352>
[IMMEDIATES]:)

(DEFUN 
ARRAY::%ADDITIONAL-HEADER-WORD
COMPILED FUNCTION INFO:
NAME: 
ARRAY::%ADDITIONAL-HEADER-WORD
[LOCAL-REFS]:
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 16 (simple) 27765454>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-RANK
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-RANK
[LOCAL-REFS]:
(7 5)
(3 7)
[REFS]:
([OFFSET] 4 [FUNCTION] 
ARRAY::%ARRAY-RANK [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
ARRAY::LOCK-ARRAY-HARD-P [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 64 (simple) 27765636>
[IMMEDIATES]:)

(DEFUN 
ARRAY::%ARRAY-RANK
COMPILED FUNCTION INFO:
NAME: 
ARRAY::%ARRAY-RANK
[LOCAL-REFS]:
[REFS]:
([OFFSET] 3 [FUNCTION] 
ARRAY::%ADDITIONAL-HEADER-DIMENSIONS [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
ARRAY::%ADDITIONAL-HEADER-WORD [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 32 (simple) 27766112>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-DIMENSION
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-DIMENSION
[LOCAL-REFS]:
(33 16)
(30 16)
(28 31)
(25 16)
(22 16)
(14 18)
(11 23)
(8 23)
(4 26)
[REFS]:
([OFFSET] 32 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 29 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 24 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 21 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 15 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 5 [FUNCTION] 
ARRAY::%ARRAY-RANK [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
ARRAY::%HARD-HEADER-P [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 272 (simple) 27767443>
[IMMEDIATES]:
(31 Bad dimension argument)
(23 Bad dimension argument))

(DEFUN 
ARRAY::INTERNAL-ARRAY-RANK
COMPILED FUNCTION INFO:
NAME: 
ARRAY::INTERNAL-ARRAY-RANK
[LOCAL-REFS]:
(3 8)
[REFS]:
([OFFSET] 0 [FUNCTION] 
ARRAY::%HARD-HEADER-P [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 72 (simple) 27772456>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-DIMENSIONS
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-DIMENSIONS
[LOCAL-REFS]:
[REFS]:
([OFFSET] 5 [FUNCTION] 
ARRAY::%ARRAY-DIMENSIONS [#ARGS] 3)
([OFFSET] 2 [FUNCTION] 
ARRAY::INTERNAL-ARRAY-RANK [#ARGS] 2)
([OFFSET] 0 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 64 (simple) 27773561>
[IMMEDIATES]:)

(DEFUN 
ARRAY::%ARRAY-DIMENSIONS
COMPILED FUNCTION INFO:
NAME: 
ARRAY::%ARRAY-DIMENSIONS
[LOCAL-REFS]:
(21 11)
(13 16)
(7 9)
(2 5)
[REFS]:
([OFFSET] 20 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 15 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 14 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 4 [FUNCTION] 
CONS::CONS [#ARGS] 2)
([OFFSET] 3 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
[ENTRIES]:
([#ARGS] 3 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 176 (simple) 27775000>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-TOTAL-SIZE
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-TOTAL-SIZE
[LOCAL-REFS]:
[REFS]:
([OFFSET] 5 [FUNCTION] 
ARRAY::%ARRAY-TOTAL-SIZE [#ARGS] 3)
([OFFSET] 2 [FUNCTION] 
ARRAY::INTERNAL-ARRAY-RANK [#ARGS] 2)
([OFFSET] 0 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 64 (simple) 27775460>
[IMMEDIATES]:)

(DEFUN 
ARRAY::%ARRAY-TOTAL-SIZE
COMPILED FUNCTION INFO:
NAME: 
ARRAY::%ARRAY-TOTAL-SIZE
[LOCAL-REFS]:
(20 10)
(12 14)
(6 8)
(2 4)
[REFS]:
([OFFSET] 19 [FUNCTION] 
NEW-MATH::MULTIPLY-FIXNUM [#ARGS] 2)
([OFFSET] 9 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 3 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
[ENTRIES]:
([#ARGS] 3 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 168 (simple) 27776001>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-LENGTH
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-LENGTH
[LOCAL-REFS]:
[REFS]:
([OFFSET] 0 [FUNCTION] 
ARRAY::ARRAY-TOTAL-SIZE [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#(0 0 0 33 0 0 71 8)
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-ACTIVE-LENGTH
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-ACTIVE-LENGTH
[LOCAL-REFS]:
(3 5)
[REFS]:
([OFFSET] 5 [FUNCTION] 
ARRAY::ARRAY-TOTAL-SIZE [#ARGS] 1)
([OFFSET] 4 [FUNCTION] 
ARRAY::FILL-POINTER [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
ARRAY::ARRAY-HAS-FILL-POINTER-P [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 48 (simple) 27777510>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-IN-BOUNDS-P-INTERNAL
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-IN-BOUNDS-P-INTERNAL
[LOCAL-REFS]:
(85 9)
(84 67)
(81 80)
(80 18)
(79 81)
(78 80)
(75 81)
(70 73)
(66 82)
(65 67)
(61 82)
(58 28)
(48 50)
(45 49)
(40 43)
(36 50)
(33 59)
(30 59)
(14 17)
(11 20)
(4 85)
[REFS]:
([OFFSET] 83 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 72 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 67 [FUNCTION] 
VINCULUM::%FIXNUMP [#ARGS] 1)
([OFFSET] 62 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 57 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 51 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 50 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 42 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 37 [FUNCTION] 
VINCULUM::%FIXNUMP [#ARGS] 1)
([OFFSET] 27 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 24 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 21 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 16 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
ARRAY::%HARD-HEADER-P [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 688 (simple) 30001231>
[IMMEDIATES]:
(82 Wrong number of subscripts passed to array-in-bounds-p)
(71 Bad subscript passed to array-in-bounds-p)
(41 Bad subscript passed to array-in-bounds-p)
(15 Wrong number of subscripts passed to array-in-bounds-p))

(DEFUN 
ARRAY::ARRAY-IN-BOUNDS-P
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-IN-BOUNDS-P
[LOCAL-REFS]:
[REFS]:
([OFFSET] 4 [FUNCTION] 
ARRAY::ARRAY-IN-BOUNDS-P-INTERNAL [#ARGS] 2)
([OFFSET] 1 [FUNCTION] 
LISP-INTERNALS::CONS-REST [#ARGS] 0)
[ENTRIES]:
([#ARGS] 16777214 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 40 (simple) 30004762>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-ROW-MAJOR-INDEX
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-ROW-MAJOR-INDEX
[LOCAL-REFS]:
(19 12)
(7 19)
[REFS]:
([OFFSET] 16 [FUNCTION] 
ARRAY::COMPUTE-LINEARIZED-INDEX [#ARGS] 4)
([OFFSET] 4 [FUNCTION] 
ARRAY::%HARD-HEADER-P [#ARGS] 1)
([OFFSET] 3 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
LISP-INTERNALS::CONS-REST [#ARGS] 0)
[ENTRIES]:
([#ARGS] 16777214 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 160 (simple) 30005267>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ADJUSTABLE-ARRAY-P
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ADJUSTABLE-ARRAY-P
[LOCAL-REFS]:
(16 13)
(15 13)
(11 15)
(3 16)
[REFS]:
([OFFSET] 0 [FUNCTION] 
ARRAY::LOCK-ARRAY-HARD-P [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 136 (simple) 30006411>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-HAS-LEADER-P
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-HAS-LEADER-P
[LOCAL-REFS]:
(16 13)
(15 13)
(11 15)
(3 16)
[REFS]:
([OFFSET] 0 [FUNCTION] 
ARRAY::LOCK-ARRAY-HARD-P [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 136 (simple) 30007203>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-LEADER
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-LEADER
[LOCAL-REFS]:
(47 28)
(35 38)
(27 45)
(26 28)
(17 45)
(8 11)
(3 6)
[REFS]:
([OFFSET] 46 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 37 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 14 [FUNCTION] 
ARRAY::LOCK-ARRAY-HARD-P [#ARGS] 1)
([OFFSET] 10 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 5 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 0 [FUNCTION] 
VINCULUM::%FIXNUMP [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 384 (simple) 30010011>
[IMMEDIATES]:
(45 ~S does not have a leader)
(36 ~S is out of range in array-leader function)
(9 ~S is negative, and cannot be an index to a leader)
(4 ~S is not a valid index))

(DEFUN 
ARRAY::SET-ARRAY-LEADER
COMPILED FUNCTION INFO:
NAME: 
ARRAY::SET-ARRAY-LEADER
[LOCAL-REFS]:
(46 28)
(35 38)
(27 44)
(26 28)
(17 44)
(8 11)
(3 6)
[REFS]:
([OFFSET] 45 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 37 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 14 [FUNCTION] 
ARRAY::LOCK-ARRAY-HARD-P [#ARGS] 1)
([OFFSET] 10 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 5 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 0 [FUNCTION] 
VINCULUM::%FIXNUMP [#ARGS] 1)
[ENTRIES]:
([#ARGS] 3 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 376 (simple) 30011324>
[IMMEDIATES]:
(44 ~S does not have a leader)
(36 ~S is out of range in array-leader function)
(9 ~S is negative, and cannot be an index to a leader)
(4 ~S is not a valid index))

(DEFUN 
ARRAY::STORE-ARRAY-LEADER
COMPILED FUNCTION INFO:
NAME: 
ARRAY::STORE-ARRAY-LEADER
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
ARRAY::SET-ARRAY-LEADER [#ARGS] 3)
[ENTRIES]:
([#ARGS] 3 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) 30012374>
[IMMEDIATES]:)

(eval (
GLOBAL::SETQ 
SETF::*GRODY-SETF-MACRO-TABLE* (
GLOBAL::CONS (
GLOBAL::QUOTE (
ARRAY::ARRAY-LEADER 
GLOBAL::LAMBDA (
GLOBAL::&REST 
ARRAY::ARGS7) (
GLOBAL::LET* ((
SETF::SINGLE-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) (
GLOBAL::QUOTE NIL))) (
SETF::REST-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) 
ARRAY::ARGS7)) (
SETF::STOREVAR (
GLOBAL::GENSYM)) (
SETF::TEMPVARS (
GLOBAL::APPEND 
SETF::SINGLE-TEMPVARS 
SETF::REST-TEMPVARS))) (
GLOBAL::VALUES 
SETF::TEMPVARS (
GLOBAL::APPEND (
GLOBAL::LIST) (
GLOBAL::COPY-LIST 
ARRAY::ARGS7)) (
GLOBAL::LIST 
SETF::STOREVAR) (
GLOBAL::LET ((
ARRAY::VALUE8 
SETF::STOREVAR) (
ARRAY::ARGS7 
SETF::REST-TEMPVARS)) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
ARRAY::SET-ARRAY-LEADER) (
SYSTEM-INTERNALS::XR-BQ-APPEND 
ARRAY::ARGS7 (
SYSTEM-INTERNALS::XR-BQ-LIST 
ARRAY::VALUE8)))) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
ARRAY::ARRAY-LEADER) 
SETF::TEMPVARS))))) (
LISP::IF (
GLOBAL::BOUNDP (
GLOBAL::QUOTE 
SETF::*GRODY-SETF-MACRO-TABLE*)) 
SETF::*GRODY-SETF-MACRO-TABLE* NIL))))

(eval (
GLOBAL::QUOTE 
ARRAY::ARRAY-LEADER))

(DEFUN 
ARRAY::ARRAY-HAS-FILL-POINTER-P
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-HAS-FILL-POINTER-P
[LOCAL-REFS]:
(16 13)
(15 13)
(11 15)
(3 16)
[REFS]:
([OFFSET] 0 [FUNCTION] 
ARRAY::LOCK-ARRAY-HARD-P [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 136 (simple) 30014335>
[IMMEDIATES]:)

(DEFUN 
ARRAY::LOCK-ARRAY-AND-GET-FILL-POINTER-LOC
COMPILED FUNCTION INFO:
NAME: 
ARRAY::LOCK-ARRAY-AND-GET-FILL-POINTER-LOC
[LOCAL-REFS]:
(11 14)
(3 17)
[REFS]:
([OFFSET] 18 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 13 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
ARRAY::LOCK-ARRAY-HARD-P [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 152 (simple) 30014772>
[IMMEDIATES]:
(17 No fill pointer)
(12 No fill pointer))

(DEFUN 
ARRAY::INC-FILL-POINTER
COMPILED FUNCTION INFO:
NAME: 
ARRAY::INC-FILL-POINTER
[LOCAL-REFS]:
(7 10)
[REFS]:
([OFFSET] 9 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
ARRAY::LOCK-ARRAY-AND-GET-FILL-POINTER-LOC [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 104 (simple) 30015420>
[IMMEDIATES]:
(8 Fill pointer cannot be negative.))

(DEFUN 
ARRAY::FILL-POINTER
COMPILED FUNCTION INFO:
NAME: 
ARRAY::FILL-POINTER
[LOCAL-REFS]:
[REFS]:
([OFFSET] 0 [FUNCTION] 
ARRAY::LOCK-ARRAY-AND-GET-FILL-POINTER-LOC [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 40 (simple) 30015726>
[IMMEDIATES]:)

(DEFUN 
ARRAY::SET-FILL-POINTER
COMPILED FUNCTION INFO:
NAME: 
ARRAY::SET-FILL-POINTER
[LOCAL-REFS]:
[REFS]:
([OFFSET] 0 [FUNCTION] 
ARRAY::LOCK-ARRAY-AND-GET-FILL-POINTER-LOC [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 56 (simple) 30017025>
[IMMEDIATES]:)

(DEFUN 
ARRAY::VECTOR-POP
COMPILED FUNCTION INFO:
NAME: 
ARRAY::VECTOR-POP
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
ARRAY::SVREF [#ARGS] 2)
([OFFSET] 1 [FUNCTION] 
ARRAY::INC-FILL-POINTER [#ARGS] 2)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 24 (simple) 30017265>
[IMMEDIATES]:)

(DEFUN 
ARRAY::VECTOR-PUSH
COMPILED FUNCTION INFO:
NAME: 
ARRAY::VECTOR-PUSH
[LOCAL-REFS]:
[REFS]:
([OFFSET] 5 [FUNCTION] 
ARRAY::SVSET [#ARGS] 3)
([OFFSET] 1 [FUNCTION] 
ARRAY::INC-FILL-POINTER [#ARGS] 2)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 64 (simple) 30017442>
[IMMEDIATES]:)

(DEFUN 
ARRAY::VECTOR-PUSH-EXTEND
COMPILED FUNCTION INFO:
NAME: 
ARRAY::VECTOR-PUSH-EXTEND
[LOCAL-REFS]:
[REFS]:
([OFFSET] 1 [FUNCTION] 
ARRAY::VECTOR-PUSH [#ARGS] 2)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 16 (simple) 30017660>
[IMMEDIATES]:)

(DEFUN 
ARRAY::NAMED-STRUCTURE-SYMBOL
COMPILED FUNCTION INFO:
NAME: 
ARRAY::NAMED-STRUCTURE-SYMBOL
[LOCAL-REFS]:
(36 33)
(35 33)
(25 28)
(16 35)
(7 36)
[REFS]:
([OFFSET] 27 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 0 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 296 (simple) 30020105>
[IMMEDIATES]:
(26 ~S, a named structure has a leader with a length of only 1))

(DEFUN 
ARRAY::NAMED-STRUCTURE-P
COMPILED FUNCTION INFO:
NAME: 
ARRAY::NAMED-STRUCTURE-P
[LOCAL-REFS]:
[REFS]:
([OFFSET] 0 [FUNCTION] 
ARRAY::NAMED-STRUCTURE-SYMBOL [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#(0 0 0 33 0 0 71 8)
[IMMEDIATES]:)

(DEFUN 
ARRAY::NAMED-STRUCTURE-INVOKE
COMPILED FUNCTION INFO:
NAME: 
ARRAY::NAMED-STRUCTURE-INVOKE
[LOCAL-REFS]:
(19 24)
(15 29)
(9 13)
[REFS]:
([OFFSET] 28 [FUNCTION] 
LISP-INTERNALS::APPLY-INTERNAL [#ARGS] 2)
([OFFSET] 23 [FUNCTION] 
LISP-INTERNALS::APPLY-INTERNAL [#ARGS] 1)
([OFFSET] 12 [FUNCTION] 
SYMBOL::GET [#ARGS] 2)
([OFFSET] 3 [FUNCTION] 
ARRAY::NAMED-STRUCTURE-SYMBOL [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
LISP-INTERNALS::CONS-REST [#ARGS] 0)
[ENTRIES]:
([#ARGS] 16777213 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 240 (simple) 30022620>
[IMMEDIATES]:
(11 
GLOBAL::NAMED-STRUCTURE-INVOKE))

(DEFUN 
ARRAY::DECODE-DISPLACED-ARRAY
COMPILED FUNCTION INFO:
NAME: 
ARRAY::DECODE-DISPLACED-ARRAY
[LOCAL-REFS]:
[REFS]:
([OFFSET] 7 [FUNCTION] 
LISP-INTERNALS::MVBIND-6 [#ARGS] 1)
([OFFSET] 6 [FUNCTION] 
ARRAY::DECODE-ARRAY [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 136 (simple) 30023376>
[IMMEDIATES]:)

(DEFUN 
ARRAY::COMPUTE-LINEARIZED-INDEX
COMPILED FUNCTION INFO:
NAME: 
ARRAY::COMPUTE-LINEARIZED-INDEX
[LOCAL-REFS]:
(73 58)
(70 66)
(65 68)
(64 66)
(61 68)
(57 71)
(56 58)
(52 71)
(49 36)
(46 22)
(35 47)
(34 36)
(31 47)
(27 50)
(24 50)
(10 12)
(7 12)
(3 14)
[REFS]:
([OFFSET] 72 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 69 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 53 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 48 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 45 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 39 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 38 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 37 [FUNCTION] 
NEW-MATH::MULTIPLY-FIXNUM [#ARGS] 2)
([OFFSET] 21 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 18 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 15 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 13 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 4 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
VINCULUM::%FIXNUMP [#ARGS] 1)
[ENTRIES]:
([#ARGS] 4 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 592 (simple) 30025077>
[IMMEDIATES]:
(71 Wrong number of subscripts)
(68 subscript out of range)
(47 subscript out of range)
(12 Subscript out of range))

(DEFUN 
ARRAY::DECODE-ARRAY
COMPILED FUNCTION INFO:
NAME: 
ARRAY::DECODE-ARRAY
[LOCAL-REFS]:
(63 39)
(62 39)
(58 63)
(34 46)
(24 27)
(16 27)
[REFS]:
([OFFSET] 61 [FUNCTION] 
LISP-INTERNALS::MVBIND-2 [#ARGS] 1)
([OFFSET] 60 [FUNCTION] 
ARRAY::DECODE-DISPLACED-ARRAY [#ARGS] 2)
([OFFSET] 30 [FUNCTION] 
ARRAY::%ARRAY-TOTAL-SIZE [#ARGS] 3)
([OFFSET] 26 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 512 (simple) 30026722>
[IMMEDIATES]:
(25 Array is ART-ERROR))

(DEFUN 
ARRAY::ALOC-HARD
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ALOC-HARD
[LOCAL-REFS]:
(63 30)
(58 51)
(55 51)
(46 55)
(32 56)
(28 59)
(22 25)
(14 25)
[REFS]:
([OFFSET] 62 [FUNCTION] 
ARRAY::COMPUTE-LINEARIZED-INDEX [#ARGS] 4)
([OFFSET] 49 [FUNCTION] 
LISP-INTERNALS::MVBIND-2 [#ARGS] 1)
([OFFSET] 48 [FUNCTION] 
ARRAY::DECODE-DISPLACED-ARRAY [#ARGS] 2)
([OFFSET] 24 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 0 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 512 (simple) 30031046>
[IMMEDIATES]:
(23 Array is ART-ERROR))

(DEFUN 
ARRAY::DECODE-2D-ARRAY
COMPILED FUNCTION INFO:
NAME: 
ARRAY::DECODE-2D-ARRAY
[LOCAL-REFS]:
(92 46)
(89 53)
(86 77)
(83 77)
(72 83)
(58 84)
(52 87)
(51 53)
(48 87)
(45 90)
(44 46)
(41 90)
(31 34)
(25 28)
(15 18)
[REFS]:
([OFFSET] 91 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 88 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 75 [FUNCTION] 
LISP-INTERNALS::MVBIND-2 [#ARGS] 1)
([OFFSET] 74 [FUNCTION] 
ARRAY::DECODE-1D-DISPLACED-ARRAY [#ARGS] 2)
([OFFSET] 54 [FUNCTION] 
NEW-MATH::MULTIPLY-FIXNUM [#ARGS] 2)
([OFFSET] 38 [FUNCTION] 
ARRAY::%HEADER-BOUNDS [#ARGS] 1)
([OFFSET] 33 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 27 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 17 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
[ENTRIES]:
([#ARGS] 3 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 744 (simple) 30033264>
[IMMEDIATES]:
(90 Subscript range error)
(87 Subscript range error)
(32 Array is not two-Dimensional)
(26 Array is ART-ERROR)
(16 Array is a not two dimensional))

(DEFUN 
ARRAY::AREF-2
COMPILED FUNCTION INFO:
NAME: 
ARRAY::AREF-2
[LOCAL-REFS]:
[REFS]:
([OFFSET] 4 [FUNCTION] 
ARRAY::SVREF-DISPATCH [#ARGS] 1)
([OFFSET] 2 [FUNCTION] 
ARRAY::DECODE-2D-ARRAY [#ARGS] 3)
[ENTRIES]:
([#ARGS] 3 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 64 (simple) 30035162>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ASET-2
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ASET-2
[LOCAL-REFS]:
[REFS]:
([OFFSET] 4 [FUNCTION] 
ARRAY::SVSET-DISPATCH [#ARGS] 2)
([OFFSET] 2 [FUNCTION] 
ARRAY::DECODE-2D-ARRAY [#ARGS] 3)
[ENTRIES]:
([#ARGS] 4 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 64 (simple) 30035417>
[IMMEDIATES]:)

(DEFUN 
ARRAY::AREF-HARD
COMPILED FUNCTION INFO:
NAME: 
ARRAY::AREF-HARD
[LOCAL-REFS]:
[REFS]:
([OFFSET] 3 [FUNCTION] 
ARRAY::SVREF-DISPATCH [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
ARRAY::ALOC-HARD [#ARGS] 2)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 56 (simple) 30035653>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ASET-HARD
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ASET-HARD
[LOCAL-REFS]:
[REFS]:
([OFFSET] 3 [FUNCTION] 
ARRAY::SVSET-DISPATCH [#ARGS] 2)
([OFFSET] 1 [FUNCTION] 
ARRAY::ALOC-HARD [#ARGS] 2)
[ENTRIES]:
([#ARGS] 3 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 56 (simple) 30036075>
[IMMEDIATES]:)

(DEFUN 
ARRAY::AREF-N
COMPILED FUNCTION INFO:
NAME: 
ARRAY::AREF-N
[LOCAL-REFS]:
[REFS]:
([OFFSET] 4 [FUNCTION] 
ARRAY::AREF-HARD [#ARGS] 2)
([OFFSET] 1 [FUNCTION] 
LISP-INTERNALS::CONS-REST [#ARGS] 0)
[ENTRIES]:
([#ARGS] 16777214 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 40 (simple) 30036324>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ASET-N
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ASET-N
[LOCAL-REFS]:
[REFS]:
([OFFSET] 5 [FUNCTION] 
ARRAY::ASET-HARD [#ARGS] 3)
([OFFSET] 1 [FUNCTION] 
LISP-INTERNALS::CONS-REST [#ARGS] 0)
[ENTRIES]:
([#ARGS] 16777213 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 48 (simple) 30036526>
[IMMEDIATES]:)

(DEFUN 
ARRAY::AREF-LINEAR-DANGEROUSLY
COMPILED FUNCTION INFO:
NAME: 
ARRAY::AREF-LINEAR-DANGEROUSLY
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
ARRAY::SVREF-DISPATCH [#ARGS] 1)
[ENTRIES]:
([#ARGS] 3 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 48 (simple) 30037375>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ASET-LINEAR-DANGEROUSLY
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ASET-LINEAR-DANGEROUSLY
[LOCAL-REFS]:
[REFS]:
([OFFSET] 2 [FUNCTION] 
ARRAY::SVSET-DISPATCH [#ARGS] 2)
[ENTRIES]:
([#ARGS] 4 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 48 (simple) 30040027>
[IMMEDIATES]:)

(eval (
NC::DEFREWRITE 
LISP::AREF (
GLOBAL::&WHOLE 
ARRAY::FORM 
ARRAY::ARRAY 
GLOBAL::&REST 
ARRAY::SUBSCRIPTS) (
GLOBAL::CASE (
GLOBAL::LENGTH 
ARRAY::SUBSCRIPTS) (1 (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
ARRAY::AREF-1) 
ARRAY::ARRAY 
ARRAY::SUBSCRIPTS)) (2 (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
ARRAY::AREF-2) 
ARRAY::ARRAY 
ARRAY::SUBSCRIPTS)) (
GLOBAL::T 
ARRAY::FORM))))

(DEFUN 
LISP::AREF
COMPILED FUNCTION INFO:
NAME: 
LISP::AREF
[LOCAL-REFS]:
[REFS]:
([OFFSET] 4 [FUNCTION] 
ARRAY::AREF-HARD [#ARGS] 2)
([OFFSET] 1 [FUNCTION] 
LISP-INTERNALS::CONS-REST [#ARGS] 0)
[ENTRIES]:
([#ARGS] 16777214 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 40 (simple) 30040721>
[IMMEDIATES]:)

(eval (
NC::DEFREWRITE 
ARRAY::ASET (
GLOBAL::&WHOLE 
ARRAY::FORM 
PRIMITIVES::VALUE 
ARRAY::ARRAY 
GLOBAL::&REST 
ARRAY::SUBSCRIPTS) (
GLOBAL::CASE (
GLOBAL::LENGTH 
ARRAY::SUBSCRIPTS) (1 (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
ARRAY::ASET-1) 
PRIMITIVES::VALUE 
ARRAY::ARRAY 
ARRAY::SUBSCRIPTS)) (2 (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
ARRAY::ASET-2) 
PRIMITIVES::VALUE 
ARRAY::ARRAY 
ARRAY::SUBSCRIPTS)) (
GLOBAL::T 
ARRAY::FORM))))

(DEFUN 
ARRAY::ASET
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ASET
[LOCAL-REFS]:
[REFS]:
([OFFSET] 5 [FUNCTION] 
ARRAY::ASET-HARD [#ARGS] 3)
([OFFSET] 1 [FUNCTION] 
LISP-INTERNALS::CONS-REST [#ARGS] 0)
[ENTRIES]:
([#ARGS] 16777213 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 48 (simple) 30041660>
[IMMEDIATES]:)

(eval (
GLOBAL::SETQ 
SETF::*GRODY-SETF-MACRO-TABLE* (
GLOBAL::CONS (
GLOBAL::QUOTE (
LISP::AREF 
GLOBAL::LAMBDA (
ARRAY::ARRAY 
GLOBAL::&REST 
ARRAY::SUBSCRIPTS) (
GLOBAL::LET* ((
SETF::SINGLE-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) (
GLOBAL::QUOTE (
ARRAY::ARRAY)))) (
SETF::REST-TEMPVARS (
GLOBAL::MAPCAR (
GLOBAL::FUNCTION (
GLOBAL::LAMBDA (
GLOBAL::IGNORE) (
GLOBAL::GENTEMP))) 
ARRAY::SUBSCRIPTS)) (
SETF::STOREVAR (
GLOBAL::GENSYM)) (
SETF::TEMPVARS (
GLOBAL::APPEND 
SETF::SINGLE-TEMPVARS 
SETF::REST-TEMPVARS))) (
GLOBAL::VALUES 
SETF::TEMPVARS (
GLOBAL::APPEND (
GLOBAL::LIST 
ARRAY::ARRAY) (
GLOBAL::COPY-LIST 
ARRAY::SUBSCRIPTS)) (
GLOBAL::LIST 
SETF::STOREVAR) (
GLOBAL::LET ((
PRIMITIVES::VALUE 
SETF::STOREVAR) (
ARRAY::ARRAY (
GLOBAL::NTH 0 
SETF::TEMPVARS)) (
ARRAY::SUBSCRIPTS 
SETF::REST-TEMPVARS)) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
ARRAY::ASET) 
PRIMITIVES::VALUE 
ARRAY::ARRAY 
ARRAY::SUBSCRIPTS)) (
SYSTEM-INTERNALS::XR-BQ-LIST* (
GLOBAL::QUOTE 
LISP::AREF) 
SETF::TEMPVARS))))) (
LISP::IF (
GLOBAL::BOUNDP (
GLOBAL::QUOTE 
SETF::*GRODY-SETF-MACRO-TABLE*)) 
SETF::*GRODY-SETF-MACRO-TABLE* NIL))))

(eval (
GLOBAL::QUOTE 
LISP::AREF))

(DEFUN 
ARRAY::BIT-VECTOR-P
COMPILED FUNCTION INFO:
NAME: 
ARRAY::BIT-VECTOR-P
[LOCAL-REFS]:
(29 9)
(28 9)
(27 9)
(26 9)
(25 27)
(21 28)
(14 29)
(7 11)
(2 30)
[REFS]:
([OFFSET] 3 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 248 (simple) 30044752>
[IMMEDIATES]:)

(DEFUN 
ARRAY::SIMPLE-BIT-VECTOR-P
COMPILED FUNCTION INFO:
NAME: 
ARRAY::SIMPLE-BIT-VECTOR-P
[LOCAL-REFS]:
(11 9)
(7 11)
(2 12)
[REFS]:
([OFFSET] 3 [FUNCTION] 
ARRAY::READ-AND-LOCK-ARRAY-HEADER [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 104 (simple) 30045500>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-BOXED-WORDS-PER-ELEMENT
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-BOXED-WORDS-PER-ELEMENT
[LOCAL-REFS]:
(2 4)
[REFS]:
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 40 (simple) 30045754>
[IMMEDIATES]:)

(DEFUN 
ARRAY::ARRAY-TOTAL-DATA-SIZE
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-TOTAL-DATA-SIZE
[LOCAL-REFS]:
(35 36)
(34 36)
(33 36)
(32 36)
(31 36)
(30 36)
(29 36)
(28 36)
(27 36)
(26 36)
(25 36)
(24 36)
(23 36)
(22 36)
(21 36)
(20 36)
(19 36)
(18 41)
(17 43)
(16 45)
(15 45)
(14 46)
(13 46)
(12 48)
(11 48)
(10 50)
(9 50)
(8 52)
(7 52)
(6 55)
(5 58)
[REFS]:
([OFFSET] 38 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 3)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 472 (simple) 30047344>
[IMMEDIATES]:
(36 Improper array-type.))

(DEFUN 
ARRAY::ARRAY-TYPE-CONSTANT-FROM-SYMBOL
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-TYPE-CONSTANT-FROM-SYMBOL
[LOCAL-REFS]:
(89 91)
(84 86)
(79 81)
(74 76)
(69 71)
(64 66)
(59 61)
(54 56)
(49 51)
(44 46)
(39 41)
(34 36)
(29 31)
(24 26)
(19 21)
(14 16)
(10 92)
(3 5)
[REFS]:
([OFFSET] 93 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 0 [FUNCTION] 
VINCULUM::INTEGERP [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 752 (simple) 30051073>
[IMMEDIATES]:
(92 bad type to ARRAY-TYPE-CONSTANT-FROM-SYMBOL)
(86 
ARRAY::ART-DOUBLE-FLOAT)
(81 
ARRAY::ART-SINGLE-FLOAT)
(76 
ARRAY::ART-FAT-STRING)
(71 
ARRAY::ART-STRING)
(66 
ARRAY::ART-32B)
(61 
ARRAY::ART-32BS)
(56 
ARRAY::ART-16B)
(51 
ARRAY::ART-16BS)
(46 
ARRAY::ART-8B)
(41 
ARRAY::ART-8BS)
(36 
ARRAY::ART-4B)
(31 
ARRAY::ART-4BS)
(26 
ARRAY::ART-2B)
(21 
ARRAY::ART-2BS)
(16 
ARRAY::ART-1B)
(11 
ARRAY::ART-Q))

(DEFUN 
ARRAY::ARRAY-TYPE-FROM-ELEMENT-TYPE
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-TYPE-FROM-ELEMENT-TYPE
[LOCAL-REFS]:
(72 74)
(67 69)
(60 62)
(55 57)
(50 52)
(46 48)
(42 44)
(38 40)
(35 63)
(29 31)
(24 26)
(19 21)
(15 17)
(11 13)
(8 32)
(2 64)
[REFS]:
([OFFSET] 4 [FUNCTION] 
CONS::CADR [#ARGS] 1)
([OFFSET] 3 [FUNCTION] 
CONS::CAR [#ARGS] 1)
[ENTRIES]:
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 600 (simple) 30054035>
[IMMEDIATES]:
(69 
LISP-INTERNALS::CHARACTER)
(64 
LISP-INTERNALS::STRING-CHAR)
(32 
LISP-INTERNALS::UNSIGNED-BYTE)
(5 
LISP-INTERNALS::SIGNED-BYTE))

(DEFUN 
ARRAY::ARRAY-DIMENSIONS-AND-DATA-LENGTH-IN-Q-S
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ARRAY-DIMENSIONS-AND-DATA-LENGTH-IN-Q-S
[LOCAL-REFS]:
(75 17)
(73 17)
(70 74)
(67 17)
(64 17)
(57 61)
(53 44)
(49 29)
(43 50)
(39 50)
(36 50)
(31 54)
(25 68)
(12 15)
(8 23)
(5 23)
[REFS]:
([OFFSET] 72 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 66 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 61 [FUNCTION] 
VINCULUM::%FIXNUMP [#ARGS] 1)
([OFFSET] 60 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 3)
([OFFSET] 52 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 3)
([OFFSET] 48 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 45 [FUNCTION] 
NEW-MATH::MULTIPLY-FIXNUM [#ARGS] 2)
([OFFSET] 33 [FUNCTION] 
VINCULUM::%FIXNUMP [#ARGS] 1)
([OFFSET] 32 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 27 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 26 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 18 [FUNCTION] 
ARRAY::ARRAY-TOTAL-DATA-SIZE [#ARGS] 2)
([OFFSET] 14 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 2 [FUNCTION] 
VINCULUM::%FIXNUMP [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 608 (simple) 30057446>
[IMMEDIATES]:
(71 ~S is not a valid array dimension specification.)
(65 Array too large-- Cannot make it.)
(58 Arrays may have at most ~D dimensions, not ~S)
(50 ~dth dimension, ~S, is not a fixnum)
(13 Array too large---- Cannot make it.))

(DEFUN 
ARRAY::BUILD-ARRAY-HEADERS
COMPILED FUNCTION INFO:
NAME: 
ARRAY::BUILD-ARRAY-HEADERS
[LOCAL-REFS]:
(46 48)
(42 44)
(36 38)
(32 34)
(29 34)
(25 27)
(19 23)
(14 16)
(2 51)
[REFS]:
[ENTRIES]:
([#ARGS] 13 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 448 (simple) 30061227>
[IMMEDIATES]:)

(DEFUN 
ARRAY::GET-ARRAY-AND-ARRAY-HEADER
COMPILED FUNCTION INFO:
NAME: 
ARRAY::GET-ARRAY-AND-ARRAY-HEADER
[LOCAL-REFS]:
(86 35)
(84 35)
(81 85)
(78 47)
(73 47)
(67 74)
(64 47)
(41 60)
(38 65)
(34 85)
(33 35)
(30 79)
(27 85)
(21 25)
(18 25)
(13 16)
(9 11)
[REFS]:
([OFFSET] 77 [FUNCTION] 
CONS::ALLOCATE-STRUCTURE [#ARGS] 4)
([OFFSET] 72 [FUNCTION] 
CONS::ALLOCATE-STRUCTURE-IN-AREA [#ARGS] 5)
([OFFSET] 63 [FUNCTION] 
CONS::ALLOCATE-STRUCTURE [#ARGS] 4)
([OFFSET] 59 [FUNCTION] 
ARRAY::BUILD-ARRAY-HEADERS [#ARGS] 13)
([OFFSET] 46 [FUNCTION] 
CONS::ALLOCATE-STRUCTURE-IN-AREA [#ARGS] 5)
([OFFSET] 35 [FUNCTION] 
ARRAY::ARRAY-BOXED-WORDS-PER-ELEMENT [#ARGS] 1)
[ENTRIES]:
([#ARGS] 10 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 696 (simple) 30063041>
[IMMEDIATES]:)

(DEFUN 
ARRAY::CHECK-DISPLACED-LEGALITY
COMPILED FUNCTION INFO:
NAME: 
ARRAY::CHECK-DISPLACED-LEGALITY
[LOCAL-REFS]:
(14 16)
(8 11)
(3 12)
[REFS]:
([OFFSET] 17 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 10 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 5 [FUNCTION] 
ARRAY::ARRAY-TOTAL-SIZE [#ARGS] 1)
[ENTRIES]:
([#ARGS] 4 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 144 (simple) 30064571>
[IMMEDIATES]:
(16 Not a valid thing to displaced to.)
(9 Cannot fit in specified displaced to array))

(DEFUN 
ARRAY::MAKE-ARRAY-INTERNAL
COMPILED FUNCTION INFO:
NAME: 
ARRAY::MAKE-ARRAY-INTERNAL
[LOCAL-REFS]:
(115 49)
(114 49)
(113 115)
(100 105)
(94 98)
(87 92)
(77 85)
(74 66)
(68 75)
(64 75)
(47 110)
(42 33)
(39 38)
(38 43)
(35 39)
(30 33)
(27 40)
(22 24)
(19 43)
(12 17)
[REFS]:
([OFFSET] 110 [FUNCTION] 
VINCULUM::%FIXNUMP [#ARGS] 1)
([OFFSET] 73 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 69 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 65 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 58 [FUNCTION] 
LISP-INTERNALS::MVBIND-2 [#ARGS] 1)
([OFFSET] 57 [FUNCTION] 
ARRAY::GET-ARRAY-AND-ARRAY-HEADER [#ARGS] 10)
([OFFSET] 48 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 41 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 37 [FUNCTION] 
LISP-INTERNALS::MAX-2 [#ARGS] 2)
([OFFSET] 32 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 24 [FUNCTION] 
VINCULUM::%FIXNUMP [#ARGS] 1)
([OFFSET] 16 [FUNCTION] 
ARRAY::CHECK-DISPLACED-LEGALITY [#ARGS] 4)
([OFFSET] 7 [FUNCTION] 
LISP-INTERNALS::MVBIND-3 [#ARGS] 1)
([OFFSET] 6 [FUNCTION] 
ARRAY::ARRAY-DIMENSIONS-AND-DATA-LENGTH-IN-Q-S [#ARGS] 2)
[ENTRIES]:
([#ARGS] 9 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 928 (simple) 30066436>
[IMMEDIATES]:
(40 ~S is a bad fill-pointer specification)
(31 Only one dimensional array can have fill-pointers))

(DEFUN 
ARRAY::SIMPLE-ERROR-CHECKS
COMPILED FUNCTION INFO:
NAME: 
ARRAY::SIMPLE-ERROR-CHECKS
[LOCAL-REFS]:
(43 4)
(42 35)
(41 32)
(38 35)
(31 36)
(28 36)
(23 26)
(20 26)
(15 18)
(12 18)
(6 10)
(2 43)
[REFS]:
([OFFSET] 33 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 25 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 17 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 1)
([OFFSET] 9 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 3)
[ENTRIES]:
([#ARGS] 5 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 352 (simple) 30071025>
[IMMEDIATES]:
(32 Initial-contents or initial-element cannot be specified when displaced-to is specified)
(24 initial-contents and initial-element cannot be specified at the same time)
(16 Cannot supecify both element-type and type parameters)
(7 Initial contents and element are not implemented yet --wkf))

(DEFUN 
ARRAY::ZL-MAKE-ARRAY
COMPILED FUNCTION INFO:
NAME: 
ARRAY::ZL-MAKE-ARRAY
[LOCAL-REFS]:
(223 164)
(222 164)
(219 164)
(216 203)
(199 213)
(186 193)
(183 193)
(177 193)
(172 175)
(169 173)
(166 175)
(161 164)
(158 217)
(155 217)
(151 220)
(140 46)
(136 46)
(132 46)
(128 133)
(124 46)
(120 125)
(116 46)
(112 117)
(108 46)
(104 109)
(100 46)
(96 101)
(92 46)
(88 93)
(84 46)
(80 85)
(76 46)
(72 77)
(68 46)
(64 69)
(60 46)
(54 61)
(50 26)
(37 51)
(30 141)
[REFS]:
([OFFSET] 218 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 215 [FUNCTION] 
ARRAY::ARRAY-TYPE-CONSTANT-FROM-SYMBOL [#ARGS] 1)
([OFFSET] 210 [FUNCTION] 
ARRAY::MAKE-ARRAY-INTERNAL [#ARGS] 9)
([OFFSET] 202 [FUNCTION] 
ARRAY::ARRAY-TYPE-FROM-ELEMENT-TYPE [#ARGS] 1)
([OFFSET] 187 [FUNCTION] 
ARRAY::ARRAY-ELEMENT-TYPE [#ARGS] 1)
([OFFSET] 174 [FUNCTION] 
LISP-INTERNALS::ERROR [#ARGS] 2)
([OFFSET] 171 [FUNCTION] 
LISP-INTERNALS::MAX-2 [#ARGS] 2)
([OFFSET] 170 [FUNCTION] 
ARRAY::LENGTH [#ARGS] 1)
([OFFSET] 163 [FUNCTION] 
LISP-INTERNALS::MAX-2 [#ARGS] 2)
([OFFSET] 152 [FUNCTION] 
VINCULUM::%FIXNUMP [#ARGS] 1)
([OFFSET] 148 [FUNCTION] 
ARRAY::SIMPLE-ERROR-CHECKS [#ARGS] 5)
([OFFSET] 139 [FUNCTION] 
ARRAY::CADR [#ARGS] 1)
([OFFSET] 131 [FUNCTION] 
ARRAY::CADR [#ARGS] 1)
([OFFSET] 123 [FUNCTION] 
ARRAY::CADR [#ARGS] 1)
([OFFSET] 115 [FUNCTION] 
ARRAY::CADR [#ARGS] 1)
([OFFSET] 107 [FUNCTION] 
ARRAY::CADR [#ARGS] 1)
([OFFSET] 99 [FUNCTION] 
ARRAY::CADR [#ARGS] 1)
([OFFSET] 91 [FUNCTION] 
ARRAY::CADR [#ARGS] 1)
([OFFSET] 83 [FUNCTION] 
ARRAY::CADR [#ARGS] 1)
([OFFSET] 75 [FUNCTION] 
ARRAY::CADR [#ARGS] 1)
([OFFSET] 67 [FUNCTION] 
ARRAY::CADR [#ARGS] 1)
([OFFSET] 57 [FUNCTION] 
ARRAY::CADR [#ARGS] 1)
([OFFSET] 48 [FUNCTION] 
ARRAY::CDDR [#ARGS] 1)
([OFFSET] 40 [FUNCTION] 
ARRAY::CADR [#ARGS] 1)
([OFFSET] 33 [FUNCTION] 
ARRAY::CAAR [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
LISP-INTERNALS::CONS-REST [#ARGS] 0)
[ENTRIES]:
([#ARGS] 16777214 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 1792 (simple) 30075610>
[IMMEDIATES]:
(217 ~S is not a valid leader-length specification)
(173 ~S is not a valid leader-list specification)
(133 
KEYWORD::AREA)
(125 
KEYWORD::LEADER-LIST)
(117 
KEYWORD::LEADER-LENGTH)
(109 
KEYWORD::ADJUSTABLE)
(101 
KEYWORD::DISPLACED-INDEX-OFFSET)
(93 
KEYWORD::DISPLACED-TO)
(85 
KEYWORD::FILL-POINTER)
(77 
KEYWORD::NAMED-STRUCTURE-SYMBOL)
(69 
KEYWORD::INITIAL-CONTENTS)
(61 
KEYWORD::INITIAL-ELEMENT)
(51 
KEYWORD::TYPE)
(34 
KEYWORD::ELEMENT-TYPE))

(DEFUN 
ARRAY::MAKE-ARRAY
COMPILED FUNCTION INFO:
NAME: 
ARRAY::MAKE-ARRAY
[LOCAL-REFS]:
(70 20)
(69 26)
(68 32)
(67 48)
(51 53)
(45 67)
(40 42)
(35 37)
(29 68)
(23 69)
(17 70)
[REFS]:
([OFFSET] 66 [FUNCTION] 
ARRAY::MAKE-ARRAY-INTERNAL [#ARGS] 9)
([OFFSET] 58 [FUNCTION] 
ARRAY::ARRAY-TYPE-FROM-ELEMENT-TYPE [#ARGS] 1)
([OFFSET] 57 [FUNCTION] 
ARRAY::SIMPLE-ERROR-CHECKS [#ARGS] 5)
([OFFSET] 7 [FUNCTION] 
LISP-INTERNALS::MVBIND-N [#ARGS] 2)
([OFFSET] 5 [FUNCTION] 
LISP-INTERNALS::GET-KEYWORD-ARG-VALUES [#ARGS] 3)
([OFFSET] 1 [FUNCTION] 
LISP-INTERNALS::CONS-REST [#ARGS] 0)
[ENTRIES]:
([#ARGS] 16777214 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 568 (simple) 30104363>
[IMMEDIATES]:
(48 
LISP-INTERNALS::KEYWORD-GARBAGE)
(42 
LISP-INTERNALS::KEYWORD-GARBAGE)
(37 
LISP-INTERNALS::KEYWORD-GARBAGE)
(32 
LISP-INTERNALS::KEYWORD-GARBAGE)
(26 
LISP-INTERNALS::KEYWORD-GARBAGE)
(20 
LISP-INTERNALS::KEYWORD-GARBAGE)
(14 
LISP-INTERNALS::KEYWORD-GARBAGE)
(4 (
KEYWORD::ELEMENT-TYPE 
KEYWORD::INITIAL-ELEMENT 
KEYWORD::INITIAL-CONTENTS 
KEYWORD::ADJUSTABLE 
KEYWORD::FILL-POINTER 
KEYWORD::DISPLACED-TO 
KEYWORD::DISPLACED-INDEX-OFFSET)))

(DEFUN 
ARRAY::MAKE-EASY-ARRAY
COMPILED FUNCTION INFO:
NAME: 
ARRAY::MAKE-EASY-ARRAY
[LOCAL-REFS]:
(0 1)
[REFS]:
([OFFSET] 9 [FUNCTION] 
ARRAY::MAKE-ARRAY-INTERNAL [#ARGS] 9)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 1)
([#ARGS] 1 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 80 (simple) 30110520>
[IMMEDIATES]:)

(DEFUN 
ARRAY::MAKE-EASY-ARRAY-WITH-ELEMENT-TYPE
COMPILED FUNCTION INFO:
NAME: 
ARRAY::MAKE-EASY-ARRAY-WITH-ELEMENT-TYPE
[LOCAL-REFS]:
[REFS]:
([OFFSET] 8 [FUNCTION] 
ARRAY::MAKE-ARRAY-INTERNAL [#ARGS] 9)
([OFFSET] 0 [FUNCTION] 
ARRAY::ARRAY-TYPE-FROM-ELEMENT-TYPE [#ARGS] 1)
[ENTRIES]:
([#ARGS] 2 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 72 (simple) 30111015>
[IMMEDIATES]:)

(eval (
NC::DEFREWRITE 
ARRAY::MAKE-ARRAY (
GLOBAL::&WHOLE 
ARRAY::FORM 
ARRAY::DIMENSIONS 
GLOBAL::&REST 
ARRAY::OPTIONS 
GLOBAL::&KEY (
ARRAY::ELEMENT-TYPE 
GLOBAL::T 
ARRAY::ELEMENT-TYPE-P)) (
GLOBAL::COND ((
GLOBAL::NULL 
ARRAY::OPTIONS) (
GLOBAL::COND ((
VINCULUM::NUMBERP 
ARRAY::DIMENSIONS) (
SYSTEM-INTERNALS::XR-BQ-LIST (
GLOBAL::QUOTE 
ARRAY::MAKE-VECTOR) 
ARRAY::DIMENSIONS)) (
GLOBAL::T (
SYSTEM-INTERNALS::XR-BQ-LIST (
GLOBAL::QUOTE 
ARRAY::MAKE-EASY-ARRAY) 
ARRAY::DIMENSIONS)))) ((
GLOBAL::AND 
ARRAY::ELEMENT-TYPE-P (
GLOBAL::NULL (
GLOBAL::CDDR 
ARRAY::OPTIONS))) (
GLOBAL::LET ((
ARRAY::TYPE (
GLOBAL::OR (
GLOBAL::EQ 
ARRAY::ELEMENT-TYPE 
GLOBAL::T) (
GLOBAL::AND (
GLOBAL::CONSP 
ARRAY::ELEMENT-TYPE) (
GLOBAL::EQ (
GLOBAL::CAR 
ARRAY::ELEMENT-TYPE) (
GLOBAL::QUOTE 
GLOBAL::QUOTE)) (
GLOBAL::CADR 
ARRAY::ELEMENT-TYPE))))) (
LISP::IF 
ARRAY::TYPE (
GLOBAL::LET ((
ARRAY::ARRAY-TYPE (
ARRAY::ARRAY-TYPE-FROM-ELEMENT-TYPE 
ARRAY::TYPE))) (
LISP::IF (
VINCULUM::NUMBERP 
ARRAY::DIMENSIONS) (
GLOBAL::COND ((
GLOBAL::= 
ARRAY::ARRAY-TYPE 
ARRAY::ART-Q) (
SYSTEM-INTERNALS::XR-BQ-LIST (
GLOBAL::QUOTE 
ARRAY::MAKE-VECTOR) 
ARRAY::DIMENSIONS)) ((
GLOBAL::= 
ARRAY::ARRAY-TYPE 
ARRAY::ART-STRING) (
SYSTEM-INTERNALS::XR-BQ-LIST (
GLOBAL::QUOTE 
ARRAY::MAKE-STRING) 
ARRAY::DIMENSIONS)) (
GLOBAL::T (
SYSTEM-INTERNALS::XR-BQ-LIST (
GLOBAL::QUOTE 
ARRAY::MAKE-1D-ARRAY) 
ARRAY::DIMENSIONS 
ARRAY::ARRAY-TYPE))) (
SYSTEM-INTERNALS::XR-BQ-LIST (
GLOBAL::QUOTE 
ARRAY::MAKE-EASY-ARRAY) 
ARRAY::DIMENSIONS 
ARRAY::ARRAY-TYPE))) (
SYSTEM-INTERNALS::XR-BQ-LIST (
GLOBAL::QUOTE 
ARRAY::MAKE-EASY-ARRAY-WITH-ELEMENT-TYPE) 
ARRAY::DIMENSIONS 
ARRAY::ELEMENT-TYPE)))) (
GLOBAL::T 
ARRAY::FORM))))

(DEFUN 
ARRAY::VECTOR
COMPILED FUNCTION INFO:
NAME: 
ARRAY::VECTOR
[LOCAL-REFS]:
(14 6)
(8 15)
[REFS]:
([OFFSET] 13 [FUNCTION] 
CONS::CDR [#ARGS] 1)
([OFFSET] 11 [FUNCTION] 
ARRAY::SVSET [#ARGS] 3)
([OFFSET] 9 [FUNCTION] 
CONS::CAR [#ARGS] 1)
([OFFSET] 4 [FUNCTION] 
ARRAY::MAKE-VECTOR [#ARGS] 1)
([OFFSET] 3 [FUNCTION] 
ARRAY::LENGTH [#ARGS] 1)
([OFFSET] 1 [FUNCTION] 
LISP-INTERNALS::CONS-REST [#ARGS] 0)
[ENTRIES]:
([#ARGS] 16777215 [OFFSET] 0)
[FUNCTION-CODE]:
#<ART-Q 128 (simple) 30114004>
[IMMEDIATES]:)