(FILECREATED "24-Feb-86 17:07:19" ("compiled on " {ERIS}ARRAYTEST.;27) "15-Feb-86 15:50:45" recompiled changes: DUMPWORDS MAKE-NEWARRAY MAKE-RANKVECTOR NEWARRAY-DIMENSIONS NEWARRAY-RANK PRINT-RANKVECTOR PRINT-NEWARRAY \ARRAYINDEX.UFN \RANKTRIPLEREF in "Xerox Lisp 15-Feb-86 ..." dated "15-Feb-86 16:03:52") (FILECREATED "24-Feb-86 17:07:02" {ERIS}ARRAYTEST.;27 7864 changes to: (RECORDS RANKVECTOR RANKTRIPLE NEWARRAY) (FNS \RANKTRIPLEREF MAKE-RANKVECTOR DUMPWORDS \ARRAYINDEX.UFN PRINT-NEWARRAY MAKE-NEWARRAY NEWARRAY-DIMENSIONS PRINT-RANKVECTOR NEWARRAY-RANK) (VARS ARRAYTESTCOMS) previous date: "20-Feb-86 16:00:15" {ERIS}ARRAYTEST.;25) DUMPWORDS D1 (P 1 I I 1 N I 0 H) +AkÙjIHó³oi ¿@IÐÈi ¿IkÔY°å(50Q TERPRI 35Q PRIN1 23Q PRIN1) NIL ( 17Q " ") MAKE-NEWARRAY D1 (I 0 DIMS) `@ HdI¿(7 MAKE-RANKVECTOR) (2 NEWARRAYTYPE#) () MAKE-RANKVECTOR D1 (P 6 DIMENSION P 5 I P 2 RV P 0 RANK I 0 DIMS) d@µ o ¿@ HlÚlØjhl JHÍHkÙ@jLµJ¾MKó³ùN3 ¾JM YjÌ¿IHkð‘N€jÌ¿INÌ¿L¼MkÔ½°Î(104Q \RANKTRIPLEREF 37Q \ALLOCBLOCK 16Q LENGTH 11Q ERROR) NIL ( 6 "No dimensions given") NEWARRAY-DIMENSIONS D1 (P 2 I P 0 RANKVECTOR I 0 ARRAY) 5@ÉHÈkÙj2JIó³HJ ˽Lµ Mh\»JkÔZ°èM&¼°÷K(33Q \RANKTRIPLEREF) (3 NEWARRAY) () NEWARRAY-RANK D1 (L (0 A)) @ÉÈNIL (3 NEWARRAY) () PRINT-RANKVECTOR D1 (P 2 I P 0 RANK I 0 RV) H@Èoi ¿Hi HlÚlJIó³oi ¿@JÐËi ¿JlÔZ°äoi @(104Q PRIN1 63Q PRIN1 51Q PRIN1 23Q PRIN1 15Q PRIN1) NIL ( 100Q ">" 45Q " " 11Q "#@ Ri ¿oi @ °doi ¿Ii µêoi @(72Q PRIN1 55Q PRIN1 47Q PRIN1 30Q NEWARRAY-DIMENSIONS 24Q PRIN1 13Q PRIN1 3 NEWARRAY-RANK) NIL ( 66Q ">" 43Q " " 20Q "