(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")
(FILECREATED " 3-Nov-86 12:52:46" ("compiled on " {ERIS}<LISPCORE>SOURCES>CMLARRAY.;12) 
"31-Oct-86 17:14:43" "COMPILE-FILEd" in "Xerox Lisp 31-Oct-86 ..." dated "31-Oct-86 17:48:39")
(FILECREATED " 3-Nov-86 12:49:36" {ERIS}<LISPCORE>SOURCES>CMLARRAY.;12 126425 previous date%: 
"18-Oct-86 17:37:00" {ERIS}<LISPCORE>SOURCES>CMLARRAY.;11)
(RPAQQ CMLARRAYCOMS ((* ;; "Contains table driven macros") (DECLARE%: DONTCOPY EVAL@COMPILE (EXPORT (
FILES (SYSLOAD FROM VALUEOF DIRECTORIES) CMLARRAY-SUPPORT))) (* ;; "User entry points") (FUNCTIONS 
CL:ADJUST-ARRAY CL:ADJUSTABLE-ARRAY-P CL:ARRAY-DIMENSION CL:ARRAY-DIMENSIONS CL:ARRAY-ELEMENT-TYPE 
CL:ARRAY-HAS-FILL-POINTER-P ARRAY-NEEDS-INDIRECTION-P CL:ARRAY-RANK CL:ARRAY-TOTAL-SIZE BIT CL:BIT-AND
 CL:BIT-ANDC1 CL:BIT-ANDC2 BIT-ARRAY-P CL:BIT-EQV CL:BIT-IOR CL:BIT-NAND CL:BIT-NOR CL:BIT-NOT 
CL:BIT-ORC1 CL:BIT-ORC2 CL:BIT-VECTOR-P CL:BIT-XOR CHAR CL:ARRAYP CL:STRINGP COPY-ARRAY 
DISPLACED-ARRAY-P EQUAL-DIMENSIONS-P EXTENDABLE-ARRAY-P FILL-ARRAY CL:FILL-POINTER FILL-VECTOR 
CL:MAKE-ARRAY MAKE-VECTOR READ-ONLY-ARRAY-P CL:SBIT CL:SCHAR SET-FILL-POINTER SIMPLE-ARRAY-P 
CL:SIMPLE-BIT-VECTOR-P CL:SIMPLE-STRING-P CL:SIMPLE-VECTOR-P STRING-ARRAY-P CL:SVREF VECTOR-LENGTH 
CL:VECTOR-POP CL:VECTOR-PUSH CL:VECTOR-PUSH-EXTEND CL:VECTORP) (FNS %%COPY-TO-NEW-ARRAY CL:AREF 
CL:ARRAY-IN-BOUNDS-P CL:ARRAY-ROW-MAJOR-INDEX ASET CL:VECTOR) (* ;; 
"Obsolete but retained to avoid recompilation") (FNS SCHARSET) (* ;; "Vars etc") (* ; 
"*PRINT-ARRAY* is defined in APRINT") (VARIABLES CL:ARRAY-RANK-LIMIT CL:ARRAY-TOTAL-SIZE-LIMIT 
CL:ARRAY-DIMENSION-LIMIT *DEFAULT-PUSH-EXTENSION-SIZE*) (* ;; "Internal stuff") (FNS 
%%ALTER-AS-DISPLACED-ARRAY %%ALTER-AS-DISPLACED-TO-BASE-ARRAY %%AREF0 %%AREF1 %%AREF2 %%ARRAY-BASE 
%%ARRAY-CONTENT-INITIALIZE %%ARRAY-ELEMENT-INITIALIZE %%ARRAY-OFFSET %%ARRAY-TYPE-NUMBER %%ASET0 
%%ASET1 %%ASET2 %%CHECK-SEQUENCE-DIMENSIONS %%DO-LOGICAL-OP %%EXTEND-ARRAY %%FAST-COPY-BASE 
%%FAT-STRING-ARRAY-P %%FILL-ARRAY-FROM-SEQUENCE %%FLATTEN-ARRAY %%MAKE-ARRAY-WRITEABLE 
%%MAKE-DISPLACED-ARRAY %%MAKE-GENERAL-ARRAY %%MAKE-ONED-ARRAY %%MAKE-STRING-ARRAY-FAT 
%%MAKE-TWOD-ARRAY %%TOTAL-SIZE SHRINK-VECTOR) (* ; "For Interlisp string hack") (FNS 
%%SET-ARRAY-OFFSET %%SET-ARRAY-TYPE-NUMBER) (* ; "Faster predicates not including IL:STRINGP's") (FNS 
%%ARRAYP %%SIMPLE-ARRAY-P %%SIMPLE-STRING-P %%STRINGP %%VECTORP) (* ; "Low level predicates") (FNS 
%%GENERAL-ARRAY-P %%ONED-ARRAY-P %%THIN-STRING-ARRAY-P %%TWOD-ARRAY-P) (* ; "Record def's") (DECLARE%:
 DONTCOPY DOEVAL@COMPILE (EXPORT (RECORDS ARRAY-HEADER GENERAL-ARRAY ONED-ARRAY TWOD-ARRAY))) (
INITRECORDS GENERAL-ARRAY ONED-ARRAY TWOD-ARRAY) (SYSRECORDS GENERAL-ARRAY ONED-ARRAY TWOD-ARRAY) (
PROP DOPVAL %%AREF1 %%AREF2 %%ASET1 %%ASET2) (* ;; "I/O") (FNS %%DEFPRINT-ARRAY %%DEFPRINT-BITVECTOR 
%%DEFPRINT-GENERIC-ARRAY %%DEFPRINT-VECTOR %%DEFPRINT-STRING %%PRINT-ARRAY-CONTENTS) (P (DEFPRINT (
QUOTE ONED-ARRAY) (QUOTE %%DEFPRINT-VECTOR)) (DEFPRINT (QUOTE TWOD-ARRAY) (QUOTE %%DEFPRINT-ARRAY)) (
DEFPRINT (QUOTE GENERAL-ARRAY) (QUOTE %%DEFPRINT-ARRAY))) (* ;; 
"Needed at run time. low level functions for accessing, setting, and allocating raw storage. also includes cml type to typenumber converters"
) (FNS %%ARRAY-READ %%ARRAY-WRITE %%CML-TYPE-TO-TYPENUMBER %%GET-CANONICAL-CML-TYPE 
%%GET-ENCLOSING-SIGNED-BYTE %%GET-ENCLOSING-UNSIGNED-BYTE %%MAKE-ARRAY-STORAGE %%REDUCE-INTEGER 
%%REDUCE-MOD %%SLOW-ARRAY-READ %%SLOW-ARRAY-WRITE) (* ;; "Compiler options") (DECLARE%: DONTEVAL@LOAD 
DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (PROP FILETYPE CMLARRAY) (DECLARE%: DONTEVAL@LOAD 
DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CL:VECTOR ASET 
CL:ARRAY-ROW-MAJOR-INDEX CL:ARRAY-IN-BOUNDS-P CL:AREF)))))
CL:ADJUST-ARRAY D1
(L (0 -args-)) Ç)��e
�kañðP$laºi»Hl½¼MdLó¢±�ó¿h[¾i_¿Hl_¿_¿OdOó¢±�í¿h__¿i_¿Hl_¿_¿OdOó¢±�ç¿h__¿i_¿Hl_"¿_ ¿O"dO ó¢±�á¿h__$¿i_&¿Hl_*¿_(¿O*dO(ó¢±�Û¿h_&_,¿i_.¿Hl_2¿_0¿O2dO0ó¢±�Õ¿h_.¿j_4¿i_6¿Hl_:¿_8¿O:dO8ó¢±�Í¿h_6_<¿Hl_@¿_>¿O@dO>ó¢±�Ë¿h_B¿I	��§o���	��¿Jd´‚±�Íd¢±�ñ�Ãag��ð–MkØa±ÿ	MlÔ]±þ÷ag��ð—OkØa±ÿOlÔ_±þùag��ð—OkØa±ÿOlÔ_±þÿag��ð—O"kØa±ÿO"lÔ_"±ÿag��ð—O*kØa±ÿ!O*lÔ_*±ÿag��ð—O2kØa±ÿ)O2lÔ_2±ÿag��ð—O:kØa±ÿ/O:lÔ_:±ÿag��ð—O@kØa±ÿ/O@lÔ_@±ÿhZh_F¿_Dd²
_F¿jOFó§nÿþOFó³fi˜o���J
��¿I	��J	��J	��I	��hð(l€ONó©o���ON
��¿nÿþOLó©o���OL
��¿ONI	��:¨o���J
��¿K²NOJô³o���N
��‡OD°ƒOJ^¿O6ŸO<¬I	��—o���	��¿O›O³3O³/O&³+O&›O³$O³ O³O6—O<”ONk:žO.•O¢O&•OšO—o���	��¿O²=O$d²¿OJO$	��ô³o���°!³îO$³èo���O4OLÔO$	��ó—o���	��¿O<µI	��²-I	��OL
��_<°ið•OL_<°jO<ó¥O<OLó™o���O<
��¿OP²O¢O&”o���ŒOLI	��ýó—o���	��¿OžIJO$O4O<
��¿°tO&²IJNO,O4O<OB
��¿°^I	��JôœO<²SIO<
��¿°JJg��Ng��I	��
��_H¿O˜OHO
��°!O—OHO
��¿I	��I	��jJOH	��j
��¿IOHJO<��I�(963 %%EXTEND-ARRAY 953 %%COPY-TO-NEW-ARRAY 948 %%FLATTEN-ARRAY 941 %%FLATTEN-ARRAY 937 CL:ARRAY-DIMENSIONS 932 %%ARRAY-ELEMENT-INITIALIZE 920 %%ARRAY-CONTENT-INITIALIZE 907 CL:MAKE-ARRAY 903 %%FAT-STRING-ARRAY-P 888 SET-FILL-POINTER 875 CL:ARRAY-DIMENSIONS 868 %%ALTER-AS-DISPLACED-TO-BASE-ARRAY 846 %%ALTER-AS-DISPLACED-ARRAY 830 CL:ERROR 820 CL:ARRAY-TOTAL-SIZE 798 CL:ERROR 765 MIN 760 CL:FILL-POINTER 754 CL:ARRAY-HAS-FILL-POINTER-P 745 CL:ERROR 736 CL:ARRAY-TOTAL-SIZE 702 CL:ARRAY-ELEMENT-TYPE 682 CL:ERROR 618 CL:ERROR 610 CL:ARRAY-HAS-FILL-POINTER-P 590 CL:ERROR 572 CL:ERROR 562 CL:ARRAY-RANK 555 CL:ERROR 538 CL:ERROR 518 CL:ADJUSTABLE-ARRAY-P 514 LENGTH 510 %%TOTAL-SIZE 506 CL:ARRAY-ELEMENT-TYPE 501 CL:ERROR 255 CL:ERROR 247 EXTENDABLE-ARRAY-P)
(899 :FATP 895 :ELEMENT-TYPE 442 :FATP 418 :FILL-POINTER 394 :DISPLACED-INDEX-OFFSET 370 :DISPLACED-TO-BASE 346 :DISPLACED-TO 322 :INITIAL-CONTENTS 298 :INITIAL-ELEMENT 277 :ELEMENT-TYPE)
( 827 "Cannot extend an extendable array to have fewer elements" 813 "Cannot adjust an extendable array to be displaced"
 793 "Fill pointer out of bounds ~A" 742 "More elements than displaced-to array" 725 "Cannot displace to an Interlisp array/string"
 709 "Not displaced to an array of the same element-type:" 679 "Inconsistent options to adjust-array" 615
 "ADJUSTABLE-ARRAY has fill pointer" 586 "ADJUSTABLE-ARRAY not of specified element-type: ~A" 568 "Rank mismatch ~S"
 550 "Too many elements: ~A" 533 "Too many dimensions: ~A" 497 "Dimensions out of bounds ~S" 252 "Not an adjustable or extendable array")
(LET* ((A0623 (QUOTE CL:ADJUST-ARRAY)) (A0624 (QUOTE CL:FUNCTION)) (A0625 "Do something wonderful")) (
SET-DOCUMENTATION A0623 A0624 A0625))
CL:ADJUSTABLE-ARRAY-P D1
(L (0 ARRAY)) �&���
@d§¥@d™¿@Ê@jðhð‘ho���@
���(35 CL:ERROR)
NIL
( 31 "Not an array ~S")
CL:ARRAY-DIMENSION D1
(L (1 DIMENSION 0 ARRAY)) �‘��@d²¿Aj:“@Èo���A
��²#Adj:”¿@Èk:“@ÈAg��ð´
o���A
��@d²0¿@É
H	��¹Amÿó•IdAóª¿o���A
��¿Ik:“@ÈAH
��²Aj:”@	��o���A
��o���@
���(142 CL:ERROR 133 CL:ERROR 124 NCHARS 111 CL:NTH 97 CL:ERROR 77 LENGTH 59 CL:ERROR 22 CL:ERROR)
(48 CL:OTHERWISE)
( 138 "Not an array ~S" 129 "Dimension out of bounds: ~A" 93 "Dimension out of bounds: ~A" 55 "Dimension out of bounds: ~A"
 18 "Dimension out of bounds: ~A")
CL:ARRAY-DIMENSIONS D1
(L (0 ARRAY)) �7���
@d–¿@Èh™@È@Èh@d”¿@É–@	��ho���@
���(52 CL:ERROR 41 NCHARS)
NIL
( 48 "Not an array ~S")
CL:ARRAY-ELEMENT-TYPE D1
(L (0 ARRAY)) �‹
��
@d¨¦@d²q¿@	��
�HdlC:“g��lD:³ùHdl&:‘ilV:“g��Hdl6:“g��j:”o���Hdl:”o���l:”o���Hdl:”o���l:´o���o���Ho�����³o���@
���(136 CL:ERROR 123 ECASE-FAIL 18 %%ARRAY-TYPE-NUMBER)
(61 CL:SINGLE-FLOAT 51 XPOINTER 30 CL:STRING-CHAR)
( 132 "Not an array ~S" 120 (67 68 38 86 54 0 3 4 20 22) 115 (%%ARRAY-TYPE-NUMBER ARRAY) 110 (CL:SIGNED-BYTE 32)
 100 (CL:SIGNED-BYTE 16) 89 (CL:UNSIGNED-BYTE 16) 80 (CL:UNSIGNED-BYTE 8) 69 (CL:UNSIGNED-BYTE 1))
CL:ARRAY-HAS-FILL-POINTER-P D1
(L (0 ARRAY)) �&���
@d§¥@d™¿@Ê`jðhð‘ho���@
���(35 CL:ERROR)
NIL
( 31 "Not an array ~S")
ARRAY-NEEDS-INDIRECTION-P D1
(L (0 ARRAY)) �'���
@d‘¿‡¤@d‘h˜@Êjðhðo���@
���(36 CL:ERROR)
NIL
( 32 "Not an array ~S")
CL:ARRAY-RANK D1
(L (0 ARRAY)) �(���
@d‘k’l@d—¿@É	��³éo���@
���(37 CL:ERROR 24 LENGTH)
NIL
( 33 "Not an array ~S")
CL:ARRAY-TOTAL-SIZE D1
(L (0 ARRAY)) �$���
@d§¥@d”¿@È”@	��o���@
���(33 CL:ERROR 24 NCHARS)
NIL
( 29 "Not an array ~S")
BIT D1
(L (0 -args-) F 11 NOBIND) �
�e
�kaAHl2
OdNó²(¿OZ¿I[	��²<K	��o���ô²1��¿g��k½¼IJ°@a_¿OµOh__¿OkÔ_°¾O&_¿°òo���I
��°¶d
ýMkØ]Wñ–hl4
��¿µíML�(120 \LISPERROR 100 ASSERT-FAIL 48 CL:VALUES 38 CL:ARRAY-ELEMENT-TYPE 32 CL:ARRAYP)
(52 CL:AREF)
( 96 "Not a bit-array: ~S" 42 (CL:UNSIGNED-BYTE 1))
CL:BIT-AND D1
(L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) �q���@	��§o���	��¿A	��§o���	��¿@A
��§o���	��¿Bµ@	��g��g����b°ið”@b°B	��—@dB
��©¿o���	��¿@Bð¨g��@B��¿g��AB��B�(109 %%DO-LOGICAL-OP 100 %%DO-LOGICAL-OP 87 CL:ERROR 78 EQUAL-DIMENSIONS-P 71 BIT-ARRAY-P 55 CL:MAKE-ARRAY 46 CL:ARRAY-DIMENSIONS 38 CL:ERROR 30 EQUAL-DIMENSIONS-P 24 CL:ERROR 16 BIT-ARRAY-P 11 CL:ERROR 3 BIT-ARRAY-P)
(104 AND 95 COPY 52 BIT 49 :ELEMENT-TYPE)
( 84 "Illegal result array" 35 "Bit-arrays not of same dimensions" 21 "BIT-ARRAY2 not a bit array" 8 "BIT-ARRAY1 not a bit array")
CL:BIT-ANDC1 D1
(L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) �j���@	��§o���	��¿A	��§o���	��¿@A
��§o���	��¿Bµ@	��g��g����b°ið”@b°B	��•@B
��§o���	��¿g��@B��g��AB��B�(102 %%DO-LOGICAL-OP 94 %%DO-LOGICAL-OP 85 CL:ERROR 77 EQUAL-DIMENSIONS-P 71 BIT-ARRAY-P 55 CL:MAKE-ARRAY 46 CL:ARRAY-DIMENSIONS 38 CL:ERROR 30 EQUAL-DIMENSIONS-P 24 CL:ERROR 16 BIT-ARRAY-P 11 CL:ERROR 3 BIT-ARRAY-P)
(97 AND 89 NOT 52 BIT 49 :ELEMENT-TYPE)
( 82 "Illegal result array" 35 "Bit-arrays not of same dimensions" 21 "BIT-ARRAY2 not a bit array" 8 "BIT-ARRAY1 not a bit array")
CL:BIT-ANDC2 D1
(L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) �q���@	��§o���	��¿A	��§o���	��¿@A
��§o���	��¿Bµ@	��g��g����b°ið”@b°B	��—@dB
��©¿o���	��¿@Bð¨g��@B��¿g��AB��B�(109 %%DO-LOGICAL-OP 100 %%DO-LOGICAL-OP 87 CL:ERROR 78 EQUAL-DIMENSIONS-P 71 BIT-ARRAY-P 55 CL:MAKE-ARRAY 46 CL:ARRAY-DIMENSIONS 38 CL:ERROR 30 EQUAL-DIMENSIONS-P 24 CL:ERROR 16 BIT-ARRAY-P 11 CL:ERROR 3 BIT-ARRAY-P)
(104 CAND 95 COPY 52 BIT 49 :ELEMENT-TYPE)
( 84 "Illegal result array" 35 "Bit-arrays not of same dimensions" 21 "BIT-ARRAY2 not a bit array" 8 "BIT-ARRAY1 not a bit array")
BIT-ARRAY-P D1
(L (0 ARRAY)) ����
@d‘¿‡¤@´
@Ê jðhð�NIL
NIL
()
CL:BIT-EQV D1
(L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) �j���@	��§o���	��¿A	��§o���	��¿@A
��§o���	��¿Bµ@	��g��g����b°ið”@b°B	��•@B
��§o���	��¿g��@B��g��AB��B�(102 %%DO-LOGICAL-OP 94 %%DO-LOGICAL-OP 85 CL:ERROR 77 EQUAL-DIMENSIONS-P 71 BIT-ARRAY-P 55 CL:MAKE-ARRAY 46 CL:ARRAY-DIMENSIONS 38 CL:ERROR 30 EQUAL-DIMENSIONS-P 24 CL:ERROR 16 BIT-ARRAY-P 11 CL:ERROR 3 BIT-ARRAY-P)
(97 XOR 89 NOT 52 BIT 49 :ELEMENT-TYPE)
( 82 "Illegal result array" 35 "Bit-arrays not of same dimensions" 21 "BIT-ARRAY2 not a bit array" 8 "BIT-ARRAY1 not a bit array")
CL:BIT-IOR D1
(L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) �q���@	��§o���	��¿A	��§o���	��¿@A
��§o���	��¿Bµ@	��g��g����b°ið”@b°B	��—@dB
��©¿o���	��¿@Bð¨g��@B��¿g��AB��B�(109 %%DO-LOGICAL-OP 100 %%DO-LOGICAL-OP 87 CL:ERROR 78 EQUAL-DIMENSIONS-P 71 BIT-ARRAY-P 55 CL:MAKE-ARRAY 46 CL:ARRAY-DIMENSIONS 38 CL:ERROR 30 EQUAL-DIMENSIONS-P 24 CL:ERROR 16 BIT-ARRAY-P 11 CL:ERROR 3 BIT-ARRAY-P)
(104 OR 95 COPY 52 BIT 49 :ELEMENT-TYPE)
( 84 "Illegal result array" 35 "Bit-arrays not of same dimensions" 21 "BIT-ARRAY2 not a bit array" 8 "BIT-ARRAY1 not a bit array")
CL:BIT-NAND D1
(L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) �j���@	��§o���	��¿A	��§o���	��¿@A
��§o���	��¿Bµ@	��g��g����b°ið”@b°B	��•@B
��§o���	��¿g��@B��g��AB��B�(102 %%DO-LOGICAL-OP 94 %%DO-LOGICAL-OP 85 CL:ERROR 77 EQUAL-DIMENSIONS-P 71 BIT-ARRAY-P 55 CL:MAKE-ARRAY 46 CL:ARRAY-DIMENSIONS 38 CL:ERROR 30 EQUAL-DIMENSIONS-P 24 CL:ERROR 16 BIT-ARRAY-P 11 CL:ERROR 3 BIT-ARRAY-P)
(97 COR 89 NOT 52 BIT 49 :ELEMENT-TYPE)
( 82 "Illegal result array" 35 "Bit-arrays not of same dimensions" 21 "BIT-ARRAY2 not a bit array" 8 "BIT-ARRAY1 not a bit array")
CL:BIT-NOR D1
(L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) �j���@	��§o���	��¿A	��§o���	��¿@A
��§o���	��¿Bµ@	��g��g����b°ið”@b°B	��•@B
��§o���	��¿g��@B��g��AB��B�(102 %%DO-LOGICAL-OP 94 %%DO-LOGICAL-OP 85 CL:ERROR 77 EQUAL-DIMENSIONS-P 71 BIT-ARRAY-P 55 CL:MAKE-ARRAY 46 CL:ARRAY-DIMENSIONS 38 CL:ERROR 30 EQUAL-DIMENSIONS-P 24 CL:ERROR 16 BIT-ARRAY-P 11 CL:ERROR 3 BIT-ARRAY-P)
(97 CAND 89 NOT 52 BIT 49 :ELEMENT-TYPE)
( 82 "Illegal result array" 35 "Bit-arrays not of same dimensions" 21 "BIT-ARRAY2 not a bit array" 8 "BIT-ARRAY1 not a bit array")
CL:BIT-NOT D1
(L (1 RESULT-BIT-ARRAY 0 BIT-ARRAY)) �G���@	��§o���	��¿Aµ@	��g��g����b°ið”@b°A	��•@A
��§o���	��¿g��@A��A�(67 %%DO-LOGICAL-OP 58 CL:ERROR 50 EQUAL-DIMENSIONS-P 44 BIT-ARRAY-P 28 CL:MAKE-ARRAY 19 CL:ARRAY-DIMENSIONS 11 CL:ERROR 3 BIT-ARRAY-P)
(62 NOT 25 BIT 22 :ELEMENT-TYPE)
( 55 "Illegal result array" 8 "BIT-ARRAY not a bit array")
CL:BIT-ORC1 D1
(L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) �j���@	��§o���	��¿A	��§o���	��¿@A
��§o���	��¿Bµ@	��g��g����b°ið”@b°B	��•@B
��§o���	��¿g��@B��g��AB��B�(102 %%DO-LOGICAL-OP 94 %%DO-LOGICAL-OP 85 CL:ERROR 77 EQUAL-DIMENSIONS-P 71 BIT-ARRAY-P 55 CL:MAKE-ARRAY 46 CL:ARRAY-DIMENSIONS 38 CL:ERROR 30 EQUAL-DIMENSIONS-P 24 CL:ERROR 16 BIT-ARRAY-P 11 CL:ERROR 3 BIT-ARRAY-P)
(97 OR 89 NOT 52 BIT 49 :ELEMENT-TYPE)
( 82 "Illegal result array" 35 "Bit-arrays not of same dimensions" 21 "BIT-ARRAY2 not a bit array" 8 "BIT-ARRAY1 not a bit array")
CL:BIT-ORC2 D1
(L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) �q���@	��§o���	��¿A	��§o���	��¿@A
��§o���	��¿Bµ@	��g��g����b°ið”@b°B	��—@dB
��©¿o���	��¿@Bð¨g��@B��¿g��AB��B�(109 %%DO-LOGICAL-OP 100 %%DO-LOGICAL-OP 87 CL:ERROR 78 EQUAL-DIMENSIONS-P 71 BIT-ARRAY-P 55 CL:MAKE-ARRAY 46 CL:ARRAY-DIMENSIONS 38 CL:ERROR 30 EQUAL-DIMENSIONS-P 24 CL:ERROR 16 BIT-ARRAY-P 11 CL:ERROR 3 BIT-ARRAY-P)
(104 COR 95 COPY 52 BIT 49 :ELEMENT-TYPE)
( 84 "Illegal result array" 35 "Bit-arrays not of same dimensions" 21 "BIT-ARRAY2 not a bit array" 8 "BIT-ARRAY1 not a bit array")
CL:BIT-VECTOR-P D1
(L (0 CL:VECTOR)) ����
@d‘¿´@É	��k:´
@Ê jðhð�(16 LENGTH)
NIL
()
CL:BIT-XOR D1
(L (2 BIT-RESULT 1 BIT-ARRAY2 0 BIT-ARRAY1)) �q���@	��§o���	��¿A	��§o���	��¿@A
��§o���	��¿Bµ@	��g��g����b°ið”@b°B	��—@dB
��©¿o���	��¿@Bð¨g��@B��¿g��AB��B�(109 %%DO-LOGICAL-OP 100 %%DO-LOGICAL-OP 87 CL:ERROR 78 EQUAL-DIMENSIONS-P 71 BIT-ARRAY-P 55 CL:MAKE-ARRAY 46 CL:ARRAY-DIMENSIONS 38 CL:ERROR 30 EQUAL-DIMENSIONS-P 24 CL:ERROR 16 BIT-ARRAY-P 11 CL:ERROR 3 BIT-ARRAY-P)
(104 XOR 95 COPY 52 BIT 49 :ELEMENT-TYPE)
( 84 "Illegal result array" 35 "Bit-arrays not of same dimensions" 21 "BIT-ARRAY2 not a bit array" 8 "BIT-ARRAY1 not a bit array")
CHAR D1
(L (1 INDEX 0 STRING)) ����@	��—��¿@A¶o���@
��¿°ê�(20 ASSERT-FAIL 7 CL:VALUES 3 CL:STRINGP)
NIL
( 16 "Not a string: ~S")
CL:ARRAYP D1
(L (0 ARRAY)) ����
@d‘¿ª@d‘¿ƒ´i�NIL
NIL
()
CL:STRINGP D1
(L (0 STRING)) ����
@d‘¿‚–@Ê0jð”@´i�NIL
NIL
()
COPY-ARRAY D1
(L (1 TO-ARRAY 0 FROM-ARRAY)) �”��@d®¬@¨o���@
��¿A³@	��g��@	��g��@	��
��bŽ@A
��§o���	��¿AÊ�jð¤A	��¿@	��A	��
HdlDð²¿IlCð™A	��¿A	��¹HIð§o���	��¿@	��@	��A	��A	��@ÈH
��A�(144 %%FAST-COPY-BASE 136 %%ARRAY-OFFSET 132 %%ARRAY-BASE 128 %%ARRAY-OFFSET 124 %%ARRAY-BASE 119 CL:ERROR 107 %%ARRAY-TYPE-NUMBER 102 %%MAKE-STRING-ARRAY-FAT 82 %%ARRAY-TYPE-NUMBER 78 %%ARRAY-TYPE-NUMBER 73 %%MAKE-ARRAY-WRITEABLE 61 CL:ERROR 53 EQUAL-DIMENSIONS-P 45 CL:MAKE-ARRAY 41 %%FAT-STRING-ARRAY-P 34 CL:ARRAY-ELEMENT-TYPE 27 CL:ARRAY-DIMENSIONS 19 CL:ERROR)
(37 :FATP 30 :ELEMENT-TYPE)
( 116 "Arrays have different type numbers" 58 "Dimensionality mismatch" 15 "Not an array: ~S")
DISPLACED-ARRAY-P D1
(L (0 ARRAY)) �&���
@d§¥@d™¿@ÊPjðhð‘ho���@
���(35 CL:ERROR)
NIL
( 31 "Not an array ~S")
EQUAL-DIMENSIONS-P D1
(L (1 ARRAY-2 0 ARRAY-1)) �Ç
��@d²5¿Ad˜¿@ÈAÈ:‘hA´‚±�¥AÉ	��kð´‚±�—@ÈAÈ:²AAd³×²@ÈAÈ:´w@ÈAÈ:A´jAÉ
�H	��lð´[@ÈH
:´S@ÈH
:@´F@É
�Ad²¿H	��kð´1@ÈAÈ:²H	��lð´H
AÈ:´H
AÈ:A´HAÉô�(165 LENGTH 145 LENGTH 102 LENGTH 40 LENGTH)
NIL
()
EXTENDABLE-ARRAY-P D1
(L (0 ARRAY)) �&���
@d§¥@d™¿@Êpjðhð‘ho���@
���(35 CL:ERROR)
NIL
( 31 "Not an array ~S")
FILL-ARRAY D1
(L (1 VALUE 0 ARRAY)) 
A
��@d³®@dª¿o���@
��¿@È@	��‚	@Ê�jð¤@	��¿Hjó¢±
IdlCð²¿A��Ólÿóš@	��¿@	��Y€I_dlC:¿A��Ólÿóhð±�§lD:–A��±�œOdl&:”¿i±�lV:“i±�ˆOdl6:•¿A°zj:AºjJó³qJkóhð°iOdl:ž¿A»jKó³[n
�Kó°Sl:œA\
²JjLñhð°BOdl:²¿A½o���Mó³0Mnÿóhð°&l:´A¾o���Nó³No���óhð‹g��Oo�����¨o���A
��¿@	��@	��_¿_¿AOIOû¿OOOOkÔHkÕI
��@�(317 %%FAST-COPY-BASE 284 %%ARRAY-OFFSET 280 %%ARRAY-BASE 275 CL:ERROR 266 ECASE-FAIL 78 %%ARRAY-TYPE-NUMBER 73 %%MAKE-STRING-ARRAY-FAT 44 %%MAKE-ARRAY-WRITEABLE 30 %%ARRAY-TYPE-NUMBER 22 CL:ERROR)
(257 TYPE-NUMBER 110 CHARACTER 93 CHARACTER 64 CHARACTER)
( 271 "Value of incorrect type for this array: ~S" 263 (67 68 38 86 54 0 3 4 20 22) 250 2147483647 241
 -2147483648 217 -32768 18 "Not an array: ~S")
CL:FILL-POINTER D1
(L (0 CL:VECTOR)) �?���
@d‘¿‚š@dÊ`jð£È@³@dš¿@É	��k:£@—o���	��o���@
���(60 CL:ERROR 51 CL:ERROR 37 LENGTH)
NIL
( 56 "Not a vector ~S" 48 "vector has no fill pointer")
FILL-VECTOR D1
(L (0 -args-)) 
ú��e
�kañ@laºHl¼»LdKó² ¿j½Hl_¿¾OdNó²"¿h_¿Id²-°?ag��ð•LkØa°ÚLlÔ\°Ìag��ð–OkØa°×OlÔ_°Ç˜IÉ	��k:¨o���I
��¿jMó˜o���M
��¿Oµ	IÈ_°"IÈ_¿_¿jOó¥OOó™o���O
��¿OMÕI	��_¿_¿IÊ�jð¤I	��¿Ojó¢±
+OdlCð²¿J��Ólÿó›I	��¿I	��_O_$dlC:¿J��Ólÿóhð±�¾lD:–J��±�³O$dl&:”¿i±�§lV:“i±�ŸO$dl6:–¿J±�‘j:²J_¿jOó’±�‚Okóhð°xO$dl:²¿J_¿jOó³fn
�Oó°]l:žJ_
²SjOñhð°JO$dl:²¿J_ ¿o���O ó³5O nÿóhð°*l:´J_"¿o���O"ó³O"o���óhð‹g��O$o�����¨o���J
��¿I	��MI	��Ô_(¿_&¿JO&OO(û¿O&O(O&O(kÔOkÕO
��I�(502 %%FAST-COPY-BASE 465 %%ARRAY-OFFSET 460 %%ARRAY-BASE 455 CL:ERROR 446 ECASE-FAIL 233 %%ARRAY-TYPE-NUMBER 228 %%MAKE-STRING-ARRAY-FAT 197 %%MAKE-ARRAY-WRITEABLE 180 %%ARRAY-TYPE-NUMBER 171 CL:ERROR 130 CL:ERROR 117 CL:ERROR 106 LENGTH)
(437 TYPE-NUMBER 267 CHARACTER 250 CHARACTER 219 CHARACTER 79 :END 60 :START)
( 451 "Value of incorrect type for this array: ~S" 443 (67 68 38 86 54 0 3 4 20 22) 430 2147483647 419
 -2147483648 391 -32768 166 "Invalid :end arg: ~S" 126 "Invalid :start arg: ~S" 113 "Not a vector: ~S")
CL:MAKE-ARRAY D1
(L (0 -args-)) -��e
�kañð )Hl»ºKdJó¢±
!¿i¼i½Hl_¿¾OdNó¢±
!¿h]_¿i_¿Hl_¿_¿OdOó¢±
¿h__¿i_¿Hl_¿_¿OdOó¢±
¿h__ ¿i_"¿Hl_&¿_$¿O&dO$ó¢±
¿h_"_(¿i_*¿Hl_.¿_,¿O.dO,ó¢±

¿h_*¿j_0¿Hl_4¿_2¿O4dO2ó¢±
¿h_6¿Hl_:¿_8¿O:dO8ó¢±
¿h_<¿Hl_@¿_>¿O@dO>ó¢±
¿h_B¿Hl_F¿_D¿OFdODó¢±
¿h_H¿Hl_L¿_J¿OLdOJó¢±
¿h_N¿Id´‚±
d¢±
±
ag��ð–KkØa±þÚKlÔ[±þÉag��ð—OkØa±þÚOlÔ_±þÆag��ð—OkØa±þàOlÔ_±þÊag��ð—OkØa±þæOlÔ_±þÐag��ð—O&kØa±þìO&lÔ_&±þÖag��ð—O.kØa±þôO.lÔ_.±þÜag��ð—O4kØa±þôO4lÔ_4±þàag��ð—O:kØa±þôO:lÔ_:±þàag��ð—O@kØa±þôO@lÔ_@±þàag��ð—OFkØa±þôOFlÔ_F±þàag��ð—OLkØa±þôOLlÔ_L±þàhYh_R¿_Pd²
_R¿jORó©nÿþORó’±�£i˜o���I
��¿I	��I	��,l€OTó©o���OT
��¿nÿþOVó©o���OV
��¿OšM³?O³;O"³7O"šM³1O³-O³)O6•OTk:² O*–O£O"²M’O®O<’OB¨ONOB¢O<—o���	��¿O²EO d²¿L	��O 	��ô³o���°'OP±ÿE³æO ³ào���O0OVÔO 	��ó—o���	��¿O6µO²;OVILO O0O6ONO<OB
	��±�¨ið–OV_6¿°ÝjO6ó¦O6OVó²Ño���O6
��¿°ÅO(²8OTkó£O<²OVILO6OHONO<OBO(O0
��°`OVLO6OHONOBO(O0
��°KOTdkð²¿O<³OVLO6OHONOB
��°.OTlð²O<¯OVILOHONOB
��°OVILO6OHONO<OB
��_XO–dO
��ˆM–OXO
��OX�(1023 %%ARRAY-ELEMENT-INITIALIZE 1013 %%ARRAY-CONTENT-INITIALIZE 1002 %%MAKE-GENERAL-ARRAY 982 %%MAKE-TWOD-ARRAY 956 %%MAKE-ONED-ARRAY 927 %%MAKE-ONED-ARRAY 906 %%MAKE-GENERAL-ARRAY 868 CL:ERROR 834 %%MAKE-DISPLACED-ARRAY 805 CL:ERROR 796 CL:ARRAY-TOTAL-SIZE 756 CL:ARRAY-ELEMENT-TYPE 751 %%GET-CANONICAL-CML-TYPE 734 CL:ERROR 659 CL:ERROR 642 CL:ERROR 624 %%TOTAL-SIZE 620 LENGTH 615 CL:ERROR)
(554 :READ-ONLY-P 530 :FATP 506 :EXTENDABLE 482 :ADJUSTABLE 458 :FILL-POINTER 434 :DISPLACED-INDEX-OFFSET 410 :DISPLACED-TO-BASE 386 :DISPLACED-TO 362 :INITIAL-CONTENTS 338 :INITIAL-ELEMENT 317 :ELEMENT-TYPE)
( 863 "Fill pointer out of bounds ~A" 802 "displaced array out of bounds" 785 "Cannot displace to an Interlisp array/string"
 763 "Not displaced to an array of the same element-type" 731 "Inconsistent options to make-array" 654
 "Too many elements: ~A" 637 "Too many dimensions: ~A" 611 "Dimensions out of bounds ~S")
(LET* ((A0632 (QUOTE CL:MAKE-ARRAY)) (A0633 (QUOTE CL:FUNCTION)) (A0634 
"Make an array following the key word specs")) (SET-DOCUMENTATION A0632 A0633 A0634))
MAKE-VECTOR D1
(L (0 -args-)) �­
��e
�ka±Hl»ºKdJó²[¿i¼i½Hl_¿¾OdNó²[¿h]_¿Hl_¿_¿OdOó²Z¿h_¿jIó¥nÿþIó¨o���I
��¿ILhO��_¿M–OO
��Oag��ð•KkØa°ŸKlÔ[°‘ag��ð–OkØa°ŸOlÔ_°Žag��ð–OkØa°ŸOlÔ_°Ž�(105 FILL-ARRAY 93 %%MAKE-ONED-ARRAY 84 CL:ERROR)
(153 :FATP 131 :INITIAL-ELEMENT 112 :ELEMENT-TYPE)
( 80 "Size out of bounds: ~A")
(LET* ((A0635 (QUOTE MAKE-VECTOR)) (A0636 (QUOTE CL:FUNCTION)) (A0637 "Make a vector")) (
SET-DOCUMENTATION A0635 A0636 A0637))
READ-ONLY-ARRAY-P D1
(L (0 ARRAY)) �&���
@d§¥@d™¿@Ê�jðhð‘ho���@
���(35 CL:ERROR)
NIL
( 31 "Not an array ~S")
CL:SBIT D1
(L (0 -args-) F 11 NOBIND) �
�e
�kaAHl2
OdNó²(¿OZ¿I[	��²<K	��o���ô²1��¿g��k½¼IJ°@a_¿OµOh__¿OkÔ_°¾O&_¿°òo���I
��°¶d
ýMkØ]Wñ–hl4
��¿µíML�(120 \LISPERROR 100 ASSERT-FAIL 48 CL:VALUES 38 CL:ARRAY-ELEMENT-TYPE 32 SIMPLE-ARRAY-P)
(52 CL:AREF)
( 96 "Not a bit-array: ~S" 42 (CL:UNSIGNED-BYTE 1))
CL:SCHAR D1
(L (1 INDEX 0 CL:SIMPLE-STRING)) ����@	��—��¿@A¶o���@
��¿°ê�(20 ASSERT-FAIL 7 CL:VALUES 3 CL:SIMPLE-STRING-P)
NIL
( 16 "Not a simple-string: ~S")
SET-FILL-POINTER D1
(L (1 NEWVALUE 0 CL:VECTOR)) �c��@d‘¿ƒ²0@dÊ`jð³(¿A@È
jHóhð´HIóhð¨o���A
��¿@AÍA@³@dš¿@É	��k:£@—o���	��o���@
���(96 CL:ERROR 87 CL:ERROR 73 LENGTH 49 CL:ERROR)
NIL
( 92 "Not a vector ~S" 84 "Vector has no fill pointer" 45 "Fill pointer out of bounds: ~A")
SIMPLE-ARRAY-P D1
(L (0 ARRAY)) � ���
@d§¥@d›¿@Êlåjð¤@´i�NIL
NIL
()
CL:SIMPLE-BIT-VECTOR-P D1
(L (0 CL:VECTOR)) ����
@´@Êlåjð´
@Ê jðhð�NIL
NIL
()
CL:SIMPLE-STRING-P D1
(L (0 STRING)) � ���
@d²¿@dÊlåjð–Ê0jð”@´i�NIL
NIL
()
CL:SIMPLE-VECTOR-P D1
(L (0 CL:VECTOR)) ����
@´@Êlåjð´@	��ið�(19 CL:ARRAY-ELEMENT-TYPE)
NIL
()
STRING-ARRAY-P D1
(L (0 ARRAY)) �
���
@	��ââââlð�(3 %%ARRAY-TYPE-NUMBER)
NIL
()
CL:SVREF D1
(L (1 INDEX 0 CL:SIMPLE-VECTOR)) ����@	��—��¿@A¶o���@
��¿°ê�(20 ASSERT-FAIL 7 CL:VALUES 3 CL:SIMPLE-VECTOR-P)
NIL
( 16 "Not a simple-vector: ~S")
VECTOR-LENGTH D1
(L (0 CL:VECTOR)) �*���
@d¬ž@dÉ	��k:•¿@È@”@	��o���@
���(39 CL:ERROR 30 NCHARS 14 LENGTH)
NIL
( 35 "Not a vector: ~s")
CL:VECTOR-POP D1
(L (0 CL:VECTOR)) �]
��
@d‘¿ƒ²*@dÊ`jð³"È
�Hdjó©¿o���	��¿HkÕX@HÍ@H¶@³@dš¿@É	��k:£@—o���	��o���@
���(90 CL:ERROR 81 CL:ERROR 67 LENGTH 37 CL:ERROR)
NIL
( 86 "Not a vector ~S" 78 "Vector has no fill pointer" 34 "Can't pop from zero fill pointer")
CL:VECTOR-PUSH D1
(L (1 CL:VECTOR 0 NEW-ELEMENT)) �W
��Ad‘¿ƒ²$AdÊ`jð³È
�HAÈýó´
@AH·AHkÔÍHA³Adš¿AÉ	��k:£A—o���	��o���A
���(84 CL:ERROR 75 CL:ERROR 61 LENGTH)
NIL
( 80 "Not a vector ~S" 72 "Vector has no fill pointer")
CL:VECTOR-PUSH-EXTEND D1
(L (0 -args-) F 4 *DEFAULT-PUSH-EXTENSION-SIZE*) �<
�e
�ka!laºlHñ‘T‚la»IJ
��µKjóŸJd	��KÔ
��IJ
��o���	���(57 CL:ERROR 49 CL:VECTOR-PUSH 44 CL:ADJUST-ARRAY 39 CL:ARRAY-TOTAL-SIZE 28 CL:VECTOR-PUSH)
NIL
( 54 "Extension-size not greater than zero")
(LET* ((A0647 (QUOTE CL:VECTOR-PUSH-EXTEND)) (A0648 (QUOTE CL:FUNCTION)) (A0649 
"Like VECTOR-PUSH except if VECTOR is adjustable -- in which case a push beyond (array-total-size VECTOR ) will call adjust-array"
)) (SET-DOCUMENTATION A0647 A0648 A0649))
CL:VECTORP D1
(L (0 CL:VECTOR)) ����
@d’¿°˜@É	��k:¤@´i�(16 LENGTH)
NIL
()
%%COPY-TO-NEW-ARRAY D1
(L (5 NEW-OFFSET 4 NEW-ARRAY 3 NEW-DIMS 2 OLD-OFFSET 1 OLD-ARRAY 0 OLD-DIMS)) �_��@
C

��A@²+Hjº¹IJó¡h@A@
BJÔÖCDC
EJÔÖ
��¿JkÔº°ÝA	��D	��¼[Lð²A	��BD	��EHK
��o���	���(92 CL:ERROR 84 %%FAST-COPY-BASE 77 %%ARRAY-BASE 72 %%ARRAY-BASE 62 %%ARRAY-TYPE-NUMBER 58 %%ARRAY-TYPE-NUMBER 47 %%COPY-TO-NEW-ARRAY 6 MIN)
NIL
( 89 "Arrays have differing type numbers")
CL:AREF D1
(L (0 ARGS)) 
E��e
�kHó—o���	��¿kaAHdk:•¿I	��l:•Ila¶Hdl:™¿Ilalaîg��ð´‚±
Id²¿I	��HkÕ:³o���	��³ìId³ç¿o���I
��lIÉNdHó²UlIÉjOH:²kOHaÔI»ºKdÊjð³#¿j½K\Êjð²iL»JMÔZKÈýó§o���	��¿KÉ�KʇKd²e¿°ea_¿jOó§OO
ýó©o���O
��¿NkÔO_¿^°ƒO
OOaÔÖ_¿OkÔO_¿_±ÿzMLd‘¿‚“LÈ…L´jÔ½LÉ�±ÿw“KÈ…K´jJÔú	�(235 CL:ERROR 192 CL:ERROR 111 CL:ERROR 91 CL:ERROR 78 CL:ARRAY-RANK 30 %%AREF0 14 CL:ERROR)
(60 CL:OTHERWISE)
( 230 "Index out of bounds: ~A" 189 "Row-major-index out of bounds (displaced to adjustable?)" 107 "Not an array ~S"
 88 "Rank mismatch" 11 "Aref takes at least one arg")
CL:ARRAY-IN-BOUNDS-P D1
(L (0 ARGS)) �^��e
�kHó—o���	��¿ka

Id	��©¿o���I
��	��HkÕ:§o���	��ljJdHó‘ia¼jLó¨LIK
��ýó¡hJkÔKkÔ»Z°á�(77 CL:ARRAY-DIMENSION 51 CL:ERROR 39 CL:ARRAY-RANK 35 CL:ERROR 25 CL:ARRAYP 14 CL:ERROR)
NIL
( 48 "Rank mismatch" 31 "Not an array ~S" 11 "Array-in-bounds-p takes at least one arg")
CL:ARRAY-ROW-MAJOR-INDEX D1
(L (0 ARGS)) �y��e
�kHó—o���	��¿ka!I	��HkÕ:§o���	��ljLdHó’¿ia¾jNó¨NIM
��ýó«h³o���	��LkÔMkÔ½\°Ölj»ZH:”KHaÔIJkÕ
��KJaÔÖ»JkÔ°ç�(108 CL:ARRAY-DIMENSION 77 CL:ERROR 63 CL:ARRAY-DIMENSION 36 CL:ERROR 24 CL:ARRAY-RANK 14 CL:ERROR)
NIL
( 74 "Index out of bounds" 33 "Rank mismatch" 11 "Array-row-major-index takes at least one arg")
ASET D1
(L (0 ARGS) F 20 NOBIND) 
Ó
�e
�lHó—o���	��¿kala²
Hdl:–¿IJ
��l:–IJla·Hdl:š¿IJlalaïg��ð´‚±
ˆJd²¿J	��HlÕ:³o���	��³ëJd³æ¿o���J
��lJÉOdHó²`lJÉjO"H:²xO&HaÔJ¾½NdÊjð³(¿j_¿N_Êjð²sO¾MOÔ]NÈýó§o���	��¿Nʇ_¿JÊ�jð³rJ	��±�ƒa_ O
¼[mÿó“LKó©o���O 
��¿OkÔO_¿_±ÿwO$
O&O"aÔÖ_&¿O"kÔO$_$¿_"±ÿmOOd‘¿‚”OȆO´jÔ_¿OÉ�±ÿeOlCð²^Id��Ólÿó²T¿J	��²Lg��l_¿_¿IJHh_¿_¿kOó“O°&OaO_¿OkÕ°çd
ýOkØ_W(ñ–hl4
��¿µëOOINÉ�ONd‘¿‚“NÈ…N´jMÔû�(425 \LISPERROR 358 %%MAKE-STRING-ARRAY-FAT 255 CL:ERROR 227 %%MAKE-ARRAY-WRITEABLE 207 CL:ERROR 120 CL:ERROR 100 CL:ERROR 86 CL:ARRAY-RANK 36 %%ASET0 15 CL:ERROR)
(363 ASET 347 CHARACTER 68 CL:OTHERWISE)
( 250 "Index out of bounds: ~A" 204 "Row-major-index out of bounds (displaced to adjustable?)" 116 "Not an array ~S"
 97 "Rank mismatch" 12 "Aset takes at least two args")
CL:VECTOR D1
(L (0 ARGS)) �%��e
�Hi
��!Hj»ºJKóKkÔaIK·¿KkÔ»°ðI�(8 %%MAKE-ONED-ARRAY)
NIL
()
SCHARSET D1
(L (2 VALUE 1 INDEX 0 CL:SIMPLE-STRING)) ����B@A·�NIL
NIL
()
(SETQ CL:ARRAY-RANK-LIMIT (EXPT 2 7))
(PUTHASH (QUOTE CL:ARRAY-RANK-LIMIT) (QUOTE (CONSTANT CL:ARRAY-RANK-LIMIT)) COMPVARMACROHASH)
(SETQ CL:ARRAY-TOTAL-SIZE-LIMIT 65534)
(PUTHASH (QUOTE CL:ARRAY-TOTAL-SIZE-LIMIT) (QUOTE (CONSTANT CL:ARRAY-TOTAL-SIZE-LIMIT)) 
COMPVARMACROHASH)
(SETQ CL:ARRAY-DIMENSION-LIMIT CL:ARRAY-TOTAL-SIZE-LIMIT)
(PUTHASH (QUOTE CL:ARRAY-DIMENSION-LIMIT) (QUOTE (CONSTANT CL:ARRAY-DIMENSION-LIMIT)) COMPVARMACROHASH
)
(CL:PROCLAIM (QUOTE (CL:SPECIAL *DEFAULT-PUSH-EXTENSION-SIZE*)))
(SETQ *DEFAULT-PUSH-EXTENSION-SIZE* 20)
%%ALTER-AS-DISPLACED-ARRAY D1
(L (4 CL:FILL-POINTER 3 DISPLACED-INDEX-OFFSET 2 DISPLACED-TO 1 DIMENSIONS 0 ADJUSTABLE-ARRAY) P 5 \INTERRUPTABLE) �©��C£jb¿BÊ�jðhðA	��Cµj#BdʇlCð³dÊpjð²dÊ@jðš¿HšBdÊjð“»°$BÉ�»JBd‘¿‚“BÈ…B´jÔºBÊjð¡i¼@K�¿@H‘k€jÏ�¿@L‘k€jÏ¿@kÏP¿@D‘k€jÏ`¿@JÍ¿@DµIÍ¿@IÍ¿@A@�(17 %%TOTAL-SIZE)
NIL
()
%%ALTER-AS-DISPLACED-TO-BASE-ARRAY D1
(L (6 FATP 5 CL:FILL-POINTER 4 DISPLACED-INDEX-OFFSET 3 DISPLACED-TO-BASE 2 ELEMENT-TYPE 1 DIMENSIONS 0 ADJUSTABLE-ARRAY) P 2 \INTERRUPTABLE) �L��A	��BF
��
@C�¿@jÏ¿@kÏP¿@E‘k€jÏ`¿@Iχ¿@DµjÍ¿@EµHÍ¿@HÍ¿@A@�(8 %%CML-TYPE-TO-TYPENUMBER 3 %%TOTAL-SIZE)
NIL
()
%%AREF0 D1
(L (0 ARRAY)) �˜��
@d²¿@	��j:³o���	��³î@d³é¿o���@
��j@"IdÊjð³#¿j»IZÊjð²&J¹HKÔXIÈýó§o���	��¿IÉ�IʇId²!¿°!KJd‘¿‚“JÈ…J´jÔ»JÉ�°º“IÈ…I´jHÔú	�(87 CL:ERROR 41 CL:ERROR 21 CL:ERROR 10 CL:ARRAY-RANK)
NIL
( 84 "Row-major-index out of bounds (displaced to adjustable?)" 37 "Not an array ~S" 18 "Rank mismatch")
%%AREF1 D1
(L (1 INDEX 0 ARRAY)) �Ø��@d¨¦@d²¿@	��k:³:o���	��²%@AkÔ
��
�H
´‚±�£jHóhð´‚±�˜lHÑo���@
��jAó¦A@Èýó¨o���A
��@!HdÊjð³,dÊjð³$¿jºHYÊjð²'I¸AJÔbHÈýó§o���	��¿HÉ�HʇHd²!¿°!JId‘¿‚“IÈ…I´jÔºIÉ�°¹“HÈ…H´jAÔú	�(151 CL:ERROR 97 CL:ERROR 77 CL:ERROR 41 NTHCHARCODE 29 CL:ERROR 18 CL:ARRAY-RANK)
NIL
( 148 "Row-major-index out of bounds (displaced to adjustable?)" 93 "Index out of bounds: ~A" 73 "Not an array ~S"
 26 "Rank mismatch")
%%AREF2 D1
(L (2 J 1 I 0 ARRAY)) �Ö��@d²¿@	��l:³o���	��³í@d³è¿o���@
��`@d˜¿@ȸ@ȈÉ
¸@É
¹jAó£HAó¥o���AŒjBó£IBó¨o���B
��¿BIAÖÔ@»ºKdÊjð³#¿j½K\Êjð²&L»JMÔZKÈýó§o���	��¿KÉ�KʇKd²!¿°!MLd‘¿‚“LÈ…L´jÔ½LÉ�°º“KÈ…K´jJÔú	�(149 CL:ERROR 100 CL:ERROR 42 CL:ERROR 22 CL:ERROR 10 CL:ARRAY-RANK)
NIL
( 146 "Row-major-index out of bounds (displaced to adjustable?)" 96 "Index out of bounds: ~A" 82 "Index out of bounds: ~A"
 38 "Not an array ~S" 19 "Rank mismatch")
%%ARRAY-BASE D1
(L (0 ARRAY)) �+���
@d‘¿‚“@É�@ž@Êjð³ò@É�b�°ôo���@
���(40 CL:ERROR)
NIL
( 36 "Not an array ~S")
%%ARRAY-CONTENT-INITIALIZE D1
(L (1 INITIAL-CONTENTS 0 ARRAY)) �/
��@d	��j:–¿@A
��	��
�HA
��šHA@	��j��o���	���(44 CL:ERROR 36 %%FILL-ARRAY-FROM-SEQUENCE 32 %%FLATTEN-ARRAY 25 %%CHECK-SEQUENCE-DIMENSIONS 17 CL:ARRAY-DIMENSIONS 13 %%ARRAY-ELEMENT-INITIALIZE 4 CL:ARRAY-RANK)
NIL
( 41 "Dimensionality mismatch for INITIAL-CONTENTS")
%%ARRAY-ELEMENT-INITIALIZE D1
(L (1 INITIAL-ELEMENT 0 ARRAY)) �}
��A@	��
�HdlC:–¿o���°^lD:•o���°THdl&:“¿h°JlV:’h°CHdl6:–¿o���°6j:’j°0Hdl:“¿j°&l:’j°Hdl:“¿j°l:´j‹o���Ho�����:¥@A
��h�(120 FILL-ARRAY 112 ECASE-FAIL 4 %%ARRAY-TYPE-NUMBER)
NIL
( 109 (67 68 38 86 54 0 3 4 20 22) 104 (%%ARRAY-TYPE-NUMBER ARRAY) 58 0.0 28 #\Null 18 #\Null)
%%ARRAY-OFFSET D1
(L (0 ARRAY)) �L
��
@d”¿@È‘j@²0@È
�@dÊjð‘HÉ�b�¿H@d‘¿‚“@È…@´jÔ¸°Úo���@
���(73 CL:ERROR)
NIL
( 69 "Not an array ~S")
%%ARRAY-TYPE-NUMBER D1
(L (0 ARRAY)) �,���
@d‘¿‚”@ʇ@ž@Êjð³ñ@É�b�°ôo���@
���(41 CL:ERROR)
NIL
( 37 "Not an array ~S")
%%ASET0 D1
(L (1 ARRAY 0 NEWVALUE)) �Á��Ad²¿A	��j:³o���	��³îAd³é¿o���A
��jA2IdÊjð³#¿j»IZÊjð²)J¹HKÔXIÈýó§o���	��¿Iʇ¼AÊ�jð³$A	��°3KJd‘¿‚“JÈ…J´jÔ»JÉ�°·LlCð²@d��Ólÿóš¿A	��“±ÿa@IÉ�LId‘¿‚“IÈ…I´jHÔû�(156 %%MAKE-STRING-ARRAY-FAT 105 %%MAKE-ARRAY-WRITEABLE 87 CL:ERROR 41 CL:ERROR 21 CL:ERROR 10 CL:ARRAY-RANK)
(146 CHARACTER)
( 84 "Row-major-index out of bounds (displaced to adjustable?)" 37 "Not an array ~S" 18 "Rank mismatch")
%%ASET1 D1
(L (2 INDEX 1 ARRAY 0 NEWVALUE)) �å��Ad¨¦Ad²¿A	��k:³$o���	��ABkÔ@��Ó��@o���A
��jBó¨BdAÈýó©¿o���B
��A2IdÊjð³#¿j»IZÊjð²)J¹HKÔXIÈýó§o���	��¿Iʇ¼AÊ�jð³$A	��°3KJd‘¿‚“JÈ…J´jÔ»JÉ�°·LlCð²@d��Ólÿó›¿A	��”@AB·@IÉ�LId‘¿‚“IÈ…I´jHÔû�(191 %%MAKE-STRING-ARRAY-FAT 140 %%MAKE-ARRAY-WRITEABLE 122 CL:ERROR 77 CL:ERROR 55 CL:ERROR 45 RPLCHARCODE 29 CL:ERROR 18 CL:ARRAY-RANK)
(181 CHARACTER 41 CHARACTER)
( 119 "Row-major-index out of bounds (displaced to adjustable?)" 73 "Index out of bounds: ~A" 51 "Not an array"
 26 "Rank mismatch")
%%ASET2 D1
(L (3 J 2 I 1 ARRAY 0 NEWVALUE)) 

��Ad²¿A	��l:³o���	��³íAd³è¿o���A
��pAd˜¿AȸAȈÉ
¸AÉ
¹jBó£HBó¥o���BŒjCó£ICó¨o���C
��¿CIBÖÔA»ºKdÊjð³#¿j½K\Êjð²)L»JMÔZKÈýó§o���	��¿Kʇ¾AÊ�jð³$A	��°3MLd‘¿‚“LÈ…L´jÔ½LÉ�°·NlCð²@d��Ólÿóœ¿A	��•@ABCï@KÉ�NKd‘¿‚“KÈ…K´jJÔû�(218 %%MAKE-STRING-ARRAY-FAT 167 %%MAKE-ARRAY-WRITEABLE 149 CL:ERROR 100 CL:ERROR 42 CL:ERROR 22 CL:ERROR 10 CL:ARRAY-RANK)
(208 CHARACTER)
( 146 "Row-major-index out of bounds (displaced to adjustable?)" 96 "Index out of bounds ~A" 82 "Index out of bounds ~A"
 38 "Not an array ~S" 19 "Rank mismatch")
%%CHECK-SEQUENCE-DIMENSIONS D1
(L (1 SEQUENCE 0 DIM-LST)) �/��@
A	��:´ @hðµ@
j
HIó¡i@AI
��
��¡hIkÔ¹°é�(36 %%CHECK-SEQUENCE-DIMENSIONS 33 CL:ELT 5 CL:LENGTH)
NIL
()
%%DO-LOGICAL-OP D1
(L (2 DEST 1 SOURCE 0 OP) P 8 \INTERRUPTABLE) �Ú	��A	��A	��A	��B	��B	��o���
�Hd³`��dkÍ	¿dkÏ
¿i¿H
&MHÒÍ¿MHÓÍMIÍMKÒÍ
¿MKÓÍ�MLÍMJnÿÿåÍMJnÿÿåÍMJÍ@dg��ð”¿j^°Ng��ð”k¾j°D@dg��ð•¿j¾k°7g��ð“k^°.@dg��ð–¿j¾l° g��ð•k¾l°@dg��ð’¿j…g��ð–k¾l_¿MNÏ
@MOÏ
QMjvB�(19 %%ARRAY-OFFSET 15 %%ARRAY-BASE 11 CL:ARRAY-TOTAL-SIZE 7 %%ARRAY-OFFSET 3 %%ARRAY-BASE)
(191 CXOR 183 XOR 170 COR 158 OR 147 CAND 136 AND 124 NOT 114 COPY 34 |PILOTBBTTYPE#|)
( 23 (NIL))
%%EXTEND-ARRAY D1
(L (3 CL:FILL-POINTER 2 DIMENSIONS 1 NEW-ARRAY 0 EXTENDABLE-ARRAY) P 3 \INTERRUPTABLE) �j��AʇB	��AÉ�@J�¿@jÏ�¿@Hχ¿@IÍ¿@dž¿@B
Í¿@B
Í°.jÏP¿@C‘k€jÏ`¿@jÍ¿@CµIÍ¿@d›¿@jÏ¿@B@�(7 %%TOTAL-SIZE)
NIL
()
%%FAST-COPY-BASE D1
(L (5 TYPE-NUMBER 4 CNT 3 TO-OFFSET 2 TO-BASE 1 FROM-OFFSET 0 FROM-BASE) P 5 \INTERRUPTABLE) 
r	��E
�HdlC:”¿l°_lD:“l°WHdl&:”¿l °LlV:“l °DHdl6:”¿l °9j:’k°3Hdl:”¿l°(l:“l° Hdl:”¿l°l:´l Šg��Ho�����E
�HdlC:“¿j°WlD:’j°PHdl&:“¿k°FlV:’j°?Hdl6:“¿j°5j:’j°/Hdl:“¿j°%l:’j°Hdl:“¿j°l:´jŠg��Ho�����2Ikð³so���[d³`��ZdkÏ
¿JjÏ
@¿JjÏ
Q¿i¿K
¼L@ÒÍ¿L@ÓÍ¿LHAÖÍ¿LBÒÍ
¿LBÓÍ�¿LHCÖÍ¿LHnÿÿåÍ¿LHnÿÿåÍ¿LHÍ¿LDÍ	¿LjvhAdDÔCNO:³ò@ENú	BEOû¿NkÔOkÔ_¿^°ä�(207 ECASE-FAIL 107 ECASE-FAIL)
(228 |PILOTBBTTYPE#| 199 TYPE-NUMBER 99 TYPE-NUMBER)
( 220 (NIL) 204 (67 68 38 86 54 0 3 4 20 22) 104 (67 68 38 86 54 0 3 4 20 22))
%%FAT-STRING-ARRAY-P D1
(L (0 ARRAY)) �	���
@	��lDð�(3 %%ARRAY-TYPE-NUMBER)
NIL
()
%%FILL-ARRAY-FROM-SEQUENCE D1
(L (3 OFFSET 2 FLATTENED-ARRAY 1 SEQUENCE 0 DIMS)) �I��@²'@
j
HIó¡h@AI
��B@
CIÔÖ��¿IkÔ¹°ãjC@
HJ:³ÛAH
��BI·¿HkÔIkÔ¹X°ë�(57 CL:ELT 33 %%FILL-ARRAY-FROM-SEQUENCE 22 CL:ELT)
NIL
()
%%FLATTEN-ARRAY D1
(L (0 ARRAY)) ����
@d	��k:‘@	��g��@	��g��@
���(27 CL:MAKE-ARRAY 19 CL:ARRAY-ELEMENT-TYPE 12 CL:ARRAY-TOTAL-SIZE 4 CL:ARRAY-RANK)
(22 :DISPLACED-TO 15 :ELEMENT-TYPE)
()
%%MAKE-ARRAY-WRITEABLE D1
(L (0 ARRAY) P 6 \INTERRUPTABLE) �˜��
@d³®@dª¿o���@
��¿@Q@Êjð¬HÊjð¥HÉ�X°öHÊ�jð³IHÈ»Hd‘¿‚“HÈ…H´jºHʇ¼KJÔL
��¹HÉ�JIJKL
��¿HI�¿HjÏ�¿jdðhð@]dÊjð‘@jÏ�¿MÉ�°î�(105 %%FAST-COPY-BASE 92 %%MAKE-ARRAY-STORAGE 22 CL:ERROR)
NIL
( 18 "Not an array")
%%MAKE-DISPLACED-ARRAY D1
(L (8 EXTENDABLE 7 ADJUSTABLE 6 READ-ONLY-P 5 CL:FILL-POINTER 4 DISPLACED-INDEX-OFFSET 3 DISPLACED-TO 2 ELEMENT-TYPE 1 DIMENSIONS 0 TOTALSIZE)) �›��	CʇCÊ�jðhðDµjHlCð³CdÊpjð²dÊ@jðœ¿ICdÊjð–¿C»i°'CÉ�»JCd‘¿‚“CÈ…C´jÔºCÊjð¡i€hªG§A	��kó²@ABEHââââlðFµIGGKJ
��@BEHlDðFµIGKJ
���(152 %%MAKE-ONED-ARRAY 132 %%MAKE-GENERAL-ARRAY 102 LENGTH)
NIL
()
%%MAKE-GENERAL-ARRAY D1
(L (9 DISPLACED-INDEX-OFFSET 8 DISPLACED-TO 7 EXTENDABLE-P 6 ADJUSTABLE-P 5 READ-ONLY-P 4 FATP 3 CL:FILL-POINTER 2 ELEMENT-TYPE 1 DIMENSIONS 0 TOTAL-SIZE)) ���
BD
��qlGµ@H
��¹dI�¿dE‘k€jÏ�¿Gd‘¿ˆ¥G´iºdJ‘k€jÏ¿Hjð»dK‘k€jÏ ¿Hââââlð´A	��k:¼dL‘k€jÏ0¿dF‘k€jÏ@¿dG‘k€jÏP¿dC‘k€jÏ`¿GµF½dM‘k€jÏp¿dHχ¿Gµj¾dNÍ¿Cµ@_¿dOÍ¿d@Í¿dA¿�(92 LENGTH 19 %%MAKE-ARRAY-STORAGE 4 %%CML-TYPE-TO-TYPENUMBER)
NIL
()
%%MAKE-ONED-ARRAY D1
(L (7 DISPLACED-INDEX-OFFSET 6 DISPLACED-TO 5 EXTENDABLE-P 4 READ-ONLY-P 3 FATP 2 CL:FILL-POINTER 1 ELEMENT-TYPE 0 TOTAL-SIZE)) �„��AC
��QlFµ@H
��¹dI�¿dD‘k€jÏ�¿HjðºdJ‘k€jÏ ¿Hââââlð»dK‘k€jÏ0¿dF‘k€jÏP¿dB‘k€jÏ`¿dE‘k€jÏp¿dHχ¿Gµj¼dLÍ¿Bµ@½dMÍ¿d@Í¿�(18 %%MAKE-ARRAY-STORAGE 4 %%CML-TYPE-TO-TYPENUMBER)
NIL
()
%%MAKE-STRING-ARRAY-FAT D1
(L (0 ARRAY) P 6 \INTERRUPTABLE) �‘��
@d³®@dª¿o���@
��¿@Q@Êjð¬HÊjð¥HÉ�X°öHdʇlCðª¿o���H
��¿H¥Hd”¿HÈ„´jZHÈJÔ[dlD
��YJHÉ�½\K:³MlCLú	IlDLû¿LkÔ°ëHI�¿HlDχ@�(98 %%MAKE-ARRAY-STORAGE 65 CL:ERROR 22 CL:ERROR)
NIL
( 61 "Not a thin string-char array: ~S" 18 "Not an array")
%%MAKE-TWOD-ARRAY D1
(L (5 EXTENDABLE-P 4 READ-ONLY-P 3 FATP 2 ELEMENT-TYPE 1 DIMENSIONS 0 TOTAL-SIZE)) �T��A
A
BC
��#l@J
��»dK�¿dD‘k€jÏ�¿Jjð¼dL‘k€jÏ ¿dE‘k€jÏp¿dJχ¿dHÍ¿dIÍ¿d@Í¿�(20 %%MAKE-ARRAY-STORAGE 9 %%CML-TYPE-TO-TYPENUMBER)
NIL
()
%%TOTAL-SIZE D1
(L (0 DIMS)) ���
@k
HµI
IÖ¹HX°õ�NIL
NIL
()
SHRINK-VECTOR D1
(L (1 NEW-SIZE 0 CL:VECTOR)) �P���@d®²3@dÉ	��k:²)¿jAó¥A@Èó™o���@A��¿@kÏ`¿kjðhð@AÍ@@—@kA@��o���@
���(77 CL:ERROR 68 SUBSTRING 39 CL:ERROR 15 LENGTH)
NIL
( 73 "Not a vector ~S" 34 "Trying to shrink array ~A to bad size ~A")
%%SET-ARRAY-OFFSET D1
(L (1 NEWVALUE 0 ARRAY)) �[��@d–¿@AÍ°N˜o���	��°B@²5@A@
j¹HdÊjð—¿IÕÍ°%É�¸IHd‘¿‚“HÈ…H´jÔ°Öo���@
��A�(87 CL:ERROR 21 CL:ERROR)
NIL
( 83 "Not an array ~S" 18 "Twod-arrays have no offset")
%%SET-ARRAY-TYPE-NUMBER D1
(L (1 NEWVALUE 0 ARRAY)) �:
��@d‘¿‚–@Aχ°(@²@
�HdÊjð—¿HAχŒÉ�X°îo���@
��A�(54 CL:ERROR)
NIL
( 50 "Not an array ~S")
%%ARRAYP D1
(L (0 ARRAY)) ����
@d§¤@´i�NIL
NIL
()
%%SIMPLE-ARRAY-P D1
(L (0 ARRAY)) ����
@d‘¿‡¤@´@Êlåjð�NIL
NIL
()
%%SIMPLE-STRING-P D1
(L (0 STRING)) ����
@´@Êlåjð´
@Ê0jðhð�NIL
NIL
()
%%STRINGP D1
(L (0 ARRAY)) ����
@d‘¿ƒ´
@Ê0jðhð�NIL
NIL
()
%%VECTORP D1
(L (0 CL:VECTOR)) ����
@d‘i´
@É	��k:�(16 LENGTH)
NIL
()
%%GENERAL-ARRAY-P D1
(L (0 ARRAY)) ����
@lð�NIL
NIL
()
%%ONED-ARRAY-P D1
(L (0 ARRAY)) ����
@lð�NIL
NIL
()
%%THIN-STRING-ARRAY-P D1
(L (0 ARRAY)) �	���
@	��lCð�(3 %%ARRAY-TYPE-NUMBER)
NIL
()
%%TWOD-ARRAY-P D1
(L (0 ARRAY)) ����
@lð�NIL
NIL
()
(/DECLAREDATATYPE (QUOTE GENERAL-ARRAY) (QUOTE ((BITS 8) POINTER FLAG FLAG FLAG FLAG FLAG FLAG FLAG 
FLAG (BITS 8) WORD WORD WORD POINTER)) (QUOTE ((GENERAL-ARRAY 0 (BITS . 7)) (GENERAL-ARRAY 0 POINTER) 
(GENERAL-ARRAY 2 (FLAGBITS . 0)) (GENERAL-ARRAY 2 (FLAGBITS . 16)) (GENERAL-ARRAY 2 (FLAGBITS . 32)) (
GENERAL-ARRAY 2 (FLAGBITS . 48)) (GENERAL-ARRAY 2 (FLAGBITS . 64)) (GENERAL-ARRAY 2 (FLAGBITS . 80)) (
GENERAL-ARRAY 2 (FLAGBITS . 96)) (GENERAL-ARRAY 2 (FLAGBITS . 112)) (GENERAL-ARRAY 2 (BITS . 135)) (
GENERAL-ARRAY 3 (BITS . 15)) (GENERAL-ARRAY 4 (BITS . 15)) (GENERAL-ARRAY 5 (BITS . 15)) (
GENERAL-ARRAY 6 POINTER))) (QUOTE 8))
(/DECLAREDATATYPE (QUOTE ONED-ARRAY) (QUOTE ((BITS 8) POINTER FLAG (BITS 1) FLAG FLAG (BITS 1) FLAG 
FLAG FLAG (BITS 8) WORD WORD WORD)) (QUOTE ((ONED-ARRAY 0 (BITS . 7)) (ONED-ARRAY 0 POINTER) (
ONED-ARRAY 2 (FLAGBITS . 0)) (ONED-ARRAY 2 (BITS . 16)) (ONED-ARRAY 2 (FLAGBITS . 32)) (ONED-ARRAY 2 (
FLAGBITS . 48)) (ONED-ARRAY 2 (BITS . 64)) (ONED-ARRAY 2 (FLAGBITS . 80)) (ONED-ARRAY 2 (FLAGBITS . 96
)) (ONED-ARRAY 2 (FLAGBITS . 112)) (ONED-ARRAY 2 (BITS . 135)) (ONED-ARRAY 3 (BITS . 15)) (ONED-ARRAY 
4 (BITS . 15)) (ONED-ARRAY 5 (BITS . 15)))) (QUOTE 6))
(/DECLAREDATATYPE (QUOTE TWOD-ARRAY) (QUOTE ((BITS 8) POINTER FLAG (BITS 1) FLAG (BITS 4) FLAG (BITS 8
) WORD WORD WORD)) (QUOTE ((TWOD-ARRAY 0 (BITS . 7)) (TWOD-ARRAY 0 POINTER) (TWOD-ARRAY 2 (FLAGBITS . 
0)) (TWOD-ARRAY 2 (BITS . 16)) (TWOD-ARRAY 2 (FLAGBITS . 32)) (TWOD-ARRAY 2 (BITS . 51)) (TWOD-ARRAY 2
 (FLAGBITS . 112)) (TWOD-ARRAY 2 (BITS . 135)) (TWOD-ARRAY 3 (BITS . 15)) (TWOD-ARRAY 4 (BITS . 15)) (
TWOD-ARRAY 5 (BITS . 15)))) (QUOTE 6))
(ADDTOVAR SYSTEMRECLST (DATATYPE GENERAL-ARRAY ((NIL BITS 8) (STORAGE POINTER) (READ-ONLY-P FLAG) (
INDIRECT-P FLAG) (BIT-P FLAG) (STRING-P FLAG) (ADJUSTABLE-P FLAG) (DISPLACED-P FLAG) (FILL-POINTER-P 
FLAG) (EXTENDABLE-P FLAG) (TYPE-NUMBER BITS 8) (OFFSET WORD) (CL:FILL-POINTER WORD) (TOTAL-SIZE WORD) 
(DIMS POINTER))) (DATATYPE ONED-ARRAY ((NIL BITS 8) (BASE POINTER) (READ-ONLY-P FLAG) (NIL BITS 1) (
BIT-P FLAG) (STRING-P FLAG) (NIL BITS 1) (DISPLACED-P FLAG) (FILL-POINTER-P FLAG) (EXTENDABLE-P FLAG) 
(TYPE-NUMBER BITS 8) (OFFSET WORD) (CL:FILL-POINTER WORD) (TOTAL-SIZE WORD))) (DATATYPE TWOD-ARRAY ((
NIL BITS 8) (BASE POINTER) (READ-ONLY-P FLAG) (NIL BITS 1) (BIT-P FLAG) (NIL BITS 4) (EXTENDABLE-P 
FLAG) (TYPE-NUMBER BITS 8) (BOUND0 WORD) (BOUND1 WORD) (TOTAL-SIZE WORD))))
(PUTPROPS %%AREF1 DOPVAL (2 AREF1))
(PUTPROPS %%AREF2 DOPVAL (3 AREF2))
(PUTPROPS %%ASET1 DOPVAL (3 ASET1))
(PUTPROPS %%ASET2 DOPVAL (4 ASET2))
%%DEFPRINT-ARRAY D1
(L (1 STREAM 0 ARRAY) F 6 \THISFILELINELENGTH F 7 *PRINT-ARRAY* F 8 *PRINT-LEVEL* F 9 *READTABLE* F 10 *PRINT-CIRCLE-HASHTABLE*) �ó�@	��•@A
��W¥@A
��Wµ
@	��Ÿ@A
��jó³óA	��iW��Ê
�H
´
jHóhð´lHÑ@	��BW@	��	��[
¼K
½L²AV²L	��A��ÈØVñ”A	��¿LA
��¿M²VŸA��ÈkØVñ”A	��¿o���A
��¿L’M²OI	��ºV²J	��lÔA��ÈØVñ”A	��¿HA
��¿JA
��¿o���A
��¿Ij:˜@	��A
��Œ@	��j@	��A��i�(239 %%PRINT-ARRAY-CONTENTS 235 CL:ARRAY-DIMENSIONS 230 %%FLATTEN-ARRAY 225 \PRINDATUM 221 CL:AREF 212 CL:WRITE-CHAR 203 CL:WRITE-STRING 197 CL:WRITE-CHAR 191 FRESHLINE 174 VECTOR-LENGTH 166 CL:PRINC-TO-STRING 156 CL:WRITE-CHAR 147 FRESHLINE 126 CL:WRITE-STRING 120 FRESHLINE 106 VECTOR-LENGTH 89 \MVLIST 86 PRINT-CIRCLE-LOOKUP 76 CL:ARRAY-RANK 42 \ELIDE.PRINT.ELEMENT 33 %%DEFPRINT-VECTOR 27 CL:VECTORP 18 %%DEFPRINT-GENERIC-ARRAY 9 %%DEFPRINT-STRING 3 CL:STRINGP)
(181 STREAM 136 STREAM 110 STREAM 49 READTABLEP)
( 208 #\A 152 #\Space)
%%DEFPRINT-BITVECTOR D1
(L (1 STREAM 0 CL:BIT-VECTOR) F 15 \THISFILELINELENGTH F 16 *PRINT-LENGTH* F 17 *READTABLE* F 18 *PRINT-CIRCLE-HASHTABLE* F 19 ELISION) 
S�W"��Ê
�H
´
jHóhð´lHÑ@	��ÒIkÕZh__¿W$²@	��	��^
_¿N
_¿O²MW²O	��A��ÈØWñ”A	��¿OA
��¿O² W²A��ÈkØWñ”A	��¿o���A
��¿O•O¢±�Ij:³"JkÕ@J¶_¿_¿jOó®@O¶O:–OZkÕ°ëW µ%J»IkÕJ:¤I	��½W²6MµjKW&²l°	��°ôJó³Ûi¼W kÕ°ÔjlÔÔÔA��ÈØWñ”A	��¿HA
��¿Mµo���A
��¿j_KóžL“A	��iA
��¿°äA@O¶o�����ÓÔ_¿_��É _¿OOlO¿OkÔ°Ã�(291 CL:WRITE-STRING 285 \ELIDE.PRINT.TAIL 272 CL:WRITE-CHAR 260 CL:WRITE-CHAR 254 FRESHLINE 219 VECTOR-LENGTH 198 CL:PRINC-TO-STRING 135 CL:WRITE-CHAR 126 FRESHLINE 101 CL:WRITE-STRING 94 FRESHLINE 79 VECTOR-LENGTH 55 \MVLIST 52 PRINT-CIRCLE-LOOKUP 31 VECTOR-LENGTH)
(316 STREAM 306 CHARACTER 243 STREAM 114 STREAM 83 STREAM 4 READTABLEP)
( 303 #\0 268 #\* 131 #\Space)
%%DEFPRINT-GENERIC-ARRAY D1
(L (1 STREAM 0 ARRAY) F 4 \THISFILELINELENGTH F 5 *READTABLE* F 6 *PRINT-CIRCLE-HASHTABLE*) �ô�U��Ê
�H
´
jHóhð´lHÑ1V@	��	��Y
ºI
»J²CT²J	��A��ÈØTñ”A	��¿JA
��¿K²TŸA��ÈkØTñ”A	��¿o���A
��¿J”K¢±�‚T²A��ÈlØTñ”A	��¿HA
��¿o���A
��¿o���A
��¿o���A
��¿@	��	��A
��¿o���A
��¿@	��	��A
��¿o���A
��¿o���A
��¿o���A
��¿@A
��¿o���A
��i�(240 CL:WRITE-CHAR 231 \PRINTADDR 225 CL:WRITE-CHAR 216 CL:WRITE-CHAR 207 CL:WRITE-CHAR 198 CL:WRITE-STRING 194 CL:PRINC-TO-STRING 191 CL:ARRAY-DIMENSIONS 186 CL:WRITE-CHAR 177 CL:WRITE-STRING 173 CL:PRINC-TO-STRING 170 CL:ARRAY-ELEMENT-TYPE 165 CL:WRITE-CHAR 156 CL:WRITE-STRING 147 CL:WRITE-CHAR 138 CL:WRITE-CHAR 132 FRESHLINE 105 CL:WRITE-CHAR 96 FRESHLINE 75 CL:WRITE-STRING 69 FRESHLINE 55 VECTOR-LENGTH 38 \MVLIST 35 PRINT-CIRCLE-LOOKUP)
(120 STREAM 85 STREAM 59 STREAM 3 READTABLEP)
( 236 #\> 221 #\Space 212 #\@ 203 #\Space 182 #\Space 161 #\Space 152 "ARRAY" 143 #\< 101 #\Space)
%%DEFPRINT-VECTOR D1
(L (1 STREAM 0 CL:VECTOR) P 12 *PRINT-LEVEL* F 13 \THISFILELINELENGTH F 14 *PRINT-LEVEL* F 15 *PRINT-LENGTH* F 16 *PRINT-ARRAY* F 17 *READTABLE* F 18 *PRINT-CIRCLE-HASHTABLE*) 
y
�@	��•@A
��W ¥@A
��Wµ
@	��Ÿ@A
��jó³óA	��iW"��Ê
�H
´
jHóhð´lHÑ@	��¢IkÕZh__¿W$²@	��	��^
_¿N
_¿O²MW²O	��A��ÈØWñ”A	��¿OA
��¿O² W²A��ÈkØWñ”A	��¿o���A
��¿O•O¢±�‡Ij:³"JkÕ@J¶_¿_¿jOó®@O¶O:–OZkÕ°ëWµkJ»IkÕJ:¤I	��½W²MµRjlÔA��ÈØWñ”A	��¿HA
��¿Mµ.o���A
��¿Wd‘kÕ
j_dKó²,L”A	��¿o���A
��iA
��¿°Ï	��°®Jó³•i¼WkÕ°Žjó˜o���A
��¿@O¶A
��¿OkÔ°¶�(368 \PRINDATUM 359 CL:WRITE-CHAR 334 VECTOR-LENGTH 328 CL:WRITE-STRING 322 CL:WRITE-CHAR 313 \ELIDE.PRINT.TAIL 288 CL:WRITE-CHAR 276 CL:WRITE-CHAR 270 FRESHLINE 243 CL:PRINC-TO-STRING 180 CL:WRITE-CHAR 171 FRESHLINE 146 CL:WRITE-STRING 139 FRESHLINE 124 VECTOR-LENGTH 100 \MVLIST 97 PRINT-CIRCLE-LOOKUP 76 VECTOR-LENGTH 42 \ELIDE.PRINT.ELEMENT 33 %%DEFPRINT-BITVECTOR 27 CL:BIT-VECTOR-P 18 %%DEFPRINT-GENERIC-ARRAY 9 %%DEFPRINT-STRING 3 CL:STRINGP)
(259 STREAM 159 STREAM 128 STREAM 49 READTABLEP)
( 355 #\Space 318 #\) 284 #\( 176 #\Space)
%%DEFPRINT-STRING D1
(L (1 STREAM 0 STRING) F 12 \THISFILELINELENGTH F 13 *PRINT-ESCAPE* F 14 *READTABLE* F 15 *PRINT-CIRCLE-HASHTABLE*) 

�W��ÊW��Ê jðhð@	��“W²@	��	��[
_¿K
_¿O²MW²O	��A��ÈØWñ”A	��¿OA
��¿O² W²A��ÈkØWñ”A	��¿o���A
��¿O•O¢±�W²I’lƒJlÔA��ÈØWñ”A	��¿WžA��É ¼Al"lL¿j_J:³A@O
����Ó_¿W²Ol"ð¤OHðA��É ½AHlM¿A��É ¾AOlN¿OkÔ°½W²A��É _¿Al"lOi�(187 CHAR 155 FRESHLINE 117 CL:WRITE-CHAR 108 FRESHLINE 83 CL:WRITE-STRING 76 FRESHLINE 61 VECTOR-LENGTH 37 \MVLIST 34 PRINT-CIRCLE-LOOKUP 23 VECTOR-LENGTH)
(252 STREAM 227 STREAM 213 STREAM 190 CHARACTER 163 STREAM 144 STREAM 96 STREAM 65 STREAM 12 READTABLEP 4 READTABLEP)
( 113 #\Space)
%%PRINT-ARRAY-CONTENTS D1
(L (3 STREAM 2 DIMENSIONS 1 OFFSET 0 FLAT-ARRAY) P 7 *PRINT-LEVEL* F 8 *PRINT-LENGTH* F 9 *PRINT-LEVEL*) �³�B
aW›HdWó–¿iºW€HkÕ¹o���C
��B³(AdIÔ¼[dLó’¿°SAó˜o���C
��¿@K¶C
��¿KkÔ°áWdkð²"¿j]dIó’¿°)Aó˜o���C
��¿C	��¿MkÔ°ä´WkÕ
j^dIó²J”C	��¿o���C
��jó˜o���C
��¿@B
ANÔÖBC��¿NkÔ°Ë�(171 %%PRINT-ARRAY-CONTENTS 156 CL:WRITE-CHAR 144 CL:WRITE-CHAR 135 \ELIDE.PRINT.TAIL 106 \ELIDE.PRINT.ELEMENT 101 CL:WRITE-CHAR 67 \PRINDATUM 59 CL:WRITE-CHAR 31 CL:WRITE-CHAR)
NIL
( 152 #\Space 140 #\) 97 #\Space 55 #\Space 27 #\()
(DEFPRINT (QUOTE ONED-ARRAY) (QUOTE %%DEFPRINT-VECTOR))
(DEFPRINT (QUOTE TWOD-ARRAY) (QUOTE %%DEFPRINT-ARRAY))
(DEFPRINT (QUOTE GENERAL-ARRAY) (QUOTE %%DEFPRINT-ARRAY))
%%ARRAY-READ D1
(L (2 INDEX 1 TYPE-NUMBER 0 BASE)) ����@AB���(5 %%SLOW-ARRAY-READ)
NIL
()
%%ARRAY-WRITE D1
(L (3 INDEX 2 TYPE-NUMBER 1 BASE 0 NEWVALUE)) �	���@ABC���(6 %%SLOW-ARRAY-WRITE)
NIL
()
%%CML-TYPE-TO-TYPENUMBER D1
(L (1 FATP 0 ELEMENT-TYPE)) �´��@	��AA™Hdg��ð“lDHið’l&Hd²g
Ydg��ð²*¿H
Zdk:‘jl:’lJl:´lo���Jo�����g��ð´#H
[dl:’ll :´lo���Ko�����o���Io�����\dg��ð’lCg��ð³ùLdg��ð’lVg��ð´l6g��Lo������(177 ECASE-FAIL 130 ECASE-FAIL 117 ECASE-FAIL 78 ECASE-FAIL 3 %%GET-CANONICAL-CML-TYPE)
(169 CANONICAL-TYPE 160 CL:SINGLE-FLOAT 152 XPOINTER 144 CL:STRING-CHAR 136 CL:STRING-CHAR 82 CL:SIGNED-BYTE 36 CL:UNSIGNED-BYTE 13 CL:STRING-CHAR)
( 174 (CL:STRING-CHAR CL:STRING-CHAR XPOINTER CL:SINGLE-FLOAT) 127 (CL:UNSIGNED-BYTE CL:SIGNED-BYTE) 122
 (CAR CANONICAL-TYPE) 114 (16 32) 109 (CADR CANONICAL-TYPE) 75 (1 8 16) 70 (CADR CANONICAL-TYPE))
%%GET-CANONICAL-CML-TYPE D1
(L (0 ELEMENT-TYPE)) ���
@d²T

Hdg��ð•¿@	��g��ð”@	��Hg��ð§Hdg��ð•¿@	��g��ð”@	��Hg��ð´@
	��Y™@I
��b�°­iið³@dg��ð¬dg��ð¦dg��ð‘@g��ð³á@dg��ð“g��g��ð”o���@g��ð¦@dg��ð“g��g��ð”o���@g��ð´«@	��
�H² @H
��b�±ÿA�(187 TYPE-EXPAND 176 TYPE-EXPANDER 79 TYPE-EXPAND 72 TYPE-EXPANDER 59 %%REDUCE-INTEGER 49 %%REDUCE-MOD 30 %%GET-ENCLOSING-SIGNED-BYTE 20 %%GET-ENCLOSING-UNSIGNED-BYTE)
(169 CL:OTHERWISE 158 BIT 154 CL:STRING-CHAR 149 CL:CHARACTER 142 CHARACTER 131 CL:FIXNUM 127 CL:SINGLE-FLOAT 122 FLOAT 114 POINTER 107 CL:STRING-CHAR 101 CL:SINGLE-FLOAT 95 XPOINTER 64 CL:OTHERWISE 53 INTEGER 42 CL:MOD 35 MOD 24 CL:SIGNED-BYTE 13 CL:UNSIGNED-BYTE)
( 164 (CL:UNSIGNED-BYTE 1) 137 (CL:SIGNED-BYTE 32))
%%GET-ENCLOSING-SIGNED-BYTE D1
(L (0 ELEMENT-TYPE)) ����
@
dló¤o���l ó¤o���i�NIL
NIL
( 20 (CL:SIGNED-BYTE 32) 11 (CL:SIGNED-BYTE 16))
%%GET-ENCLOSING-UNSIGNED-BYTE D1
(L (0 ELEMENT-TYPE)) �&
��
@

�Hdkó¤o���ló¤o���Hló¤o���i�NIL
NIL
( 33 (CL:UNSIGNED-BYTE 16) 23 (CL:UNSIGNED-BYTE 8) 14 (CL:UNSIGNED-BYTE 1))
%%MAKE-ARRAY-STORAGE D1
(L (3 ALIGNMENT 2 INIT-ON-PAGE 1 TYPENUMBER 0 NELTS)) ��A
�HdlC:”¿l°_lD:“l°WHdl&:”¿l °LlV:“l °DHdl6:”¿l °9j:’k°3Hdl:”¿l°(l:“l° Hdl:”¿l°l:´l Šg��Ho�����A
�HdlC:“¿j°WlD:’j°PHdl&:“¿k°FlV:’j°?Hdl6:“¿j°5j:’j°/Hdl:“¿j°%l:’j°Hdl:“¿j°l:´jŠg��Ho�����
@HÖlØâââââIBC���(228 \ALLOCBLOCK 207 ECASE-FAIL 107 ECASE-FAIL)
(199 TYPENUMBER 99 TYPENUMBER)
( 204 (67 68 38 86 54 0 3 4 20 22) 104 (67 68 38 86 54 0 3 4 20 22))
%%REDUCE-INTEGER D1
(L (0 ELEMENT-TYPE)) �j��
@
@
HµId“
kÕYHó´/jHó³+lIóšo���
kÔ¸°án
�Ió”o���o���Ió”o���iH	��I
��ºn€�Jó”o���Jo���ó³äo����(79 MAX 75 ABS)
NIL
( 103 (CL:SIGNED-BYTE 32) 96 2147483647 90 (CL:SIGNED-BYTE 16) 68 (CL:UNSIGNED-BYTE 16) 61 65536 56 (CL:UNSIGNED-BYTE 8)
 39 (CL:UNSIGNED-BYTE 1))
%%REDUCE-MOD D1
(L (0 ELEMENT-TYPE)) �*
��
@

�Hdló¤o���n
�ó¤o���Ho���ó¤o���i�NIL
NIL
( 37 (CL:UNSIGNED-BYTE 16) 31 65536 25 (CL:UNSIGNED-BYTE 8) 15 (CL:UNSIGNED-BYTE 1))
%%SLOW-ARRAY-READ D1
(L (2 ROW-MAJOR-INDEX 1 TYPENUMBER 0 BASE)) �Ý��AaHdlC:²¿@BÂY
´‚±�ºjIóhð´‚±�¯lIÑlD:² @BÐÈ�Z
´‚±�—jJóhð´‚±�ŒlJÑHdl&:—¿@BàÐÉ�lV:³öHdl6:ž¿@BàÐdÈ�ýÈ
Ñí�j:²BâââlBlåÙ»kKç½¼M@LÂåjð‘jkHdl:”¿@BÂl:•@BÐÈ�Hdl:²¿@BÐÈ�^dnÿó²¿lNÑl:´	@Bà
��g��Ho������(218 ECASE-FAIL 206 \GETBASEFIXP)
(210 TYPENUMBER)
( 215 (67 68 38 86 54 0 3 4 20 22))
%%SLOW-ARRAY-WRITE D1
(L (3 ROW-MAJOR-INDEX 2 TYPENUMBER 1 BASE 0 NEWVALUE)) 
Ÿ��BQHdlC:¿@��Ólÿóhð±�¬lD:–@��±�¡Hdl&:”¿i±�–lV:“i±�ŽHdl6:–¿@±�j:Ÿ@¹jIóhð´tIkóhð°mHdl:²¿@ºjJóhð´\n
�Jó°Ul:œ@[
´KjKñhð°DHdl:²¿@¼o���Lóhð´0Lnÿóhð°'l:´@½o���Móhð´Mo���óhðŠg��Ho�����«o���@
��¿±�ÐB
HdlC:›¿AC@��ÓDZ�ºlD:œACÐ@��ÓÍ�±�©Hdl&:š¿ACàÐ@�±�˜lV:™ACàÐ@Î�±�ŠHdl6:›¿ACàÐ@í
Î�°wj:²2CâââlClåÙ¹kIçAJ¼KLåjð•@jðhð‚@jð–AJKLæÇ¿°CHdl:–¿AC@Ç°6l:—ACÐ@Í�°*Hdl:™¿ACÐ@ÓÍ�°l:´
ACà@��Šg��Ho�����@�(411 ECASE-FAIL 399 \PUTBASEFIXP 202 CL:ERROR 192 ECASE-FAIL)
(403 TYPENUMBER 239 CHARACTER 223 CHARACTER 184 TYPENUMBER 31 CHARACTER 14 CHARACTER)
( 408 (67 68 38 86 54 0 3 4 20 22) 198 "Illegal value: ~S" 189 (67 68 38 86 54 0 3 4 20 22) 177 2147483647
 166 -2147483648 140 -32768)
(PUTPROPS CMLARRAY FILETYPE CL:COMPILE-FILE)
(PUTPROPS CMLARRAY COPYRIGHT ("Xerox Corporation" 1986))
NIL