(FILECREATED "23-Jun-86 23:55:14" ("compiled on " {QV}LISP>EARRAY.;9) "12-Nov-85 14:59:23" recompiled changes: CONFORMABLE-P EARRAY-DIMENSION EARRAY-ELEMENT-TYPE EARRAY-LINEARIZE EARRAY-MAKESCALAR EARRAY-RANK EARRAY-TOTAL-SIZE in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "23-Jun-86 23:54:41" {QV}LISP>EARRAY.;9 7171 changes to: (FNS EARRAY-DIMENSION EARRAY-ELEMENT-TYPE EARRAY-LINEARIZE EARRAY-MAKESCALAR EARRAY-RANK EARRAY-TOTAL-SIZE CONFORMABLE-P) ( MACROS EARRAY-SCALARP) (VARS EARRAYCOMS) previous date: "23-Jun-86 14:04:35" {QV}LISP>EARRAY.;8) CONFORMABLE-P D1 (L (1 ARRAY2 0 ARRAY1)) @ hA h @ A (27Q EARRAY-TOTAL-SIZE 23Q EARRAY-TOTAL-SIZE 13Q CL:ARRAYP 3 CL:ARRAYP) NIL () EARRAY-ARITH-TYPE D1 (I 1 ELTTYPE2 I 0 ELTTYPE1) @gAgg@A (24Q EARRAY-COMMON-TYPE) (16Q SINGLE-FLOAT 11Q SINGLE-FLOAT 3 SINGLE-FLOAT) () EARRAY-ASLIST D1 (I 0 ARRAY) g@ dj@k,@ kj2IH@I K Lh[IkYL&J@ kj@ 3IHJI L Mh\IkYM&K(117Q \AREF.1 102Q EARRAY-LINEARIZE 73Q ARRAY-TOTAL-SIZE 41Q \AREF.1 21Q EARRAY-TOTAL-SIZE 3 EARRAY-RANK) NIL () EARRAY-ASVECTOR D1 (L (1 ELEMENT-TYPE 0 LST) P 0 FIRSTTYPE) 7A$@ @d HihHib@ gAg@ (64Q MAKE-ARRAY 50Q LENGTH 21Q SCALAR-TYPE-OF 7 SCALAR-TYPE-OF) (57Q :INITIAL-CONTENTS 53Q :ELEMENT-TYPE) () EARRAY-COMMON-TYPE D1 (L (1 ELTTYPE2 0 ELTTYPE1)) @A@iNIL NIL () EARRAY-DIMENSION D1 (L (1 DIM 0 ARRAY)) @d oA A (23Q ARRAY-DIMENSION 16Q ERROR 4 CL:ARRAYP) NIL ( 12Q "Scalar has no dimensions") EARRAY-DIMENSIONS D1 (I 0 ARRAY) @ @ (11Q ARRAY-DIMENSIONS 3 CL:ARRAYP) NIL () EARRAY-ELEMENT-TYPE D1 (L (0 ARRAY)) @d @  (16Q ARRAY-ELEMENT-TYPE 12Q SCALAR-TYPE-OF 4 CL:ARRAYP) NIL () EARRAY-LINEARIZE D1 (L (0 EARRAY)) @d @ g@ g@ (31Q MAKE-ARRAY 21Q ARRAY-ELEMENT-TYPE 12Q ARRAY-TOTAL-SIZE 4 CL:ARRAYP) (24Q :DISPLACED-TO 15Q :ELEMENT-TYPE) () EARRAY-MAKESCALAR D1 (L (0 ARRAY)) @d @ j (16Q \AREF.1 12Q EARRAY-LINEARIZE 4 CL:ARRAYP) NIL () EARRAY-RANK D1 (L (0 ARRAY)) @d j (12Q ARRAY-RANK 4 CL:ARRAYP) NIL () EARRAY-SCANDIMS D1 (P 0 RESULT I 0 ARRAY) )@ Hk"I[H KJJLںK(30Q DREVERSE 6 REVERSE 3 EARRAY-DIMENSIONS) NIL () EARRAY-TEST-RESULT D1 (I 2 RESULTELTTYPE I 1 RESULTDIMS I 0 RESULTARRAY) '@ABAgB A  Ao@ @(43Q HELP 30Q EARRAY-DIMENSIONS 24Q MAKE-ARRAY 17Q MAKE-ARRAY) (13Q :ELEMENT-TYPE) ( 37Q "Invalid RESULT") EARRAY-TOTAL-SIZE D1 (L (0 ARRAY)) @d k (12Q ARRAY-TOTAL-SIZE 4 CL:ARRAYP) NIL () USE-FLOAT-P D1 (I 1 ARRAY2 I 0 ARRAY1) @ g@3 A gA3 (21Q EARRAY-ELEMENT-TYPE 3 EARRAY-ELEMENT-TYPE) (24Q SINGLE-FLOAT 6 SINGLE-FLOAT) () (PRETTYCOMPRINT EARRAYCOMS) (RPAQQ EARRAYCOMS ((FNS CONFORMABLE-P EARRAY-ARITH-TYPE EARRAY-ASLIST EARRAY-ASVECTOR EARRAY-COMMON-TYPE EARRAY-DIMENSION EARRAY-DIMENSIONS EARRAY-ELEMENT-TYPE EARRAY-LINEARIZE EARRAY-MAKESCALAR EARRAY-RANK EARRAY-SCANDIMS EARRAY-TEST-RESULT EARRAY-TOTAL-SIZE USE-FLOAT-P) ( MACROS EARRAY-SCALARP) (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) CMLARRAY) (FILES UNBOXEDOPS ARRAYSUPPORT BLAS MATRIXOPS ARRAYSORTER FLOATARRAYSORTER CDFS) (FILES EARRAY-UTIL EARRAY-ITERATORS EARRAY-FNS EARRAY-SORTFNS EARRAY-CMPFNS EARRAY-ARITHFNS EARRAY-MATHFNS EARRAY-MATRIXFNS) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (PUTPROPS EARRAY-SCALARP MACRO ((DATUM) (NOT (CL:ARRAYP DATUM)))) (FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) CMLARRAY) (FILESLOAD UNBOXEDOPS ARRAYSUPPORT BLAS MATRIXOPS ARRAYSORTER FLOATARRAYSORTER CDFS) (FILESLOAD EARRAY-UTIL EARRAY-ITERATORS EARRAY-FNS EARRAY-SORTFNS EARRAY-CMPFNS EARRAY-ARITHFNS EARRAY-MATHFNS EARRAY-MATRIXFNS) (PUTPROPS EARRAY COPYRIGHT ("Xerox Corporation" 1986)) NIL