(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "25-Jan-98 12:20:10" ("compiled on " |{DSK}sources>DEBUGEDIT.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED "16-May-90 15:24:15" |{DSK}local>lde>lispcore>sources>DEBUGEDIT.;2| 4300 |changes| |to:| (VARS DEBUGEDITCOMS) |previous| |date:| "12-Jan-88 18:16:06" |{DSK}local>lde>lispcore>sources>DEBUGEDIT.;1|) (RPAQQ DEBUGEDITCOMS ((COMMANDS "EDIT") (FUNCTIONS EDIT-IN-FNS EDIT-IN-FUNCTION FIND-EDIT-LOCATION FIND-EDIT-LOCATION-TAIL) (PROP FILETYPE DEBUGEDIT))) |break-EDITA0001| :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 SI::*RESETFORMS* F 5 LASTPOS F 6 BRKVALUES) «jU 1gHhhdTcH¥oH Zd3@ð²oJgð©Jdgð™¿kH °Q ²IJgho [˜JKI ®Jd I ²gH jH Jhc JJI¹mÿHd X±ÿu(165 STKNTH 142 STKNTH 135 STKARGS 122 EDIT-IN-FNS 116 GETD 108 EDIT-IN-FUNCTION 98 GETDEF 79 EXPRP 72 STKARG 40 STKNAME 6 STKNTH) (129 :REVERT 87 FUNCTIONS 62 CL:EVAL 53 EVAL 14 RELSTK) ( 93 (EDIT NOERROR NOCOPY) 33 "Can't") |break-EDIT| :D8 (L (1 $$MACRO-ENV 0 $$MACRO-FORM) P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \\MVLIST 13 |break-EDITA0001|) (8 SI::RESETUNWIND) () (SET-DOCUMENTATION "EDIT" (QUOTE COMMANDS) "Edit call to function at LASTPOS") (PUTHASH "EDIT" (QUOTE (NIL |break-EDIT| :EVAL)) *DEBUGGER-COMMAND-TABLE*) EDIT-IN-FNS :D8 (L (2 SEEN 1 DEF 0 NAME)) >AB @ggAH´ggHhhho @µi(55 EDITDEF 6 FIND-EDIT-LOCATION) (35 F= 30 ORR 20 = 15 FNS) ( 49 (TTY\:)) EDIT-IN-FUNCTION :D8 (L (2 SEEN 1 DEF 0 NAME)) >AB @ggAH´ggHhhho @µi(55 EDITDEF 6 FIND-EDIT-LOCATION) (35 F= 30 ORR 20 = 15 FUNCTIONS) ( 49 (TTY\:)) FIND-EDIT-LOCATION :D8 (L (1 SEEN 0 DEFINITION) P 0 *REMOVE-INTERLISP-COMMENTS* F 3 *REMOVE-INTERLISP-COMMENTS*) 1SiðA I¡hId£Y°ö´ @Ih Z²åJ³áJ(37 FIND-EDIT-LOCATION-TAIL 8 REVERSE) NIL () (SET-DOCUMENTATION (QUOTE FIND-EDIT-LOCATION) (QUOTE CL:FUNCTION) "return edit location in DEFINITION of lowest caller in SEEN found") FIND-EDIT-LOCATION-TAIL :D8 (L (2 OTHERS 1 EXPRESSION 0 X)) 9@µBgð•@b°îA@ ô“@B@A@AB b¿b¿b°Ë(45 FIND-EDIT-LOCATION-TAIL 27 REMOVE-COMMENTS) (12 *) () (PUTPROPS DEBUGEDIT FILETYPE CL:COMPILE-FILE) (PUTPROPS DEBUGEDIT COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990)) NIL