(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "17-Sep-2022 22:30:33" ("compiled on " {DSK}kaplan>local>medley3.5>working-medley>sources>INSPECT.;22) "14-Sep-2022 15:53:50" brecompiled exprs%: \ITEM.WINDOW.BUTTON.HANDLER INSPECT in "FULL 15-Sep-2022 ..." dated "15-Sep-2022 21:22:44") (FILECREATED "17-Sep-2022 22:30:33" {DSK}kaplan>local>medley3.5>working-medley>sources>INSPECT.;22 123809 :CHANGES-TO (FNS INSPECT) :PREVIOUS-DATE "12-Sep-2022 21:12:51" {DSK}kaplan>local>medley3.5>working-medley>sources>INSPECT.;21) INSPECTW.CREATEA0001 :D8 (P 18 X P 17 PROP P 15 PROP P 11 MAXVALUEWIDTH P 10 SELITEMS P 9 VALUEMARGIN P 8 VALUEMENU P 7 PROPMENU P 6 VALUE P 5 WINDOW P 4 PROPERTIESLST P 3 IWFONT P 1 *PRINT-LENGTH* P 0 *PRINT-LEVEL* F 21 DATUM F 22 TITLE F 23 TAG F 24 PROPERTIES F 25 PROPPRINTFN F 26 FETCHFN F 27 TITLECOMMANDFN F 28 WHERE F 29 STOREFN F 30 SELECTIONFN F 31 PROPCOMMANDFN F 32 VALUECOMMANDFN F 33 PROFILE) 3 ``g W0d W*kW0r W240L'dOW*lW2_O Oh_O&_OLK _Lql_W8OO`LRkK ںdJJW,W* ]KM nPM MgW* MgW: MgW4 MgW> MgW@ W.MgW, MgW6 MgW< MgW0 MgW2 Mgg Mgg Mgg Mgg MgWB MhO o c.MgW. W.M ( c,MgW, - AO !O&dlld`y`p_"W*O"lW4Ki _(O&O(O&O(_&O _ (537 STRINGWIDTH 474 LENGTH 465 PUTWINDOWPROP 449 CONCAT 442 \INSUREWINDOW 433 PUTWINDOWPROP 417 CONCAT 406 INSPECTW.REDISPLAY 397 PUTWINDOWPROP 384 PUTWINDOWPROP 368 PUTWINDOWPROP 352 PUTWINDOWPROP 336 PUTWINDOWPROP 320 PUTWINDOWPROP 307 PUTWINDOWPROP 294 PUTWINDOWPROP 281 PUTWINDOWPROP 268 PUTWINDOWPROP 247 PUTWINDOWPROP 234 PUTWINDOWPROP 221 PUTWINDOWPROP 208 PUTWINDOWPROP 195 PUTWINDOWPROP 182 DSPRIGHTMARGIN 173 DSPFONT 165 DECODE.WINDOW.ARG 160 \INSPECT.COMPUTE.TITLE 102 \INSPECTW.VALUE.MARGIN 24 DEFAULTFONT) (513 MaxInspectorPropertyValueWidth 502 MaxInspectorPropertyValueWidth 458 TITLE 426 INSPECTTAG 390 PROFILE 379 SCROLLBYREPAINTFN 374 SCROLLFN 363 INSPECTW.REPAINTFN 358 REPAINTFN 347 \ITEM.WINDOW.COPY.HANDLER 342 COPYBUTTONEVENTFN 331 \ITEM.WINDOW.BUTTON.HANDLER 326 BUTTONEVENTFN 313 PROPPRINTFN 300 PROPERTIES 287 SELECTIONFN 274 TITLECOMMANDFN 261 INSPECTWTITLE 240 VALUECOMMANDFN 227 PROPCOMMANDFN 214 FETCHFN 201 STOREFN 188 DATUM 141 FONTDESCRIPTOR 127 MaxInspectorWindowHeight 19 DISPLAY 10 INSPECTPRINTLEVEL 4 INSPECTPRINTLEVEL) ( 412 ": ") INSPECTW.CREATE :D8 (P 1 XCL:*PROFILE* P 0 PROFILE I 11 TAG I 10 PROPPRINTFN I 9 WHERE I 8 SELECTIONFN I 7 TITLE I 6 TITLECOMMANDFN I 5 VALUECOMMANDFN I 4 PROPCOMMANDFN I 3 STOREFN I 2 FETCHFN I 1 PROPERTIES I 0 DATUM) ( HY Yd I g (37 \DO.PROGV 27 XCL::PROFILE-VALUES 21 XCL::PROFILE-VARIABLES 14 XCL::PROFILIZE 4 MAKE-INSPECTOR-PROFILE) (32 INSPECTW.CREATEA0001) () INSPECTW.REPAINTFNA0001 :D8 (P 7 PROPPRINTFN P 6 SELECTABLEITEMREGION P 5 LINEBASE P 4 WREG P 3 SELITEMS P 1 *PRINT-LENGTH* P 0 *PRINT-LEVEL* F 8 WINDOW F 9 REGION) ``WWg hW 2LLmؽKKMK[LKd^ZJMWN VKdg:Wg *Wg _KWg lOKWN K[W (202 ITEMW.REPAINTFN 189 PRINTATBOX 169 GETWINDOWUSERPROP 148 GETWINDOWUSERPROP 134 GETWINDOWUSERPROP 104 REGIONSINTERSECTP 40 DSPCLIPPINGREGION 32 GETWINDOWUSERPROP) (164 DATUM 143 PROPPRINTFN 129 DATUM 118 PROPERTY 27 SELECTABLEITEMS 10 INSPECTPRINTLEVEL 4 INSPECTPRINTLEVEL) () INSPECTW.REPAINTFN :D8 (P 0 XCL:*PROFILE* I 1 REGION I 0 WINDOW) K@g H X H g @g @g @ (72 \ITEMW.FLIPITEM 66 GETWINDOWUSERPROP 53 GETWINDOWUSERPROP 41 \DO.PROGV 31 XCL::PROFILE-VALUES 25 XCL::PROFILE-VARIABLES 19 XCL::PROFILIZE 10 GETWINDOWUSERPROP) (61 CURRENTITEM 48 CURRENTITEM 36 INSPECTW.REPAINTFNA0001 5 PROFILE) () INSPECTW.REDISPLAYA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 DATUM F 3 PROP F 4 SI::NLSETQ-VALUE F 5 FETCHFN F 6 VALUE) i@RSlUc hcgNIL (22 :NORMAL) () INSPECTW.REDISPLAYA0001A0003 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 DATUM F 3 PROP F 4 SI::NLSETQ-VALUE F 5 FETCHFN F 6 VALUE) i@RSlUc hcgNIL (22 :NORMAL) () INSPECTW.REDISPLAYA0001 :D8 (P 31 *CONDITION-HANDLER-BINDINGS* P 30 SI::*NLSETQFLAG* P 29 *PROCEED-CASES* P 28 SI::NLSETQ-VALUE P 27 *CONDITION-HANDLER-BINDINGS* P 26 SI::*NLSETQFLAG* P 25 *PROCEED-CASES* P 24 SI::NLSETQ-VALUE P 23 SELITEM P 22 NOWEXTENT P 21 PROPNAME P 20 PROP P 16 PROP P 12 SELITEMS P 11 VALUEMENU P 10 PROPMENU P 9 VALUE P 8 PROPERTY-PNAMES P 7 PROPPRINTFN P 6 VALUECOMMANDFN P 5 PROPCOMMANDFN P 4 FETCHFN P 3 PROPERTIES P 2 DATUM P 1 *PRINT-LENGTH* P 0 *PRINT-LEVEL* F 32 WINDOW F 33 VALUEMARGIN F 34 *PROCEED-CASES* F 35 *CONDITION-HANDLER-BINDINGS*) i ``W@g W@ W@g W@g W@g W@g V O30K&dO JlO_O Oh_O&_OK_WBdhW@ cBhW@ W@ W@gW@g JW@ W@hW@ W@gOK2O$_(O"JO&_ W@gOjdddhO*OOOO_*O&O*5`WDioWFO2 gO0OW@` MgO(gh`WDioWFO: gO8Oo_W@WB` NgOO(hhh(o_W@WB NgOO(hhh _&O$_$O"_"d_.O,O. O, W@gg W@(612 PUTWINDOWPROP 595 PUTWINDOWPROP 582 EXTENDREGION 549 \NCONC2 523 PRINTANDBOX 482 PRINTANDBOX 445 INSPECTW.REDISPLAYA0001A0002 395 PRINTANDBOX 362 INSPECTW.REDISPLAYA0001A0003 260 PUTWINDOWPROP 222 MOVETOUPPERLEFT 217 DSPCLIPPINGREGION 207 PUTWINDOWPROP 202 \INSPECT.COMPUTE.TITLE 194 GETWINDOWUSERPROP 175 CLEARW 168 \ITEMW.DESELECTITEM 158 \INSPECTW.VALUE.MARGIN 153 DSPFONT 81 GETWINDOWUSERPROP 69 GETWINDOWUSERPROP 57 GETWINDOWUSERPROP 45 GETWINDOWUSERPROP 33 INSPECTW.PROPERTIES 26 GETWINDOWUSERPROP) (607 LIMIT 602 SCROLLEXTENTUSE 531 DEFAULT.INSPECTW.VALUECOMMANDFN 490 DEFAULT.INSPECTW.VALUECOMMANDFN 477 MinSpaceBetweenProperyAndValue 451 :NORMAL 423 SI::NLSETQ-PROCEED-CASE 410 PROPERTY 403 DEFAULT.INSPECTW.PROPCOMMANDFN 390 PropertyLeftMargin 368 :NORMAL 340 SI::NLSETQ-PROCEED-CASE 267 EXTENT 229 SELECTABLEITEMS 189 INSPECTWTITLE 182 TITLE 76 PROPPRINTFN 64 VALUECOMMANDFN 52 PROPCOMMANDFN 40 FETCHFN 21 DATUM 10 INSPECTPRINTLEVEL 4 INSPECTPRINTLEVEL) ( 511 "** error during access **" 466 "** error during access **" 432 (CL:ERROR . SI::NLSETQHANDLER) 349 (CL:ERROR . SI::NLSETQHANDLER)) INSPECTW.REDISPLAY :D8 (P 1 PROP P 0 XCL:*PROFILE* I 2 VALUEMARGIN I 1 PROPS I 0 WINDOW) OA.@g H Xd H g @A Ad@I h(70 \INSPECTW.REDISPLAYPROP 55 \INSPECTW.REDISPLAYPROP 45 \DO.PROGV 35 XCL::PROFILE-VALUES 29 XCL::PROFILE-VARIABLES 22 XCL::PROFILIZE 13 GETWINDOWUSERPROP) (40 INSPECTW.REDISPLAYA0001 8 PROFILE) () \INSPECTW.VALUE.MARGIN :D8 (I 1 FONT I 0 PROPS) +@Ai dll``d``(7 MAXSTRINGWIDTH) (40 MaxValueLeftMargin 33 MaxValueLeftMargin 26 PropertyLeftMargin 20 MinSpaceBetweenProperyAndValue) () INSPECTW.REPLACE :D8 (P 2 XCL:*EVAL-FUNCTION* P 1 STOREFN P 0 DATUM I 2 NEWVALUE I 1 PROPERTY I 0 INSPECTW) @g @g I@o H@o gIHddi3 gHhAddi3 gAhBddi3 gBhh @A (142 \INSPECTW.REDISPLAYPROP 134 EXEC-EVAL 51 ERROR 37 ERROR 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (120 QUOTE 99 QUOTE 78 QUOTE 57 CL:EVAL 16 STOREFN 5 DATUM) ( 46 " doesn't have a DATUM" 32 " does not have a STOREFN.") INSPECTW.SELECTITEM :D8 (P 0 PREVIOUS I 2 VALUEFLG I 1 PROPERTY I 0 INSPECTW) 5@g HH@ ABA@ @A @ H(49 \ITEMW.SELECTITEM 43 \SELITEM.FROM.PROPERTY 35 ITEMOFPROPERTYVALUE 22 \ITEMW.DESELECTITEM 10 GETWINDOWUSERPROP) (5 CURRENTITEM) () \INSPECTW.REDISPLAYPROPA0001 :D8 (P 6 NEWVALUEREGION P 5 ITEMSELECTED? P 4 NEWVALUE P 3 OLDVALUEITEM P 2 DATUM P 1 *PRINT-LENGTH* P 0 *PRINT-LEVEL* F 7 WINDOW F 8 PROPERTY) ``Wg WW WW #JWo KoW KWg iKW KLKhW gW KLWK ^WN MKW (164 \ITEMW.SELECTITEM 153 EXTENDEXTENT 142 PRINTATBOX 131 DSPFILL 119 DSPTEXTURE 103 \ITEMW.DESELECTITEM 91 GETWINDOWUSERPROP 77 ERROR 61 ERROR 44 INSPECTW.FETCH 35 ITEMOFPROPERTYVALUE 26 GETWINDOWUSERPROP) (124 REPLACE 86 CURRENTITEM 21 DATUM 10 INSPECTPRINTLEVEL 4 INSPECTPRINTLEVEL) ( 70 "No value for a property in an INSPECTW" 56 " doesn't have a DATUM") \INSPECTW.REDISPLAYPROP :D8 (P 0 XCL:*PROFILE* I 1 PROPERTY I 0 WINDOW) -@g H Xd H g (42 \DO.PROGV 32 XCL::PROFILE-VALUES 26 XCL::PROFILE-VARIABLES 19 XCL::PROFILIZE 10 GETWINDOWUSERPROP) (37 \INSPECTW.REDISPLAYPROPA0001 5 PROFILE) () INSPECTW.FETCH :D8 (I 1 PROPERTY I 0 INSPECTW) ;@g @o @g @o AlH(50 ERROR 37 GETWINDOWUSERPROP 23 ERROR 10 GETWINDOWUSERPROP) (32 DATUM 5 FETCHFN) ( 45 " doesn't have a DATUM" 18 " doesn't have a FETCHFN") INSPECTW.PROPERTIES :D8 (P 0 PROPERTIES I 0 INSPECTW) &@g Hd@g kH(31 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (26 DATUM 5 PROPERTIES) () DECODE.WINDOW.ARG :D8 (I 5 NOOPENFLG I 4 BORDER I 3 TITLE I 2 HEIGHT I 1 WIDTH I 0 WHERESPEC) v@ @@ @ VA3QB3L@ !@@AD BCD %AD BCD hddoC CDE (115 CREATEW 107 GETBOXREGION 101 CONCAT 87 HEIGHTIFWINDOW 79 WIDTHIFWINDOW 70 MAKEWITHINREGION 65 CREATEREGION 60 HEIGHTIFWINDOW 52 WIDTHIFWINDOW 39 POSITIONP 21 MAKEWITHINREGION 14 REGIONP 5 WINDOWP) NIL ( 95 "Specify position for ") DEFAULT.INSPECTW.PROPCOMMANDFNA0006A0007 :D8 (NAME SI::*UNWIND-PROTECT* P 0 A0282 I 0 SI::*CLEANUP-FORMS* F 1 SI::*RESETFORMS* F 2 OLDVALUEITEM F 3 INSPECTW F 4 NEWVALUE F 5 PWINDOW F 6 XCL:*EVAL-FUNCTION*) qgRShRS hQcgU hhQcg` hhQcid oi Vid kHcid (110 CLEARBUF 97 LISPXREAD 86 PRIN1 75 CLEARBUF 59 TTY.PROCESS 35 TTYDISPLAYSTREAM 17 \ITEMW.FLIPITEM) (54 \RUNNING.PROCESS 49 TTY.PROCESS 29 TTYDISPLAYSTREAM 4 \ITEMW.FLIPITEM) ( 80 "Eval> ") DEFAULT.INSPECTW.PROPCOMMANDFNA0006 :D8 (P 7 RESETSTATE P 6 SI::*RESETFORMS* P 5 LISPXHIST P 4 NEWVALUE P 3 PWINDOW P 2 OLDVALUEITEM P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 8 INSPECTW F 9 PROPERTY F 10 LISPXHIST F 11 SI::NLSETQ-VALUE) Vi@WW Wl W!g $W WWL hcg(73 INSPECTW.REPLACE 62 REMOVEPROMPTWINDOW 50 SI::RESETUNWIND 45 \MVLIST 40 DEFAULT.INSPECTW.PROPCOMMANDFNA0006A0007 22 GETPROMPTWINDOW 13 ITEMOFPROPERTYVALUE) (83 :NORMAL 35 SI::RESETUNWIND) () DEFAULT.INSPECTW.PROPCOMMANDFN :D8 (P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE I 2 INSPECTW I 1 DATUM I 0 PROPERTY F 5 *PROCEED-CASES*) ``=`dodg dgjdndhHdI  dg!`UK gJg@ (135 INSPECT 110 DEFAULT.INSPECTW.PROPCOMMANDFNA0006 81 MENU) (126 INSPECT 116 :NORMAL 99 SI::NLSETQ-PROCEED-CASE 87 SET 76 SetPropertyMenu 47 DEFAULTMENUHELDFN 38 CLRPROMPT 22 |MENUTYPE#| 15 SetPropertyMenu 9 MENU 4 SetPropertyMenu) ( 29 ((Set (QUOTE SET) "Allows a new value to be entered") (Inspect (QUOTE INSPECT)))) DEFAULT.INSPECTW.VALUECOMMANDFN :D8 (I 3 WINDOW I 2 DATUM I 1 PROPERTY I 0 VALUE) Q@ dgdgQ@F` o` `lHj HH i dg@ dgdgdgS` o` @` `lHj HH g@ ``=`dodg dgjdndhHdI  g@ (334 INSPECT 320 MENU 237 INSPECT/LISTP 223 CLRPROMPT 215 \FZEROP 187 GETMOUSESTATE 182 PRIN1 170 PRIN1 154 TERPRI 116 INSPECT/BITMAP 100 INSPECT/ATOM 93 CLRPROMPT 85 \FZEROP 57 GETMOUSESTATE 52 PRIN1 36 TERPRI 5 TYPENAME) (325 INSPECT/VALUE 315 InspectMenu 286 DEFAULTMENUHELDFN 277 CLRPROMPT 261 |MENUTYPE#| 254 InspectMenu 248 MENU 243 InspectMenu 229 LISTP 193 LASTMOUSEBUTTONS 177 PROMPTWINDOW 165 PROMPTWINDOW 149 PROMPTWINDOW 140 FLOATP 132 SMALLP 123 FIXP 107 BITMAP 63 LASTMOUSEBUTTONS 47 PROMPTWINDOW 31 PROMPTWINDOW 19 NEW-ATOM 11 LITATOM) ( 268 ((Inspect (QUOTE INSPECT/VALUE))) 160 "Can't Inspect " 42 "Can't inspect NIL.") DEFAULT.INSPECTW.TITLECOMMANDFNA0006 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 TAG F 1 TITLE F 2 SI::*RESETFORMS* F 3 INSPECTW F 4 POS F 5 PWINDOW F 6 OLDTAG) gU hhRcg` hhRcid oi i cid S P jhPo cSgP VSgP Q Q Qkhid cQT c(167 SUBSTRING 156 STRPOS 143 CONCAT 136 PUTWINDOWPROP 118 PUTWINDOWPROP 104 CONCAT 88 NCHARS 82 REMOVEPROMPTWINDOW 76 CLEARBUF 67 CL:READ-LINE 61 PRIN1 50 CLEARBUF 34 TTY.PROCESS 10 TTYDISPLAYSTREAM) (127 TITLE 112 INSPECTTAG 29 \RUNNING.PROCESS 24 TTY.PROCESS 4 TTYDISPLAYSTREAM) ( 99 ": " 55 "Tag> ") DEFAULT.INSPECTW.TITLECOMMANDFN :D8 (P 9 RESETSTATE P 8 SI::*RESETFORMS* P 7 LISPXHIST P 6 TAG P 5 POS P 4 PWINDOW P 3 TITLE P 2 OLDTAG I 1 DATUM I 0 INSPECTW F 10 LISPXHIST) ``=`dodg dgjdndhHdI  dg@ dgAdg/@g @g o g<@g @ (@k #W! g $(229 SI::RESETUNWIND 224 \MVLIST 219 DEFAULT.INSPECTW.TITLECOMMANDFNA0006 201 GETPROMPTWINDOW 192 \INSUREWINDOW 186 GETWINDOWUSERPROP 166 PROMPTPRINT 147 GETWINDOWUSERPROP 134 GETWINDOWUSERPROP 96 INSPECTW.REDISPLAY 81 MENU) (214 SI::RESETUNWIND 181 INSPECTTAG 172 ADDTAG 155 IT 142 CURRENTITEM 129 CURRENTITEM 119 SETITTOSEL 112 IT 103 SETIT 87 REFETCH 76 ItemWCommandMenu 47 DEFAULTMENUHELDFN 38 CLRPROMPT 22 |MENUTYPE#| 15 ItemWCommandMenu 9 MENU 4 ItemWCommandMenu) ( 161 "No item has been selected from this window." 29 ((ReFetch (QUOTE REFETCH) "ReFetches and redisplays the object's fields") (IT_datum (QUOTE SETIT) "sets the variable IT to the object inspected in this window.") (IT_selection (QUOTE SETITTOSEL) "sets the variable IT to the item selected in this window.") ("Add tag" (QUOTE ADDTAG) "add a mnemonic tag to this window's title"))) \SELITEM.FROM.PROPERTY :D8 (I 1 PROPERTY I 0 INSPECTW) 1@g HhYAIdgHX(10 GETWINDOWUSERPROP) (38 PROPERTY 5 SELECTABLEITEMS) () \INSPECT.COMPUTE.TITLE :D8 (P 2 *PRINT-LENGTH* P 1 *PRINT-LEVEL* P 0 VALUE I 2 WINDOW I 1 DATUM I 0 TITLE) 9@llA dghd3@ABl@XgH@(18 CL:PRINC-TO-STRING) (48 DON'T 25 DON'T) () LEVELEDFORM :D8 (I 2 CDRLEV I 1 CARLEV I 0 EXP) 6@@Ajg@AkB Bj@o@ABk (50 LEVELEDFORM 25 LEVELEDFORM) (13 &) ( 38 (--)) MAKEWITHINREGION :D8 (P 1 X P 0 LIMITREGION I 1 LIMITREGION I 0 REGION) A`1@HY@I4 A @@HHY@Ik@ٺjJJj@HY@I+@@HHY@Ik@ٻjKKj@(36 \ILLEGAL.ARG 28 REGIONP) (7 WHOLEDISPLAY) () ITEMW.REPAINTFN :D8 (P 2 SELECTABLEITEMREGION P 1 SELITEM I 1 REGION I 0 WINDOW) P@g !H"@g @g @ AIZ I@J HX(72 PRINTATBOX 60 REGIONSINTERSECTP 48 \ITEMW.FLIPITEM 42 GETWINDOWUSERPROP 29 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (37 CURRENTITEM 24 CURRENTITEM 5 SELECTABLEITEMS) () \ITEM.WINDOW.BUTTON.HANDLER :D8 (I 0 WINDOW) #`dlj@ kj@ h(30 \INSPECTW.COMMAND.HANDLER 18 \ITEM.WINDOW.SELECTION.HANDLER) (4 LASTMOUSEBUTTONS) () \ITEM.WINDOW.SELECTION.HANDLER :D8 (P 5 REG P 4 OLDPOS P 3 BUTTON P 2 PREVIOUS P 1 NOW P 0 SELECTABLEITEMS I 0 WINDOW) @g aHh`dljgkjg@ @ Hh@ \ @g J@ IZ@ `ljHID@g 7@g IdgIgh@lNhM`` J@ hJHh@L Yky(237 IN/ITEM? 232 CURSORPOSITION 220 \ITEMW.DESELECTITEM 212 INSIDE? 153 GETWINDOWUSERPROP 140 GETWINDOWUSERPROP 113 GETMOUSESTATE 107 \ITEMW.SELECTITEM 98 \ITEMW.DESELECTITEM 90 GETWINDOWUSERPROP 78 IN/ITEM? 72 CURSORPOSITION 61 \INSUREWINDOW 54 TOTOPW 10 GETWINDOWUSERPROP) (207 LASTMOUSEY 202 LASTMOUSEX 185 PROPERTY 165 PROPERTY 148 SELECTIONFN 135 SELECTIONFN 119 LASTMOUSEBUTTONS 85 CURRENTITEM 47 MIDDLE 35 LEFT 22 LASTMOUSEBUTTONS 5 SELECTABLEITEMS) () \INSPECTW.COMMAND.HANDLERA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 INSPECTW F 3 SELITEM F 4 INFO F 5 COMMANDFN F 6 SI::NLSETQ-VALUE) Mi@ScgSRg RlUSTRg RlUhc g(59 GETWINDOWUSERPROP 34 GETWINDOWUSERPROP) (74 :NORMAL 54 DATUM 29 DATUM 16 PROPERTY) () \INSPECTW.COMMAND.HANDLERA0001 :D8 (P 9 SI::*NLSETQFLAG* P 8 *PROCEED-CASES* P 7 SI::NLSETQ-VALUE P 6 INFO P 5 COMMANDFN P 4 SELITEM P 1 *PRINT-LENGTH* P 0 *PRINT-LEVEL* F 10 INSPECTW F 11 *PROCEED-CASES*) ``"hW W W Wg !L1o `lZjJJ ] o  M `W O g+OWg gWdg lK(205 GETWINDOWUSERPROP 184 GETWINDOWUSERPROP 160 \INSPECTW.COMMAND.HANDLERA0001A0002 138 PROMPTPRINT 131 STRINGP 125 PROMPTPRINT 109 CLRPROMPT 102 \FZEROP 78 GETMOUSESTATE 73 PROMPTPRINT 57 GETWINDOWUSERPROP 41 INSIDEP 36 LASTMOUSEY 29 LASTMOUSEX 22 DSPCLIPPINGREGION) (200 DATUM 191 DEFAULT.INSPECTW.TITLECOMMANDFN 179 TITLECOMMANDFN 166 :NORMAL 147 SI::NLSETQ-PROCEED-CASE 84 LASTMOUSEBUTTONS 52 CURRENTITEM 10 INSPECTPRINTLEVEL 4 INSPECTPRINTLEVEL) ( 120 "There is no change function for this window." 68 "This is the command button. You must select an item with the left button before choosing a command.") \INSPECTW.COMMAND.HANDLER :D8 (P 0 XCL:*PROFILE* I 0 INSPECTW) -@g H Xd H g (42 \DO.PROGV 32 XCL::PROFILE-VALUES 26 XCL::PROFILE-VARIABLES 19 XCL::PROFILIZE 10 GETWINDOWUSERPROP) (37 \INSPECTW.COMMAND.HANDLERA0001 5 PROFILE) () ITEM.WINDOW.SET.STACK.ARGA0006A0007 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 OLDVALUEITEM F 2 WINDOW F 3 NEWVALUE F 4 VARNAME) gQRhQR hPcg` hhPcoi Ti oi i oi i oi id c(134 EVAL 129 READ 122 PRIN1 110 TERPRI 103 PRIN1 91 TERPRI 84 PRIN1 72 PRIN1 64 PRIN1 53 CLRPROMPT 39 TTY.PROCESS 17 \ITEMW.FLIPITEM) (34 \RUNNING.PROCESS 29 TTY.PROCESS 4 \ITEMW.FLIPITEM) ( 116 "> " 97 "The expression read will be EVALuated." 78 "." 58 "Enter the new value for ") ITEM.WINDOW.SET.STACK.ARGA0006 :D8 (P 6 RESETSTATE P 5 SI::*RESETFORMS* P 4 LISPXHIST P 3 NEWVALUE P 2 OLDVALUEITEM P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 7 VARNAME F 8 WINDOW F 9 SI::NLSETQ-VALUE F 10 FRAME F 11 LISPXHIST) ]i@WW WW o h*W!g $WWK hcg(80 INSPECTW.REPLACE 65 SI::RESETUNWIND 60 \MVLIST 55 ITEM.WINDOW.SET.STACK.ARGA0006A0007 36 PROMPTPRINT 25 FRAMESCAN 13 ITEMOFPROPERTYVALUE) (90 :NORMAL 50 SI::RESETUNWIND) ( 31 "Can't set that arg.") ITEM.WINDOW.SET.STACK.ARG :D8 (P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE I 2 WINDOW I 1 FRAME I 0 VARNAME F 5 *PROCEED-CASES*) ``=`dodg dgjdndhHdI  g*AA `UK gJ(119 ITEM.WINDOW.SET.STACK.ARGA0006 99 \ILLEGAL.ARG 81 MENU) (125 :NORMAL 108 SI::NLSETQ-PROCEED-CASE 86 SET 76 SetStackMenu 47 DEFAULTMENUHELDFN 38 CLRPROMPT 22 |MENUTYPE#| 15 SetStackMenu 9 MENU 4 SetStackMenu) ( 29 ((Set (QUOTE SET) "Changes the value of this stack variable"))) REPLACESTKARG :D8 (I 2 NEWVALUE I 1 WHICHSPEC I 0 FRAMESPEC) HAD@dA Abb@ Ad@B @ o h(68 PROMPTPRINT 56 FRAMESCAN 49 SETSTKARG 35 \ILLEGAL.ARG 15 NTH) NIL ( 63 "Can't set that arg.") IN/ITEM? :D8 (P 3 ITEM P 1 YPOS P 0 XPOS I 1 POS I 0 ITEMS) #AA"@Zh[KHI KJ(26 INSIDE?) NIL () \ITEMW.DESELECTITEM :D8 (I 1 WINDOW I 0 ITEM) @@A Agh (21 PUTWINDOWPROP 8 \ITEMW.FLIPITEM) (15 CURRENTITEM) () \ITEMW.SELECTITEM :D8 (I 1 WINDOW I 0 ITEM) @@A Ag@ (21 PUTWINDOWPROP 8 \ITEMW.FLIPITEM) (15 CURRENTITEM) () \ITEMW.CLEARSELECTION :D8 (P 0 CURRENTITEM I 0 INSPECTW) @g HH@ @(22 \ITEMW.DESELECTITEM 10 GETWINDOWUSERPROP) (5 CURRENTITEM) () \ITEMW.FLIPITEM :D8 (P 0 REG I 1 DS I 0 ITEM) $@nAHHHHg (33 BLTSHADE) (27 INVERT) () PRINTANDBOX :D8 (P 5 HGHT P 4 YEND P 3 YSTART P 2 PREVLM P 1 PREVRM P 0 STRM I 3 MINSPACE I 2 LFTMARGIN I 1 STREAM I 0 EXP) Agh qnPH YBH ZC3 CjH hH BH BH hH [B@H hH \H KL]H _MjhH BhH BپdNNH BOhIH JH (184 DSPLEFTMARGIN 176 DSPRIGHTMARGIN 160 DSPXPOSITION 141 DSPCLIPPINGREGION 132 DSPXPOSITION 94 DSPYPOSITION 86 CL:PRIN1 77 DSPYPOSITION 70 DSPXPOSITION 62 TERPRI 53 DSPXPOSITION 45 RELMOVETO 31 DSPLEFTMARGIN 23 DSPRIGHTMARGIN 11 \GETSTREAM) (114 FONTDESCRIPTOR 101 FONTDESCRIPTOR 5 OUTPUT) () PRINTATBOX :D8 (I 2 OLDBOX I 1 WINDOW I 0 EXP) 8BhgA BBBhA A @AB (53 PRINTANDBOX 44 MOVETO 30 DSPFONT 12 DSPFILL) (35 FONTDESCRIPTOR 6 REPLACE) () ITEMOFPROPERTYVALUE :D8 (I 1 WINDOW I 0 PROPERTY) A@ Ag (22 MEMB 17 GETWINDOWUSERPROP 6 \SELITEM.FROM.PROPERTY) (12 SELECTABLEITEMS) () \ITEM.WINDOW.COPY.HANDLER :D8 (P 3 NEWITEM P 2 SMASHPOS P 1 CURRENTITEM P 0 SELECTABLEITEMS I 0 WINDOW) ^@g @H@ Hh@ Z IKIJKY=`g __OlOlټkL羽NOMjj@ @ kj`g __OlOl_kO__OOOjjkje`g _$_"O$lO$l_kO_ _O O"Ojjkj$I@g h@ I`l_&jO&O& (341 \FZEROP 309 GETMOUSESTATE 297 \ITEMW.FLIPCOPY 289 BKSYSBUF.GENERAL 284 GETWINDOWUSERPROP 220 \KEYNAMETONUMBER 155 \KEYNAMETONUMBER 130 \ITEMW.FLIPCOPY 121 \ITEMW.FLIPCOPY 77 \KEYNAMETONUMBER 61 BLOCK 44 IN/ITEM? 38 CURSORPOSITION 29 TOTOPW 10 GETWINDOWUSERPROP) (315 LASTMOUSEBUTTONS 279 DATUM 215 COPY 210 \LASTKEYSTATE 150 RSHIFT 145 \LASTKEYSTATE 72 LSHIFT 67 \LASTKEYSTATE 5 SELECTABLEITEMS) () \ITEMW.FLIPCOPY :D8 (P 0 REG I 1 DS I 0 ITEM) #@`AHHHlg (32 BLTSHADE) (26 INVERT 9 GRAYSHADE) () BKSYSBUF.GENERALA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 *PRINT-RADIX* P 0 *PRINT-BASE* I 0 SI::*CLEANUP-FORMS* F 2 OBJECT) "iligRRhi h(30 BKSYSBUF) (16 \VAG2 5 PRXFLG) () BKSYSBUF.GENERAL :D8 (P 2 SI::*RESETFORMS* P 1 SEPR P 0 TYPE I 0 OBJECT) @ HgHgHdg@i gGgI g@ @b@o @ g h@3+g`hg $ (171 BKSYSBUF 161 SI::RESETUNWIND 156 \MVLIST 151 BKSYSBUF.GENERALA0001 118 BKSYSBUF 107 BKSYSBUF.GENERAL 100 BKSYSBUF 79 BKSYSBUF.GENERAL 65 BKSYSBUF 42 BKSYSBUF 5 TYPENAME) (146 SI::RESETUNWIND 135 PRXFLG 130 PRXFLG 113 %) 71 % 56 %( 48 LISTP 32 NEW-ATOM 23 LITATOM 14 STRINGP) ( 95 " . ") INSPECT :D8 (P 7 DTD P 6 IMACRO P 2 INSPECTINFO P 1 IWINDOW P 0 ITEMTYPE I 3 TAG I 2 WHERE I 1 ASTYPE I 0 ITEM) o@ AA@ABC D`M6hZ@Hdgf@hBC dE@JBC ^d"gN@kKoN HhNM]@JBClLg@BC Hdg@hBC g@BC Hdg@BC qg@BC `H@BC T`@lOj@BO!OC @hBC ` o` hYd Igi I(363 PUTWINDOWPROP 350 WINDOWP 341 PRIN1 325 TERPRI 312 INSPECT/DATATYPE 302 INSPECT/HUNK 259 INSPECT/TYPELESS 247 INSPECTCODE 230 INSPECT/BITMAP 209 INSPECT/HARRAYP 191 INSPECT/ARRAY 169 INSPECT/LISTP 124 ERROR 83 \APPLYINSPECTMACRO 64 INSPECT/ATOM 19 INSPECT/DATATYPE 5 TYPENAME) (357 INSPECTWINDOW 336 PROMPTWINDOW 320 PROMPTWINDOW 266 \DTDSpaceBase 237 CCODEP 219 BITMAP 199 HARRAYP 179 ARRAYP 159 LISTP 100 FUNCTION 51 LITATOM 27 INSPECTMACROS) ( 331 "Can't Inspect NIL." 118 "ERROR in INSPECTMACROS specification") \APPLYINSPECTMACRO :D8 (P 0 ARGS I 3 TAG I 2 WHERE I 1 ARGLST I 0 DATUM) >A@HHXHXHXHXHXHXHXHXBHHC  (58 EVAL 52 INSPECTW.CREATE) NIL () INSPECT/BITMAP :D8 (I 2 TAG I 1 WHERE I 0 BITMAP) ``=`dodg dgjdndhHdI  dg@gAB gg@h (126 EVAL.AS.PROCESS 103 INSPECT/DATATYPE 81 MENU) (117 EDITBM 109 CONTENTS 96 BITMAP 87 FIELDS 76 InspectBitmapMenu 47 DEFAULTMENUHELDFN 38 CLRPROMPT 22 |MENUTYPE#| 15 InspectBitmapMenu 9 MENU 4 InspectBitmapMenu) ( 29 ((fields (QUOTE FIELDS) "Inspects the fields of the bitmap") (contents (QUOTE CONTENTS) "Edits the contents of the bitmap."))) INSPECT/DATATYPE :D8 (P 6 I P 1 DEC P 0 SYSREC I 3 TAG I 2 WHERE I 1 TYPE I 0 DATUM)  AA Y)A@ Y@ Y߇ YiI@I`h goggggIhhhH:gogoggggIhoh*goggggIhohhdIgdoA@@ hdBhC `@lYh@I Ak^dJDKgoggggIhhhhohdddBhC L Mh\Nk԰M&@RAdg@ @BC @ -g@ @BC Ag@BC iD` o` @` ` o` h(523 PRIN1 507 TERPRI 496 PRIN1 484 PRIN1 468 TERPRI 454 INSPECT/TOP/LEVEL/LIST 437 INSPECT/PLIST 427 PROPLISTP 411 ALISTP 404 INSPECT/ALIST 395 ALISTP 354 INSPECTW.CREATE 279 LENGTH 255 INSPECTW.CREATE 244 CL:FORMAT 66 INSPECTABLEFIELDNAMES 42 SYSRECLOOK1 31 FINDSYSRECDECL 22 FINDRECDECL 10 RECLOOK) (518 PROMPTWINDOW 502 PROMPTWINDOW 491 PROMPTWINDOW 479 PROMPTWINDOW 463 PROMPTWINDOW 444 LIST 418 PLIST 385 ALIST 322 QUOTE 317 INSTANCE 312 FIELD 307 \INSPECT.DATATYPE.RAW.FETCH 297 LAMBDA 261 \DTDSpaceBase 224 BLOCKRECORD 198 QUOTE 193 INSTANCE 188 FIELD 183 RECORDACCESS 173 LAMBDA 152 QUOTE 147 INSTANCE 142 FIELD 137 RECORDACCESS 127 AND 117 LAMBDA 96 QUOTE 91 INSTANCE 86 FIELD 81 RECORDACCESS 71 LAMBDA 59 INSPECTALLFIELDSFLG) ( 513 "Can not inspect." 474 "No declaration for " 341 "System datatype: Cann't set any fields" 302 (FIELD INSTANCE) 233 "<~a @ ~o,~o>" 207 ((QUOTE /REPLACE) NEWVALUE) 178 (INSTANCE FIELD NEWVALUE) 161 ((QUOTE /REPLACE) NEWVALUE) 132 (CONFIRM-SET) 122 (INSTANCE FIELD NEWVALUE) 76 (INSTANCE FIELD)) INSPECTABLEFIELDNAMES :D8 (I 1 TOPONLYFLG I 0 DECL) <A.@i AHI\LdJ KhZYHXK&Z@ (57 REMOVEDUPS 52 RECORDFIELDNAMES 9 RECORDFIELDNAMES) NIL () REMOVEDUPS :D8 (I 0 LST) @d (6 INTERSECTION) NIL () INSPECT/ARRAY :D8 (P 3 I P 0 FIRSTELT I 3 TAG I 2 WHERE I 1 BEGINOFFSET I 0 ARRAY) @hA3@ @d @ H`عdIIkH2KdJLgghddddBhC M Nh]Kk[N&` @` o` h(144 PRIN1 128 PRIN1 116 TERPRI 85 INSPECTW.CREATE 31 ARRAYSIZE 25 ARRAYORIG 15 ARRAYORIG) (139 PROMPTWINDOW 123 PROMPTWINDOW 111 PROMPTWINDOW 71 /SETA 66 ELT 38 MAXINSPECTARRAYLEVEL) ( 134 " not an array") INSPECT/TOP/LEVEL/LIST :D8 (P 6 X P 2 I I 2 TAG I 1 WHERE I 0 LST) @*` @` o` hd`kCH^dJdIN1KNgLMh\JkԺNM&gh KgghddddAhB (141 INSPECTW.CREATE 114 \NCONC2 41 PRIN1 25 PRIN1 13 TERPRI) (127 SETNTHTOPLEVELELT 122 NTHTOPLEVELELT 107 && 78 |...| 49 MAXINSPECTCDRLEVEL 36 PROMPTWINDOW 20 PROMPTWINDOW 8 PROMPTWINDOW) ( 31 " not a LISTP") INSPECT/PROPLIST :D8 (P 0 PROPS I 3 TAG I 2 WHERE I 1 ALLPROPSFLG I 0 ATOM) QA@ @ H)@AgggghddddBhC Aoo h(77 PROMPTPRINT 58 INSPECTW.CREATE 14 NONSYSPROPNAMES 7 PROPNAMES) (44 /PUTPROP 39 GETPROP 34 NONSYSPROPNAMES 28 PROPNAMES) ( 72 "No non-system properties" 66 "No properties") NONSYSPROPNAMES :D8 (I 0 ATM) -@ 1HId`J KhZYHXK&Z(5 PROPNAMES) (21 SYSPROPS) () INSPECT/LISTP :D8 (I 2 TAG I 1 WHERE I 0 LST) @ g@ABlH(5 SELECT.LIST.INSPECTOR) (12 NILL) () ALISTP :D8 (L (0 LST)) @HihHXNIL NIL () PROPLISTP :D8 (P 0 LSTPTR I 0 LST) #@dHiHhd3@HHXNIL NIL () INSPECT/ALIST :D8 (I 2 TAG I 1 WHERE I 0 ALST) 5@0@dIHhZH&JgghddddAhB (50 INSPECTW.CREATE) (36 /ASSOCPUT 31 ASSOCGET) () ASSOCGET :D8 (I 1 KEY I 0 ALST) A@NIL NIL () /ASSOCPUT :D8 (I 2 VAL I 1 KEY I 0 ALST) AB@ (7 /PUTASSOC) NIL () INSPECT/PLIST :D8 (I 2 TAG I 1 WHERE I 0 PLST) 5@0@dIHhZH&JgghddddAhB (50 INSPECTW.CREATE) (36 /LISTPUT 31 LISTGET) () INSPECT/TYPERECORD :D8 (I 2 TAG I 1 WHERE I 0 X) @dAB (9 INSPECT) NIL () INSPECT/AS/RECORDA0003 :D8 (I 0 ITEM) o (9 PROMPTPRINT) NIL ( 4 "Will inspect the list as if it were an instance of this record type.") INSPECT/AS/RECORD :D8 (P 0 RECORD I 2 TAG I 1 WHERE I 0 INSTANCE) 0``AKDL dIdgdg jdndhdJ X @HAB _dgdgihOM Nh]K[N&(85 INSPECT 73 MENU 27 SORT) (104 RECORD 96 TYPERECORD 48 CLRPROMPT 39 INSPECT/AS/RECORDA0003 13 USERRECLST 7 |MENUTYPE#|) () SELECT.LIST.INSPECTOR :D8 (P 0 RECDEC I 0 LST) `o@ o@ o@ Hd.g%o@ oo@ hh IdJdi dg dgjdndhIdJ  (164 MENU 105 \APPEND2 100 \APPEND2 88 CONCAT 71 CONCAT 43 RECLOOK 29 PROPLISTP 16 ALISTP) (135 DEFAULTMENUHELDFN 126 CLRPROMPT 56 TYPERECORD 4 |MENUTYPE#|) ( 81 "Inspects the selected list as an instance of " 76 (QUOTE INSPECT/TYPERECORD) 64 "As a " 36 (("As a PLIST" (QUOTE INSPECT/PLIST) "Inspects the list as a property list.")) 22 (("As an ALIST" (QUOTE INSPECT/ALIST) "Inspects the list as a A-List")) 10 ((DisplayEdit (QUOTE DEDITE) "Edit it with the display editor") (TtyEdit (QUOTE STANDARDEDITE) "Edit it with the standard editor") (Inspect (QUOTE INSPECT/TOP/LEVEL/LIST) "Inspect the top level with an inspect window") ("As a record" (QUOTE INSPECT/AS/RECORD) "Prompts further for the record type of this LIST."))) STANDARDEDITEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 EXPR F 1 COMS F 2 IFCHANGEDFN F 3 ATM F 4 TYPE) PQSTR (10 EDITE) NIL () STANDARDEDITE :D8 (P 0 SI::*RESETFORMS* I 4 IFCHANGEDFN I 3 TYPE I 2 ATM I 1 COMS I 0 EXPR) 3gg hhhg $(44 SI::RESETUNWIND 39 \MVLIST 34 STANDARDEDITEA0001 14 EDITMODE) (29 SI::RESETUNWIND 9 STANDARD 4 EDITMODE) () NTHTOPLEVELELT :D8 (I 1 N I 0 LST) 1Adg@ g@`k @A (45 NTH 37 NTH 15 LAST) (30 MAXINSPECTCDRLEVEL 22 && 6 |...|) () SETNTHTOPLEVELELT :D8 (I 2 NEWVALUE I 1 N I 0 LST) IAdg@ B go @`k @A dB (70 /RPLACA 61 NTH 53 NTH 40 PROMPTPRINT 21 /RPLACD 15 LAST) (46 MAXINSPECTCDRLEVEL 27 && 6 |...|) ( 35 "Can't set the tail.") DEDITE :D8 (P 0 *EDITMODE* I 1 WHERE I 0 EXPR) g@hdddo (23 EDITE) (4 DISPLAY) ( 17 (:DONTWAIT :DISPLAY)) FINDRECDECL :D8 (P 1 DECL P 0 TYPENAME I 0 DATUM) # @d X Y @H I(29 TYPENAMEP 19 RECLOOK 13 TYPENAME) NIL () FINDSYSRECDECL :D8 (P 1 DECL P 0 TYPENAME I 0 DATUM) ! @ Xd Y @H I(27 TYPENAMEP 17 SYSRECLOOK1 8 TYPENAME) NIL () MAKE-INSPECTOR-PROFILE :D8 (P 0 P-NAME I 0 NAME) (@oHoooo (37 XCL:MAKE-PROFILE) NIL ( 31 (*PACKAGE* *PACKAGE*) 26 (*READTABLE* *READTABLE*) 21 (*PRINT-CASE* *PRINT-CASE*) 16 (XCL:*EVAL-FUNCTION* XCL:*EVAL-FUNCTION*) 7 "INSPECTOR PROFILE") CONFIRM-SET :D8 NIL o (9 MOUSECONFIRM) NIL ( 4 "This is a potentially dangerous operation.") INSPECT/ATOM :D8 (P 3 TYPETOINSPECT P 2 PROFILE P 1 OFFER-INSPECT-CODE? P 0 ASPECTS I 3 TAG I 2 WHERE I 1 ALWAYSASKFLG I 0 ATM) @hdg @ #@ gHH@ogH @ d3@gH XH*` @` o` hHo@ HHgg@AHI [ddg``9`dodg dgjdndhdL  dg#ggJhg@hh g6ggJhgg@hhgBhhh g@B ggJhgg@hgggKhhhh (460 EVAL.AS.PROCESS 395 INSPECTCODE 380 EVAL.AS.PROCESS 319 EVAL.AS.PROCESS 278 MENU 182 SELECT.ATOM.ASPECT 154 INSPECT 149 \EVALV1 133 PRIN1 117 PRIN1 105 TERPRI 90 REMOVE 74 \EVALV1 66 MEMB 32 NONSYSPROPNAMES 23 MAKE-INSPECTOR-PROFILE 18 CCODEP 12 TYPESOF) (439 :DISPLAY 434 :DONTWAIT 429 QUOTE 420 QUOTE 415 ED 406 QUOTE 401 XCL:WITH-PROFILE 386 :INSPECTCODE 362 QUOTE 352 QUOTE 347 INSPECT/PROPLIST 338 QUOTE 333 XCL:WITH-PROFILE 325 :INSPECT 306 EDITP 297 QUOTE 292 XCL:WITH-PROFILE 284 :EDITP 273 InspectPropsMenu 248 DEFAULTMENUHELDFN 239 CLRPROMPT 223 |MENUTYPE#| 216 InspectPropsMenu 210 MENU 205 InspectPropsMenu 194 PROPS 172 PROPS 165 PROPS 128 PROMPTWINDOW 112 PROMPTWINDOW 100 PROMPTWINDOW 84 VARS 60 VARS 38 PROPS 7 ?) ( 230 (("EDITP" :EDITP "Calls EDITP on the atom.") ("Inspect Props" :INSPECT "Inspects the property list with an inspect window.")) 141 (VARS) 123 " does not have any aspect to inspect." 54 (PROPS)) SELECT.ATOM.ASPECT :D8 (P 0 ASPECTS I 3 OFFER-INSPECT-CODE? I 2 ASPECTS I 1 ALWAYSASKFLG I 0 ATOM) }B@hdg 1HhAHd^`CoHHdIo@o dJdi dg dgjdndhdK (120 MENU 69 CONCAT 15 TYPESOF) (95 DEFAULTMENUHELDFN 86 CLRPROMPT 35 |MENUTYPE#| 10 ?) ( 64 "?" 58 "Which defn of " 43 ("Inspect Code" :INSPECTCODE "Shows the compiled code.")) INSPECT/AS/FUNCTION :D8 (P 7 CNT P 6 FN P 5 EDITORARGS P 4 PROC P 3 PROC P 2 CODEBASE P 1 FRAME P 0 EDITOR I 2 WINDOW I 1 STKP I 0 ATM) @ 1Hdg:A @ Yj@ kIZ@J hddkI Bd .Hg@oh@hL HjM"HM dnOk_hl4 ON(153 \LISPERROR 129 PROCESS.APPLY 86 \INSUREWINDOW 77 INSPECTCODE 63 MAKE-COMPILED-CLOSURE 47 \GET-COMPILED-CODE-BASE 33 INSPECTCODE 5 SELECT.FNS.EDITOR) (94 ED 19 INSPECTCODE) ( 102 (METHOD-FNS FUNCTIONS FNS :DONTWAIT :DISPLAY)) SELECT.FNS.EDITOR :D8 (I 0 FN) Z`@ oo HdIdi dg dgjdndhHdI  (87 MENU 28 \APPEND2 11 CCODEP) (58 DEFAULTMENUHELDFN 49 CLRPROMPT 4 |MENUTYPE#|) ( 23 (("Display Edit" (QUOTE ED) "Edit it with the display editor") ("Tty Edit" (QUOTE EF) "Edit it with the standard editor")) 18 (("Inspect Code" (QUOTE INSPECTCODE) "Shows the compiled code."))) INSPECTCODE :D8 (P 0 WINDOW I 5 CODEPRINTER I 4 PC I 3 RADIX I 2 LVFLG I 1 WHERE I 0 FN) g @ABCDE @ o@ Ann@@o Hg@ Hgg Hgg Hgg Hg H (150 \INSPECT/CODE/RESHAPEFN 144 PUTWINDOWPROP 139 MAKE-INSPECTOR-PROFILE 128 PUTWINDOWPROP 112 PUTWINDOWPROP 96 PUTWINDOWPROP 80 PUTWINDOWPROP 65 DECODE.WINDOW.ARG 60 CONCAT 41 ERROR 29 CCODEP 22 \TEDIT.INSPECTCODE 9 \DEFINEDP) (134 PROFILE 123 SCROLLBYREPAINTFN 118 SCROLLFN 107 \INSPECT/CODE/RESHAPEFN 102 RESHAPEFN 91 \INSPECT/CODE/REPAINTFN 86 REPAINTFN 74 DATUM 4 OPENTEXTSTREAM) ( 55 " Code Window" 35 "Not a compiled function") \TEDIT.INSPECTCODE :D8 (P 2 SEL P 1 WINDOW P 0 STREAM I 5 CODEPRINTER I 4 PC I 3 RADIX I 2 LVFLG I 1 WHERE I 0 FN F 5 DEFAULTFONT) gg AEg@BCHhDlKHAnn@d3@@ o@Doo@ YhdgigggUh XD1dok Z"HJldټkLLkjg H g Igg @(216 PUTWINDOWPROP 199 DEFINEDP 188 TEDIT.NORMALIZECARET 181 TEDIT.SETSEL 154 TEDIT.FIND 138 OPENTEXTSTREAM 100 DECODE.WINDOW.ARG 95 CONCAT 58 CCODEP 14 OPENSTREAM) (211 TEXTICON 206 ICONFN 194 TEXTICON 176 LEFT 124 FONT 119 DON'T 114 PROMPTWINDOW 108 READONLY 86 COMPILED-CLOSURE 25 PRINTCODE 9 BOTH 4 {NODIRCORE}) ( 148 "----------" 80 "CCODEP named " 74 "Code for frame " 64 "Code for ") \INSPECT/CODE/RESHAPEFN :D8 (P 2 BOTTOM P 1 WHEIGHT P 0 FONT I 2 OLDREGION I 1 OLDIMAGE I 0 WIN) v@ 0 !@gj@g YHk @ @gjh@ HZ@g IJh h(114 PUTWINDOWPROP 101 GETWINDOWPROP 80 DSPYPOSITION 66 \INSPECT/CODE/REPAINTFN 60 PUTWINDOWPROP 42 GETWINDOWPROP 5 \INSUREWINDOW) (96 WIDTH 86 FONTDESCRIPTOR 72 EXTENT 49 FONTDESCRIPTOR 37 HEIGHT 30 REGIONUPPERLEFT 19 \DISPLAYDATA 12 STREAM) () \INSPECT/CODE/REPAINTFNA0001 :D8 (P 2 UPPERLEFT P 1 *PRINT-LENGTH* P 0 *PRINT-LEVEL* F 3 WIN) >``Sg JJS Sg hlS h(58 PRINTCODE 49 GETWINDOWUSERPROP 38 MOVETO 25 GETWINDOWUSERPROP) (44 DATUM 20 REGIONUPPERLEFT 10 INSPECTPRINTLEVEL 4 INSPECTPRINTLEVEL) () \INSPECT/CODE/REPAINTFN :D8 (P 0 XCL:*PROFILE* I 0 WIN) -@g H Xd H g (42 \DO.PROGV 32 XCL::PROFILE-VALUES 26 XCL::PROFILE-VARIABLES 19 XCL::PROFILIZE 10 GETWINDOWUSERPROP) (37 \INSPECT/CODE/REPAINTFNA0001 5 PROFILE) () INSPECT/HARRAYP :D8 (P 0 PROPS I 2 TAG I 1 WHERE I 0 HARRAY) 8@ H!@ggghddddAhB o h(52 PROMPTPRINT 41 INSPECTW.CREATE 5 HARRAYKEYS) (27 INSPECTW.PUTHASH 22 INSPECTW.GETHASH 17 HARRAYKEYS) ( 47 "No keys in that Hash array.") HARRAYKEYSA0001 :D8 (L (1 HASHITEM 0 HASHEDVALUE) F 0 ITEMLST) APcNIL NIL () HARRAYKEYS :D8 (P 0 ITEMLST I 0 HARRAY) @g H(13 MAPHASH) (8 HARRAYKEYSA0001) () INSPECTW.GETHASH :D8 (L (1 ITEM 0 HARRAY)) A@ (6 GETHASH) NIL () INSPECTW.PUTHASH :D8 (I 2 VALUE I 1 ITEM I 0 HARRAY) AB@ (7 /PUTHASH) NIL () RDTBL\NONOTHERCODESA0001 :D8 (I 1 KEY I 0 VAL F 0 RESULT F 1 RT) AQ gAPch(6 GETSYNTAX) (11 OTHER) () RDTBL\NONOTHERCODES :D8 (P 0 RESULT I 0 RT F 1 *READTABLE*) ;g@@diQi  oH (56 \APPEND2 51 SORT 40 \MAPCHARTABLE 28 \GTREADTABLE1) (33 READTABLEP 21 READTABLEP 7 RDTBL\NONOTHERCODESA0001) ( 45 (CASEINSENSITIVE COMMONLISP COMMONNUMSYNTAX DISPATCHMACRODEFS ESCAPECHAR ESCAPEFLG HASHMACROCHAR MULTESCAPECHAR NUMBERBASE PACKAGECHAR READMACRODEFS READMACROFLG READSA READTBLNAME USESILPACKAGE)) GETSYNTAXPROP :D8 (I 1 CH/FIELD I 0 RDTBL) 3Adg@dg@g@jhAdg@jhg@ jhAdg@g@0jhAdg@jhg@jhAdg@g@Adg@g@Adg@g@ A@ (304 GETSYNTAX) (294 READTABLEP 286 READTBLNAME 277 READTABLEP 268 PACKAGECHAR 257 READTABLEP 249 MULTESCAPECHAR 240 READTABLEP 231 ESCAPECHAR 220 READTABLEP 212 HASHMACROCHAR 204 READTABLEP 195 DISPATCHMACRODEFS 180 READTABLEP 172 USESILPACKAGE 159 READTABLEP 150 COMMONNUMSYNTAX 135 READTABLEP 127 CASEINSENSITIVE 118 READTABLEP 109 NUMBERBASE 94 READTABLEP 86 COMMONLISP 73 READTABLEP 64 ESCAPEFLG 49 READTABLEP 41 READMACROFLG 33 READTABLEP 24 READMACRODEFS 15 READTABLEP 6 READSA) () SETSYNTAXPROP :D8 (I 2 VALUE I 1 CH/FIELD I 0 RDTBL) Adg@BBdg@BBg@BkjHIIjhAdg@BkjHIIjhg@BkjHI IjhAdg@BBg@BkjHI0IjhAdg@BkjHIIjhg@BkjHIIjhAdg@BBg@BBAdg@BBg@BBAdg@BBg@B BAB@ (407 SETSYNTAX) (394 READTABLEP 386 READTBLNAME 375 READTABLEP 366 PACKAGECHAR 353 READTABLEP 345 MULTESCAPECHAR 334 READTABLEP 325 ESCAPECHAR 312 READTABLEP 304 HASHMACROCHAR 294 READTABLEP 285 DISPATCHMACRODEFS 257 READTABLEP 248 USESILPACKAGE 222 READTABLEP 212 COMMONNUMSYNTAX 184 READTABLEP 175 CASEINSENSITIVE 164 READTABLEP 155 NUMBERBASE 127 READTABLEP 118 COMMONLISP 92 READTABLEP 82 ESCAPEFLG 54 READTABLEP 45 READMACROFLG 35 READTABLEP 26 READMACRODEFS 15 READTABLEP 6 READSA) () GETTTBLPROP :D8 (I 1 PROP I 0 TTBL) Ad3h@ g/Adg&dgdgdgdgA@ gAdgdgdgAh@ ggh@ Adgg@ gg@ Adg@ g@ (212 GETECHOMODE 197 GETRAISE 180 GETCONTROL 160 GETDELETECONTROL 137 DELETECONTROL 117 DELETECONTROL 72 GETSYNTAX 11 ECHOCONTROL) (203 ECHOMODE 188 RAISE 172 CONTROL 165 ECHO 154 ECHO 145 ECHODELS? 130 LINEDELETE 123 LINEDELETESTR 106 EMPTYCHDEL 98 POSTCHDEL 89 NTHCHDEL 79 1STCHDEL 62 EOL 54 CTRLV 45 RETYPE 36 LINEDELETE 27 WORDDELETE 17 CHARDELETE) () SETTTBLPROP :D8 (I 2 NEWVALUE I 1 PROP I 0 TTBL) Ad3B@ g/Ag&AgAgAgAdgBA@ gAdgdgdgAB@ ggB@ AdgBggh@ gB@ AdgB@ g B@ (218 ECHOMODE 202 RAISE 184 CONTROL 169 DELETECONTROL 137 DELETECONTROL 117 DELETECONTROL 73 SETSYNTAX 11 ECHOCONTROL) (208 ECHOMODE 192 RAISE 175 CONTROL 162 NOECHO 156 ECHO 145 ECHODELS? 130 LINEDELETE 123 LINEDELETESTR 106 EMPTYCHDEL 98 POSTCHDEL 89 NTHCHDEL 79 1STCHDEL 62 EOL 53 CTRLV 44 RETYPE 35 LINEDELETE 26 WORDDELETE 17 CHARDELETE) () INSPECT/AS/BLOCKRECORDA0002 :D8 (I 0 ITEM) o@ (10 PROMPTPRINT) NIL ( 4 "Will inspect the list as if it were a ") INSPECT/AS/BLOCKRECORD :D8 (P 0 RECNAME I 3 TAG I 2 CHOICES I 1 WHERE I 0 INSTANCE) u B0b'` o` @` `dBdgdg jdndhdI X @HAC (114 INSPECT 102 MENU 50 PRIN1 39 PRIN1 24 TERPRI 10 LIST-ALL-BLOCKRECORDS) (77 CLRPROMPT 68 INSPECT/AS/BLOCKRECORDA0002 56 |MENUTYPE#| 45 PROMPTWINDOW 34 PROMPTWINDOW 19 PROMPTWINDOW) ( 29 "Can't Inspect ") INSPECT/TYPELESS :D8 (P 1 TRLR P 0 HDR I 2 TAG I 1 WHERE I 0 ITEM) l0@djZl.@Q@mX EH nU;Hj3HdkZJY !I nU@AHHlB @AhB (105 INSPECT/AS/BLOCKRECORD 95 INSPECT/HUNK 63 \VALIDADDRESSP 27 \VALIDADDRESSP) NIL () LIST-ALL-BLOCKRECORDS :D8 NIL /`1HIdgJ KhZYHXK&ZNIL (21 BLOCKRECORD 4 USERRECLST) () INSPECT/HUNK :D8 (P 5 I P 1 BLOCKRECS P 0 ELTSPEC I 4 TAG I 3 SIZE I 2 GCTYPE I 1 WHERE I 0 DATUM) @Bdl@ A kGo@CHkd``j2MdLNHHhddddAhD h`Yo``dJdi dg dgjdndhdK Xdge@AID _OOh_Mk]dO&_(199 INSPECT/AS/BLOCKRECORD 176 MENU 106 LIST-ALL-BLOCKRECORDS 93 INSPECTW.CREATE 21 INSPECTCODE 15 INSPECT/MAKE/CCODEP) (185 BLOCKRECORD 151 DEFAULTMENUHELDFN 142 CLRPROMPT 125 INSPECT.HUNK.COMMANDS 118 INSPECT.HUNK.COMMANDS 100 |MENUTYPE#| 57 MAXINSPECTARRAYLEVEL 49 MAXINSPECTARRAYLEVEL) ( 113 ("As BLOCKRECORD" (QUOTE BLOCKRECORD)) 31 (32 \INSPECT.FETCH.PTR \INSPECT.STORE.PTR)) \INSPECT.DATATYPE.RAW.FETCH :D8 (I 2 DESCRS I 1 FIELD I 0 INSTANCE) BA @ (13 FETCHFIELD 6 NTH) NIL () \INSPECT.FETCH.8 :D8 (I 1 FIELD I 0 INSTANCE) @ANIL NIL () \INSPECT.FETCH.32 :D8 (L (1 FIELD 0 INSTANCE)) @A (7 \GETBASEFIXP) NIL () \INSPECT.FETCH.CHAR :D8 (I 1 FIELD I 0 INSTANCE) @A (7 CHARACTER) NIL () \INSPECT.FETCH.FATCHAR :D8 (I 1 FIELD I 0 INSTANCE) @A (9 CHARACTER) NIL () \INSPECT.FETCH.PTR :D8 (L (1 FIELD 0 INSTANCE)) @ANIL NIL () \INSPECT.STORE.8 :D8 (I 2 NEWVALUE I 1 FIELD I 0 INSTANCE) !g@A@Ah @AB(26 UNDOSAVE 4 CONFIRM-SET) (11 \INSPECT.STORE.8) () \INSPECT.STORE.16 :D8 (I 2 NEWVALUE I 1 FIELD I 0 INSTANCE) &g@A@Ah @ABB(28 UNDOSAVE 4 CONFIRM-SET) (11 \INSPECT.STORE.16) () \INSPECT.STORE.32 :D8 (I 2 NEWVALUE I 1 FIELD I 0 INSTANCE) *#g@A@A h @AB (39 \PUTBASEFIXP 30 UNDOSAVE 20 \INSPECT.FETCH.32 4 CONFIRM-SET) (11 \INSPECT.STORE.32) () \INSPECT.STORE.CHAR :D8 (I 2 NEWVALUE I 1 FIELD I 0 INSTANCE) &g@A@Ah @AB (34 CHARCODE.DECODE 26 UNDOSAVE 4 CONFIRM-SET) (11 \INSPECT.STORE.8) () \INSPECT.STORE.FATCHAR :D8 (I 2 NEWVALUE I 1 FIELD I 0 INSTANCE) 1*g@A@Ah @AB HIJJ(36 CHARCODE.DECODE 28 UNDOSAVE 4 CONFIRM-SET) (11 \INSPECT.STORE.16) () \INSPECT.STORE.PTR :D8 (I 2 NEWVALUE I 1 FIELD I 0 INSTANCE) ' g@A@Ah @ABB(28 UNDOSAVE 4 CONFIRM-SET) (11 \INSPECT.STORE.PTR) () INSPECT/MAKE/CCODEP :D8 (I 0 CODE) @ (5 MAKE-COMPILED-CLOSURE) NIL () (PRETTYCOMPRINT INSPECTCOMS) (RPAQQ INSPECTCOMS ((COMS (* ;; "functions to implement an item window. An ITEM window is a window that contains SELECTABLEITEMS. An item from the window is selected using the left button. The middle button will then bring up a menu of commands that can be applyed to the selected item. An INSPECTW is a special type of ITEMW that maintains properties and their values for a datum. It is used by the inspector." ) (FNS INSPECTW.CREATE INSPECTW.REPAINTFN INSPECTW.REDISPLAY \INSPECTW.VALUE.MARGIN INSPECTW.REPLACE INSPECTW.SELECTITEM \INSPECTW.REDISPLAYPROP INSPECTW.FETCH INSPECTW.PROPERTIES DECODE.WINDOW.ARG DEFAULT.INSPECTW.PROPCOMMANDFN DEFAULT.INSPECTW.VALUECOMMANDFN DEFAULT.INSPECTW.TITLECOMMANDFN \SELITEM.FROM.PROPERTY \INSPECT.COMPUTE.TITLE LEVELEDFORM MAKEWITHINREGION) (FNS ITEMW.REPAINTFN \ITEM.WINDOW.BUTTON.HANDLER \ITEM.WINDOW.SELECTION.HANDLER \INSPECTW.COMMAND.HANDLER ITEM.WINDOW.SET.STACK.ARG REPLACESTKARG IN/ITEM? \ITEMW.DESELECTITEM \ITEMW.SELECTITEM \ITEMW.CLEARSELECTION \ITEMW.FLIPITEM PRINTANDBOX PRINTATBOX ITEMOFPROPERTYVALUE) (FNS \ITEM.WINDOW.COPY.HANDLER \ITEMW.FLIPCOPY BKSYSBUF.GENERAL) (RECORDS SELECTABLEITEM) (VARS ( MAXINSPECTARRAYLEVEL 300) (MAXINSPECTCDRLEVEL 50) MinSpaceBetweenProperyAndValue MaxInspectorPropertyValueWidth MaxValueLeftMargin PropertyLeftMargin)) (COMS (* ; "functions for the inspector") (FNS INSPECT \APPLYINSPECTMACRO INSPECT/BITMAP INSPECT/DATATYPE INSPECTABLEFIELDNAMES REMOVEDUPS INSPECT/ARRAY INSPECT/TOP/LEVEL/LIST INSPECT/PROPLIST NONSYSPROPNAMES INSPECT/LISTP ALISTP PROPLISTP INSPECT/ALIST ASSOCGET /ASSOCPUT INSPECT/PLIST INSPECT/TYPERECORD INSPECT/AS/RECORD SELECT.LIST.INSPECTOR STANDARDEDITE NTHTOPLEVELELT SETNTHTOPLEVELELT DEDITE FINDRECDECL FINDSYSRECDECL MAKE-INSPECTOR-PROFILE CONFIRM-SET) (GLOBALVARS INSPECTMACROS INSPECTALLFIELDSFLG SetPropertyMenu SetStackMenu InspectMenu PropertyLeftMargin MaxValueLeftMargin INSPECTPRINTLEVEL InspectBitmapMenu ItemWCommandMenu InspectPropsMenu MAXINSPECTARRAYLEVEL MAXINSPECTCDRLEVEL MaxInspectorWindowWidth MaxInspectorWindowHeight INSPECT.HUNK.COMMANDS USERRECLST SYSPROPS IT MinSpaceBetweenProperyAndValue MaxInspectorPropertyValueWidth) (INITVARS ( INSPECTALLFIELDSFLG T) (MaxInspectorWindowWidth 330) (MaxInspectorWindowHeight 606)) (VARS INSPECTPRINTLEVEL) (* ;; "To deal with profiles in spawned processes") (MACROS EVAL.AS.PROCESS.WITH.PROFILE WITH-INSPECTOR-ENV)) (COMS (* ; "Atom inspector") (FNS INSPECT/ATOM SELECT.ATOM.ASPECT INSPECT/AS/FUNCTION SELECT.FNS.EDITOR)) (COMS (* ; "Compiled code inspector") (FNS INSPECTCODE \TEDIT.INSPECTCODE \INSPECT/CODE/RESHAPEFN \INSPECT/CODE/REPAINTFN)) (COMS (* ; "Hash table inspector") (FNS INSPECT/HARRAYP HARRAYKEYS INSPECTW.GETHASH INSPECTW.PUTHASH)) (COMS (* ; "Readtable, termtable inspectors") (FNS RDTBL\NONOTHERCODES GETSYNTAXPROP SETSYNTAXPROP GETTTBLPROP SETTTBLPROP) (ADDVARS (INSPECTMACROS (READTABLEP RDTBL\NONOTHERCODES GETSYNTAXPROP SETSYNTAXPROP) ( TERMTABLEP (CHARDELETE WORDDELETE LINEDELETE RETYPE CTRLV EOL RAISE ECHOMODE LINEDELETESTR 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL ECHODELS? CONTROL 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) GETTTBLPROP SETTTBLPROP)))) (COMS (* ; "Hunk inspector") (FNS INSPECT/AS/BLOCKRECORD INSPECT/TYPELESS LIST-ALL-BLOCKRECORDS INSPECT/HUNK \INSPECT.DATATYPE.RAW.FETCH \INSPECT.FETCH.8 \INSPECT.FETCH.32 \INSPECT.FETCH.CHAR \INSPECT.FETCH.FATCHAR \INSPECT.FETCH.PTR \INSPECT.STORE.8 \INSPECT.STORE.16 \INSPECT.STORE.32 \INSPECT.STORE.CHAR \INSPECT.STORE.FATCHAR \INSPECT.STORE.PTR INSPECT/MAKE/CCODEP) (INITVARS (INSPECT.HUNK.COMMANDS (QUOTE (("As 8-bit array" ( QUOTE (8 \GETBASEBYTE \INSPECT.STORE.8))) ("As 16-bit array" (QUOTE (16 \GETBASE \INSPECT.STORE.16))) ("As 32-bit array" (QUOTE (32 \INSPECT.FETCH.32 \INSPECT.STORE.32))) ("As Character array" (QUOTE (8 \INSPECT.FETCH.CHAR \INSPECT.STORE.CHAR))) ("As Fat Character array" (QUOTE (16 \INSPECT.FETCH.FATCHAR \INSPECT.STORE.FATCHAR)))))))))) (RECORD SELECTABLEITEM (SELECTABLEITEMREGION COMMANDFN ITEMINFO ITEMINFOTYPE)) (RPAQQ MAXINSPECTARRAYLEVEL 300) (RPAQQ MAXINSPECTCDRLEVEL 50) (RPAQQ MinSpaceBetweenProperyAndValue 8) (RPAQQ MaxInspectorPropertyValueWidth 250) (RPAQQ MaxValueLeftMargin 250) (RPAQQ PropertyLeftMargin 2) (RPAQ? INSPECTALLFIELDSFLG T) (RPAQ? MaxInspectorWindowWidth 330) (RPAQ? MaxInspectorWindowHeight 606) (RPAQQ INSPECTPRINTLEVEL (2 . 5)) (PUTPROPS EVAL.AS.PROCESS.WITH.PROFILE MACRO (ARGS (LET ((PROFILE (CAR ARGS)) (FORM (CADR ARGS))) ( BQUOTE (EVAL.AS.PROCESS (LIST (QUOTE XCL:WITH-PROFILE) (LIST (QUOTE QUOTE) (\, PROFILE)) (\, FORM))))) )) (PUTPROPS WITH-INSPECTOR-ENV MACRO (ARGS (LET ((PROFILE (CAR ARGS)) (FORMS (CDR ARGS))) (BQUOTE ( XCL:WITH-PROFILE (\, PROFILE) (LET ((*PRINT-LEVEL* (CAR INSPECTPRINTLEVEL)) (*PRINT-LENGTH* (CDR INSPECTPRINTLEVEL))) (\,@ FORMS))))))) (ADDTOVAR INSPECTMACROS (READTABLEP RDTBL\NONOTHERCODES GETSYNTAXPROP SETSYNTAXPROP) (TERMTABLEP ( CHARDELETE WORDDELETE LINEDELETE RETYPE CTRLV EOL RAISE ECHOMODE LINEDELETESTR 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL ECHODELS? CONTROL 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) GETTTBLPROP SETTTBLPROP)) (RPAQ? INSPECT.HUNK.COMMANDS (QUOTE (("As 8-bit array" (QUOTE (8 \GETBASEBYTE \INSPECT.STORE.8))) ( "As 16-bit array" (QUOTE (16 \GETBASE \INSPECT.STORE.16))) ("As 32-bit array" (QUOTE (32 \INSPECT.FETCH.32 \INSPECT.STORE.32))) ("As Character array" (QUOTE (8 \INSPECT.FETCH.CHAR \INSPECT.STORE.CHAR))) ("As Fat Character array" (QUOTE (16 \INSPECT.FETCH.FATCHAR \INSPECT.STORE.FATCHAR)))))) (PUTPROPS INSPECT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1991 1993 1995 1999 2018 2021)) NIL