(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 09:53:09" ("compiled on " {DSK}sources>CMLARRAYINSPECTOR.;3) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "31-Dec-93 12:26:35" {DSK}export>lispcore>sources>CMLARRAYINSPECTOR.;2 34659 changes to%: (FILES TWODINSPECTOR) (VARS CMLARRAYINSPECTORCOMS) (FNS ICMLARRAY ICMLARRAY.GETREGIONFN ICMLARRAY.GETMENUWGROUP) previous date%: "17-Aug-90 14:15:43" {DSK}export>lispcore>sources>CMLARRAYINSPECTOR.;1) \CREATE.INSPECTABLEMENU :D8 NIL 7`dodg dgjdndhHdI NIL (29 DEFAULTMENUHELDFN 20 CLRPROMPT 4 |MENUTYPE#|) ( 11 (("Inspect" (QUOTE INSPECT) "Inspect element") ("Set" (QUOTE SET) "Set element") ("Indices" (QUOTE INDICES) "Display indices") ("IT _ Selection" (QUOTE SETIT) "Bind IT to element"))) \CREATE.SETABLEMENU :D8 NIL 7`dodg dgjdndhHdI NIL (29 DEFAULTMENUHELDFN 20 CLRPROMPT 4 |MENUTYPE#|) ( 11 (("Set" (QUOTE SET) "Set element") ("Indices" (QUOTE INDICES) "Display indices") ("IT _ Selection" (QUOTE SETIT) "Bind IT to element"))) \CREATE.TITLEMENU :D8 NIL 7`dodg dgjdndhHdI NIL (29 DEFAULTMENUHELDFN 20 CLRPROMPT 4 |MENUTYPE#|) ( 11 (("Refetch" (QUOTE REFETCH) "Refetch the array") ("IT _ Datum" (QUOTE IT) "Bind IT to the inspected array"))) CREATEARRAYSLICE :D8 (L (1 LEVELS 0 CMLARRAY)) @ @ qjH k" OOh[JHA3 O0_OO_OO_O__O_O6`K dML dNdI@ _dO_OgOKOLIOOعO_O_O_e(140 %%FLATTEN-ARRAY 123 DREVERSE 111 DREVERSE 23 REVERSE 12 CL:ARRAY-DIMENSIONS 5 CL:ARRAY-RANK) (161 ALL 104 |ICML.ARRAYSLICETYPE#|) () GET.MENU.LIST :D8 (L (4 BFONT 3 FONT 2 MAXWIDTH 1 DISPLAYEDLEVELS 0 CMLARRAY)) ! @ !Hk@ YiggChJOgggogDogggogDohgooggg@ gDhh@d :ogggigDhhhjh.I o@ )ogggigDhhh@ )ogggigDhhh@ )ogggigDhhh ogggHgDhhlH0oggg@ gDhhhoHkj2LK7gggLgDh_NOh^Lk\O&MoHkj2LK=ggg@L gDh_NOh^Lk\O&MhJoAjBKMh  hh_ggggL gOgDgBgkgLo_NOh^KLkԼO&(721 PACK* 681 CL:APPEND 675 CL:APPEND 605 CL:ARRAY-DIMENSION 473 CL:ARRAY-TOTAL-SIZE 404 CL:APPEND 358 DISPLACED-ARRAY-P 311 CL:ARRAY-HAS-FILL-POINTER-P 264 EXTENDABLE-ARRAY-P 251 CL:ADJUSTABLE-ARRAY-P 188 SIMPLE-ARRAY-P 165 MKSTRING 160 CL:ARRAY-ELEMENT-TYPE 19 CL:ARRAY-DIMENSIONS 5 CL:ARRAY-RANK) (751 DIM 745 BOX 739 MAXWIDTH 733 FONT 726 LABEL 715 LEVEL 710 ID 705 MOMENTARY 700 TYPE 610 FONT 598 LABEL 593 DISPLAY 588 TYPE 531 FONT 525 LABEL 520 DISPLAY 515 TYPE 478 FONT 467 LABEL 462 DISPLAY 457 TYPE 430 FONT 424 LABEL 419 DISPLAY 414 TYPE 386 FONT 380 LABEL 375 DISPLAY 370 TYPE 339 FONT 333 LABEL 328 DISPLAY 323 TYPE 292 FONT 286 LABEL 281 DISPLAY 276 TYPE 217 FONT 211 LABEL 206 DISPLAY 201 TYPE 170 FONT 154 LABEL 149 DISPLAY 144 TYPE 129 GROUP 109 FONT 99 LABEL 94 MOMENTARY 89 TYPE 72 FONT 62 LABEL 57 MOMENTARY 52 TYPE 39 FONT 34 PROPS) ( 757 (SELECTEDFN ICMLARRAY.MENUW.GETLEVEL) 656 (TYPE DISPLAY LABEL "Shown:") 571 (TYPE DISPLAY LABEL "Levels:") 498 (TYPE DISPLAY LABEL "Dimension:") 452 (TYPE DISPLAY LABEL "Total-size:") 409 (TYPE DISPLAY LABEL "Rank:") 365 (TYPE DISPLAY LABEL "Displaced-p:") 318 (TYPE DISPLAY LABEL "Fill-pointer-p:") 271 (TYPE DISPLAY LABEL "Extendable-p:") 257 (TYPE DISPLAY LABEL "Adjustable-p:") 196 (TYPE DISPLAY LABEL "Simple-p:") 139 (TYPE DISPLAY LABEL "Element type:") 134 (PROPS FORMAT TABLE) 115 (BOX 1 SELECTEDFN ICMLARRAY.MENUW.APPLY) 104 "APPLY" 78 (BOX 1 SELECTEDFN ICMLARRAY.MENUW.SHOW) 67 "SHOW") ICMLARRAY :D8 (L (2 WHERE 1 ASTYPE 0 CMLARRAY)) @ g HkjHk3OOXOh[\@ ^wi4@JB [ _OmkK _Om@IJM \KALlOOgj_OOh__Ok_O&_jhN~LJ (190 ICMLARRAY.ATTACHDISPLAY 116 ICMLARRAY.GETMENUWGROUP 91 WINDOWREGION 71 WINDOWREGION 65 ICMLARRAY.DISPLAYSLICE 50 CL:ARRAY-DIMENSIONS 18 DEFAULTFONT 5 CL:ARRAY-RANK) (136 ALL 13 DISPLAY) () ICMLARRAY.ATTACHDISPLAY :D8 (L (2 DISPLAYEDLEVELS 1 STATUSGROUP 0 DISPLAYGROUP)) K@Agg @d dgg Ag@ AgB (72 PUTWINDOWPROP 60 PUTWINDOWPROP 43 PUTWINDOWPROP 23 ALLATTACHEDWINDOWS 16 ATTACHWINDOW) (66 CURRENTLEVELS 54 DISPLAYGROUP 38 ICMLARRAY.DOWINDOWCOMFN 33 DOWINDOWCOMFN 11 TOP 6 LEFT) () ICMLARRAY.DETACHDISPLAY :D8 (L (0 STATUSGROUP)) @g H H h(25 CLOSEW 19 DETACHWINDOW 10 GETWINDOWUSERPROP) (5 DISPLAYGROUP) () ICMLARRAY.DOWINDOWCOMFN :D8 (L (0 WINDOW)) e@g ` "IJ@ [g IdgJhddgJg  H K@kIh(89 MEMB 82 SHAPEW 77 GETREGION 43 GETWINDOWUSERPROP 32 CENTRALWINDOW 20 MENU 10 GETWINDOWUSERPROP) (70 CLOSED 64 ICMLARRAY.GETREGIONFN 51 SHAPEW 38 DISPLAYGROUP 15 WindowMenu 5 PASSTOMAINCOMS) () ICMLARRAY.INDICES :D8 (L (2 COLUMN 1 ROW 0 DISPLAYWINDOW)) }@ !Hg Hg Z oJ I!Kh\gMkJ BikJ AkJ LJ kJ K[(117 SPACES 109 PRIN1 101 SPACES 91 SPACES 78 SPACES 49 PRIN1 37 TERPRI 31 GETWINDOWUSERPROP 19 GETWINDOWUSERPROP 5 MAINWINDOW) (66 ALL 26 PRTWINDOW 14 CURRENTLEVELS) ( 43 "Indices: ") ICMLARRAY.SETVALUEA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 SI::*RESETFORMS* F 2 PRTWINDOW F 3 XCL:*EVAL-FUNCTION* F 4 NEWVALUE) _gR hhQcg` hhQcid i oi Sid kHcid (92 CLEARBUF 79 LISPXREAD 68 PRIN1 56 TERPRI 50 CLEARBUF 34 TTY.PROCESS 10 TTYDISPLAYSTREAM) (29 \RUNNING.PROCESS 24 TTY.PROCESS 4 TTYDISPLAYSTREAM) ( 62 "Eval> ") ICMLARRAY.SETVALUEA0001 :D8 (P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 *PRINT-LENGTH* P 0 *PRINT-LEVEL* F 5 INSPECTPRINTLEVEL F 6 LISPXHIST) %UUV!g $(30 SI::RESETUNWIND 25 \MVLIST 20 ICMLARRAY.SETVALUEA0001A0002) (15 SI::RESETUNWIND) () ICMLARRAY.SETVALUE :D8 (L (2 COLUMN 1 ROW 0 DISPLAYWINDOW) P 4 XCL:*PROFILE* P 3 NEWVALUE P 2 PRTWINDOW) j@ @g "Hg Z@g L \ L g Il@ABK @AK h(102 ONEDINSPECT.REPLACE 93 TWODINSPECT.REPLACE 78 \DO.PROGV 68 XCL::PROFILE-VALUES 62 XCL::PROFILE-VARIABLES 56 XCL::PROFILIZE 47 GETWINDOWUSERPROP 35 GETWINDOWUSERPROP 21 SLICERANK 16 GETWINDOWUSERPROP 5 MAINWINDOW) (73 ICMLARRAY.SETVALUEA0001 42 PROFILE 30 PRTWINDOW 11 DATUM) () ICMLARRAY.TITLECOMMANDFNA0001 :D8 (F 0 CMLARRAY F 1 LEVELS F 2 DISPLAYGROUP F 3 TOPRIGHT) PQRS (8 ICMLARRAY.DISPLAYSLICE) NIL () ICMLARRAY.TITLECOMMANDFN :D8 (L (0 WINDOW) P 7 XCL:*PROFILE* P 6 LEVELS P 5 TOPRIGHT P 4 DISPLAYGROUP P 3 CMLARRAY F 8 IT) `kjo!@ g @ H dgghI I Ig I ZkJJmIg I Lg O _ O g \dIN gKcoK h(223 PROMPTPRINT 199 ICMLARRAY.ATTACHDISPLAY 189 \DO.PROGV 179 XCL::PROFILE-VALUES 172 XCL::PROFILE-VARIABLES 165 XCL::PROFILIZE 155 GETWINDOWUSERPROP 144 ICMLARRAY.DETACHDISPLAY 135 GETWINDOWUSERPROP 105 \INSUREWINDOW 99 GETWINDOWUSERPROP 88 ICMLARRAY.MENUW.SHOW 82 FM.GETITEM 58 MENU 51 MAINWINDOW 42 GETWINDOWUSERPROP 32 MAINWINDOW 4 GETMOUSESTATE) (205 IT 184 ICMLARRAY.TITLECOMMANDFNA0001 150 PROFILE 130 CURRENTLEVELS 94 DISPLAYGROUP 75 SHOW 64 REFETCH 37 CMLARRAY 10 LASTMOUSEBUTTONS) ( 217 "IT bound to " 23 (\CREATE.TITLEMENU)) ICMLARRAY.VALUECOMMANDFN :D8 (L (0 ARGS) F 14 ; F 15 IT) XeoWdoWdkag Hlla_la_lla_la_la_la_O _O3OLI dgO dgEOdjOO kOO OlOOO dgOOdjO 'kOO OlOOO coO Bg;OdjO )kOO OlOOO h(340 SHOULDNT 333 ICMLARRAY.INDICES 313 ICMLARRAY.INDICES 298 ICMLARRAY.INDICES 273 PROMPTPRINT 268 CONCAT 253 SHOULDNT 247 SLICEREF 228 SLICEREF 214 SLICEREF 186 SHOULDNT 177 ICMLARRAY.SETVALUE 156 ICMLARRAY.SETVALUE 140 ICMLARRAY.SETVALUE 110 INSPECT 94 MENU 76 SLICERANK) (281 INDICES 196 SETIT 120 SET 100 INSPECT) ( 261 "IT bound to " 16 (\CREATE.SETABLEMENU) 8 (\CREATE.INSPECTABLEMENU)) ICMLARRAY.DISPLAYSLICE :D8 (L (3 TOPRIGHT 2 WHERE 1 LEVELS 0 CMLARRAY)) @A H dj,HoggghogBC dkQHdj kj2JdI(KggghogBC L Mh\JkZM&l{Hdj kj2JdI?KHk kj2JdI=KggghdogBC L Mh\JkZM&L Mh\JkZM&o (282 SHOULDNT 231 TWODINSPECTW.CREATE 181 SLICEDIMENSION 159 SLICEDIMENSION 125 ONEDINSPECTW.CREATE 76 SLICEDIMENSION 61 ONEDINSPECTW.CREATE 15 SLICERANK 6 CREATEARRAYSLICE) (223 ICMLARRAY.TITLECOMMANDFN 211 ICMLARRAY.VALUECOMMANDFN 206 SLICESET 201 SLICEREF 117 ICMLARRAY.TITLECOMMANDFN 106 ICMLARRAY.VALUECOMMANDFN 101 SLICESET 96 SLICEREF 53 ICMLARRAY.TITLECOMMANDFN 42 ICMLARRAY.VALUECOMMANDFN 37 ZEROD.STOREFN 32 ZEROD.FETCHFN) ( 277 "Should not happen" 218 "Display Window" 112 "Display Window" 48 "Display Window" 27 ("Entry")) ICMLARRAY.GETREGIONFN :D8 (L (2 INFO 1 MOVINGPOINT 0 FIXEDPOINT)) BBH ZAdJmkJJmkIgBgJkJkAJJmAJJmAJJmAJJmA(12 WINDOWREGION) (59 OPEN 50 CLOSED) () ICMLARRAY.GETMENUWGROUPA0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 CMLARRAY) gh Po (21 CONCAT 10 SETTOPVAL) (4 *PRINT-ARRAY*) ( 16 " Inspector") ICMLARRAY.GETMENUWGROUP :D8 (L (3 TOPLEFT 2 DISPLAYEDLEVELS 1 FONT) P 12 SI::*RESETFORMS* I 0 CMLARRAY)  Ag Ag g a@ @ A h[@BgH IA OOH dMMAH gd h g $ [dgg Kg@ KgB I^ifjdldJ hdi \gjJ LgnJ Lgg gL KgL AL KCpd K  K L8K_H _OOOO_O_O_jh>N0Kg CK k(438 \INSUREWINDOW 426 ATTACHWINDOW 372 STRINGWIDTH 358 REDISPLAYW 352 MOVEW 347 GETBOXPOSITION 336 \INSUREWINDOW 325 \INSUREWINDOW 314 DSPFONT 306 PUTWINDOWPROP 293 DSPSCROLL 281 PUTWINDOWPROP 264 PUTWINDOWPROP 247 PUTWINDOWPROP 233 CREATEW 225 CREATEREGION 203 PUTWINDOWPROP 191 PUTWINDOWPROP 179 PUTWINDOWPROP 162 FREEMENU 152 SI::RESETUNWIND 147 \MVLIST 142 ICMLARRAY.GETMENUWGROUPA0003 126 GETTOPVAL 115 GET.MENU.LIST 100 STRINGWIDTH 78 STRINGWIDTH 61 HEIGHTIFWINDOW 47 CL:ARRAY-RANK 40 CL:ARRAY-DIMENSIONS 31 FONTCREATE 21 FONTPROP 10 FONTPROP) (421 BOTTOM 300 PRTWINDOW 287 ON 276 NILL 271 PAGEFULLFN 254 MAXSIZE 239 MINSIZE 197 DISPLAYEDLEVELS 185 CMLARRAY 174 DON'T 169 RESHAPEFN 137 SI::RESETUNWIND 120 *PRINT-ARRAY* 72 ALL 54 FONTDESCRIPTOR 26 BRR 16 SIZE 5 FAMILY) () ICMLARRAY.MENUW.APPLYA0001 :D8 (F 0 CMLARRAY F 1 LEVELS F 2 DISPLAYGROUP F 3 TOPRIGHT) PQRS (8 ICMLARRAY.DISPLAYSLICE) NIL () ICMLARRAY.MENUW.APPLY :D8 (L (2 BUTTONS 1 MENUWINDOW 0 ITEM) P 13 XCL:*PROFILE* P 12 LEVELS P 6 TOPRIGHT P 5 DISPLAYGROUP P 0 CMLARRAY) GAg AAg A YkIImH kj2 OO9O OjZKlAg \ oL gO hA gO hA ogO hA _OOh__Ok_[O&_gKkػJQA Mg  O _ O g ]dAO (324 ICMLARRAY.ATTACHDISPLAY 313 \DO.PROGV 303 XCL::PROFILE-VALUES 296 XCL::PROFILE-VARIABLES 289 XCL::PROFILIZE 279 GETWINDOWUSERPROP 268 ICMLARRAY.DETACHDISPLAY 205 ERROR 200 FM.GETITEM 193 PACK* 174 FM.GETITEM 167 PACK* 148 FM.GETITEM 141 PACK* 128 PRIN1 117 TERPRI 111 GETWINDOWUSERPROP 61 CL:ARRAY-RANK 33 \INSUREWINDOW 24 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (308 ICMLARRAY.MENUW.APPLYA0001 274 PROFILE 251 ALL 210 FREEMENUITEM 186 LEVEL 160 LEVEL 153 FREEMENUITEM 134 LEVEL 106 PRTWINDOW 19 DISPLAYGROUP 5 CMLARRAY) ( 181 "Arg must be FreeMenuItem" 122 "Rank too high") ICMLARRAY.MENUW.GETLEVELA0007 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 LEVEL F 1 DIM F 2 PRTWINDOW F 3 NEWVALUE) oPoQ R c(22 PROMPTFORWORD 16 CONCAT) NIL ( 10 "Type new level for dim " 4 "New level?") ICMLARRAY.MENUW.GETLEVEL :D8 (L (2 BUTTONS 1 MENUWINDOW 0 ITEM) P 14 SI::*RESETFORMS* P 4 NEWVALUE P 3 PRTWINDOW P 1 LEVEL P 0 DIM) @@o@ g'@@o@ Ag Ag Tl JH @@o@ g'P`oJH kj2 OdO>OdMdg dgjdndhdN _@@@Hddid3gOhOh_OOh__Ok_O&_o@ g'@@o@ gO O K g` hhhg $L bL o gKL \3 jLLJH L)Ag _ oL O IY@IA (536 FM.CHANGELABEL 525 PRIN1 518 CONCAT 506 TERPRI 499 GETWINDOWUSERPROP 482 CL:ARRAY-DIMENSION 465 READ 460 OPENSTRINGSTREAM 446 STREQUAL 436 U-CASE 428 STRINGP 417 SI::RESETUNWIND 412 \MVLIST 407 ICMLARRAY.MENUW.GETLEVELA0007 387 TTY.PROCESS 371 TERPRI 356 MENU 348 LISTPUT 329 ERROR 295 ERROR 151 CL:ARRAY-DIMENSION 118 ERROR 93 CL:ARRAY-DIMENSION 81 GETWINDOWUSERPROP 70 GETWINDOWUSERPROP 52 ERROR 19 ERROR) (494 PRTWINDOW 452 ALL 402 SI::RESETUNWIND 382 \RUNNING.PROCESS 377 TTY.PROCESS 341 LEVMENU 334 FREEMENUITEM 315 FREEMENUITEM 307 LEVMENU 300 FREEMENUITEM 241 QUOTE 220 FREEMENUITEM 191 DEFAULTMENUHELDFN 182 CLRPROMPT 138 |MENUTYPE#| 130 LEVMENU 123 FREEMENUITEM 104 FREEMENUITEM 76 PRTWINDOW 65 CMLARRAY 57 FREEMENUITEM 38 FREEMENUITEM 31 DIM 24 FREEMENUITEM 5 FREEMENUITEM) ( 512 "Illegal value " 441 "ALL" 323 "Arg must be FreeMenuItem" 289 "Arg must be FreeMenuItem" 144 (ALL (QUOTE ALL) "Unrestricted") 112 "Arg must be FreeMenuItem" 46 "Arg must be FreeMenuItem" 13 "Arg must be FreeMenuItem") ICMLARRAY.MENUW.SHOW :D8 (L (2 BUTTONS 1 MENUWINDOW 0 ITEM)) VAg Ag kjHhJIgJ hA JkԺHXKA (81 FM.CHANGELABEL 63 FM.GETITEM 56 PACK* 26 CL:ARRAY-RANK 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (50 LEVEL 16 CMLARRAY 5 CURRENTLEVELS) () SLICEDIMENSION :D8 (L (1 DIM 0 SELECTION)) @Ak (15 FNTH) (5 ICML.ARRAYSLICE) () SLICERANK :D8 (L (0 SELECTION)) @ (12 LENGTH) (5 ICML.ARRAYSLICE) () SLICEREF :D8 (L (0 ARGS)) _ ekHo ka1IIIJLKljMOض_OONa_MNkԾ(17 HELP) (47 ICML.ARRAYSLICE 38 ICML.ARRAYSLICE 29 ICML.ARRAYSLICE) ( 12 "Need at least one arg") SLICESET :D8 (L (0 ARGS)) h elHo kaAlaZJJIKMLlj NOط_OOOa_NOk_(18 HELP) (51 ICML.ARRAYSLICE 42 ICML.ARRAYSLICE 33 ICML.ARRAYSLICE) ( 13 "Need at least two args") ZEROD.FETCHFN :D8 (L (1 PROP 0 SLICE)) @ (5 SLICEREF) NIL () ZEROD.STOREFN :D8 (L (2 PROP 1 SLICE 0 NEWVALUE)) @A (6 SLICESET) NIL () (PRETTYCOMPRINT CMLARRAYINSPECTORCOMS) (RPAQQ CMLARRAYINSPECTORCOMS ((* ;; "Inspector for Common-Lisp arrays.") (* ;; "Functions used to compute load-time constants later (so must come first!):") (FNS \CREATE.INSPECTABLEMENU \CREATE.SETABLEMENU \CREATE.TITLEMENU) (FNS CREATEARRAYSLICE GET.MENU.LIST ICMLARRAY ICMLARRAY.ATTACHDISPLAY ICMLARRAY.DETACHDISPLAY ICMLARRAY.DOWINDOWCOMFN ICMLARRAY.INDICES ICMLARRAY.SETVALUE ICMLARRAY.TITLECOMMANDFN ICMLARRAY.VALUECOMMANDFN ICMLARRAY.DISPLAYSLICE ICMLARRAY.GETREGIONFN ICMLARRAY.GETMENUWGROUP ICMLARRAY.MENUW.APPLY ICMLARRAY.MENUW.GETLEVEL ICMLARRAY.MENUW.SHOW SLICEDIMENSION SLICERANK SLICEREF SLICESET ZEROD.FETCHFN ZEROD.STOREFN) (ADDVARS (INSPECTMACROS ((FUNCTION CL:ARRAYP) . ICMLARRAY))) (INITRECORDS ICML.ARRAYSLICE) (FILES TWODINSPECTOR FREEMENU) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS ICML.ARRAYSLICE)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA SLICESET SLICEREF ICMLARRAY.VALUECOMMANDFN))))) (ADDTOVAR INSPECTMACROS ((FUNCTION CL:ARRAYP) . ICMLARRAY)) (/DECLAREDATATYPE (QUOTE ICML.ARRAYSLICE) (QUOTE (POINTER POINTER POINTER POINTER)) (QUOTE (( ICML.ARRAYSLICE 0 POINTER) (ICML.ARRAYSLICE 2 POINTER) (ICML.ARRAYSLICE 4 POINTER) (ICML.ARRAYSLICE 6 POINTER))) (QUOTE 8)) (FILESLOAD TWODINSPECTOR FREEMENU) (PUTPROPS CMLARRAYINSPECTOR COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1993)) NIL