(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED "25-Jan-98 11:20:57" ("compiled on " IL:|{DSK}sources>CMLSTEP.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED "16-May-90 14:44:40" IL:|{DSK}local>lde>lispcore>sources>CMLSTEP.;2| 7485 IL:|changes| IL:|to:| (IL:VARS IL:CMLSTEPCOMS) IL:|previous| IL:|date:| "10-Dec-87 15:11:29" IL:|{DSK}local>lde>lispcore>sources>CMLSTEP.;1|) (IL:RPAQQ IL:CMLSTEPCOMS ((IL:* IL:|;;;| "CMLSTEP -- Single Stepper STEP") (IL:FUNCTIONS STEP) ( IL:FUNCTIONS STEP-COMMAND STEP-EVAL STEP-FORM STOP-STEPPING STEP-PRINT STEP-PRINT-VALUES) (IL:VARIABLES *STEP-IO* *STEP-INDENTATION-INCREMENT* *STEP-INDENTATION-LEVEL* *STEP-PRINT-LEVEL* *STEP-STATE* *STEP-MAX-INDENTATION* *STEP-PRINT-LENGTH*) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:CMLSTEP) (IL:FUNCTIONS STEP-SLEEP) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA) (IL:NLAML) (IL:LAMA))))) |expand-STEP| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @goHhNIL (10 LET) ( 15 ((*EVALHOOK* (FUNCTION STEP-COMMAND)) (*STEP-STATE* T) (*STEP-INDENTATION-LEVEL* 0) (*STEP-IO* *QUERY-IO*))) (IL:SETF-MACRO-FUNCTION (QUOTE STEP) (QUOTE |expand-STEP|)) (IL:SET-DOCUMENTATION (QUOTE STEP) (QUOTE FUNCTION) "Evaluate FORM interactively") STEP-COMMAND :D8 (IL:L (1 ENVIRONMENT 0 FORM) IL:F 1 *STEP-STATE*) Q @A i@ddQg hA @d3@@d @ @A Hh H hdoo Hdg@A g@A Hdg@A g.g@gAggg@ )HgoHo (248 IL:ECASE-FAIL 231 IL:ERROR! 212 XCL:DEBUGGER 206 XCL:MAKE-CONDITION 164 EVAL 157 STOP-STEPPING 141 STEP-EVAL 126 STEP-FORM 106 IL:ASKUSER 89 STEP-PRINT 82 STEP-PRINT-VALUES 71 EVAL 64 STEP-PRINT 55 CONSTANTP 41 EVALHOOK 34 SYMBOL-FUNCTION 9 EVAL) (223 IL:^ 200 :FUNCTION 195 SI::BREAKPOINT 190 :CONDITION 184 :ENVIRONMENT 178 :FORM 170 IL:D 149 IL:F 132 IL:N 116 IL:\ 29 STEP-COMMAND) ( 243 (IL:\ IL:N IL:F IL:D IL:^) 237 (IL:ASKUSER NIL NIL ": " (QUOTE ((IL:\ "Step" IL:EXPLAINSTRING " -- Step") (IL:N "ext" IL:EXPAINSTRING "Next - Evaluate this expression without stepping") (IL:F "inish" IL:EXPAINSTRING "Finish - complete evaluation without the stepper") (IL:D "ebugger") (IL:^ " abort")))) 101 ((IL:\ "Step" IL:EXPLAINSTRING " -- Step") (IL:N "ext" IL:EXPAINSTRING "Next - Evaluate this expression without stepping") (IL:F "inish" IL:EXPAINSTRING "Finish - complete evaluation without the stepper") (IL:D "ebugger") (IL:^ " abort")) 96 ": ") (IL:SET-DOCUMENTATION (QUOTE STEP-COMMAND) (QUOTE FUNCTION) "This is the *EVALHOOK* when stepping. It prints the form, and then reads a command. The commands are single characters from the terminal. If the stepper has subsequently been turned off, do the equivalent of the s command without printing." ) STEP-EVAL :D8 (IL:L (1 ENVIRONMENT 0 FORM)) @A H H$(20 STEP-PRINT-VALUES 11 IL:\\MVLIST 6 EVAL) NIL () (IL:SET-DOCUMENTATION (QUOTE STEP-EVAL) (QUOTE FUNCTION) "Evaluate this form (without stepping) and print values") STEP-FORM :D8 (IL:L (1 ENVIRONMENT 0 FORM) IL:P 0 *STEP-INDENTATION-LEVEL* IL:F 2 *STEP-INDENTATION-INCREMENT* IL:F 3 *STEP-INDENTATION-LEVEL*) -RS@g hA I I$(38 STEP-PRINT-VALUES 28 IL:\\MVLIST 23 EVALHOOK 16 SYMBOL-FUNCTION) (11 STEP-COMMAND) () (IL:SET-DOCUMENTATION (QUOTE STEP-FORM) (QUOTE FUNCTION) "Evaluate this form by stepping and print values.") STOP-STEPPING :D8 (IL:F 0 *STEP-STATE* IL:F 1 *EVALHOOK*) hcdcNIL NIL () STEP-PRINT :D8 (IL:L (0 FORM) IL:P 1 *PRINT-LENGTH* IL:P 0 *PRINT-LEVEL* IL:F 2 *STEP-INDENTATION-LEVEL* IL:F 3 *STEP-PRINT-LEVEL* IL:F 4 *STEP-PRINT-LENGTH* IL:F 5 *STEP-IO* IL:F 6 *STEP-MAX-INDENTATION*) STUoVdRR@ (23 FORMAT) NIL ( 10 "~&~vT~S ") (IL:SET-DOCUMENTATION (QUOTE STEP-PRINT) (QUOTE FUNCTION) "Print form according to the current indentation level, and according to *STEP-PRINT-LEVEL* and *STEP-PRINT-LENGTH*" ) STEP-PRINT-VALUES :D8 (IL:L (0 VALUE-LIST) IL:P 1 *PRINT-LENGTH* IL:P 0 *PRINT-LEVEL* IL:F 4 *STEP-IO* IL:F 5 *STEP-INDENTATION-LEVEL* IL:F 6 *STEP-PRINT-LEVEL* IL:F 7 *STEP-PRINT-LENGTH* IL:F 8 *STEP-MAX-INDENTATION*) 0@VW"@Z T ToWdUUK J(41 FORMAT 18 TERPRI) NIL ( 27 "~&~vT= ~S ") (IL:SET-DOCUMENTATION (QUOTE STEP-PRINT-VALUES) (QUOTE FUNCTION) "PRINT-VALUES is called to print a list of values which were returned from an evaluation.") (PROCLAIM (QUOTE (SPECIAL *STEP-IO*))) (OR (BOUNDP (QUOTE *STEP-IO*)) (SETQ *STEP-IO* NIL)) (IL:SET-DOCUMENTATION (QUOTE *STEP-IO*) (QUOTE VARIABLE) "Stream to which step I/O is done, bound by CL:STEP.") (PROCLAIM (QUOTE (SPECIAL *STEP-INDENTATION-INCREMENT*))) (OR (BOUNDP (QUOTE *STEP-INDENTATION-INCREMENT*)) (SETQ *STEP-INDENTATION-INCREMENT* 2)) (IL:SET-DOCUMENTATION (QUOTE *STEP-INDENTATION-INCREMENT*) (QUOTE VARIABLE) "Number of spaces to increase indenting.") (PROCLAIM (QUOTE (SPECIAL *STEP-INDENTATION-LEVEL*))) (OR (BOUNDP (QUOTE *STEP-INDENTATION-LEVEL*)) (SETQ *STEP-INDENTATION-LEVEL* 0)) (PROCLAIM (QUOTE (SPECIAL *STEP-PRINT-LEVEL*))) (OR (BOUNDP (QUOTE *STEP-PRINT-LEVEL*)) (SETQ *STEP-PRINT-LEVEL* 2)) (IL:SET-DOCUMENTATION (QUOTE *STEP-PRINT-LEVEL*) (QUOTE VARIABLE) "Local value") (PROCLAIM (QUOTE (SPECIAL *STEP-STATE*))) (OR (BOUNDP (QUOTE *STEP-STATE*)) (SETQ *STEP-STATE* NIL)) (IL:SET-DOCUMENTATION (QUOTE *STEP-STATE*) (QUOTE VARIABLE) "EG, enabled") (PROCLAIM (QUOTE (SPECIAL *STEP-MAX-INDENTATION*))) (OR (BOUNDP (QUOTE *STEP-MAX-INDENTATION*)) (SETQ *STEP-MAX-INDENTATION* 40)) (PROCLAIM (QUOTE (SPECIAL *STEP-PRINT-LENGTH*))) (OR (BOUNDP (QUOTE *STEP-PRINT-LENGTH*)) (SETQ *STEP-PRINT-LENGTH* 5)) (IL:SET-DOCUMENTATION (QUOTE *STEP-PRINT-LENGTH*) (QUOTE VARIABLE) "Local value") (IL:PUTPROPS IL:CMLSTEP IL:FILETYPE IL:COMPILE-FILE) (IL:PUTPROPS IL:CMLSTEP IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP")) STEP-SLEEP :D8 (IL:L (0 FUNCTIONS) IL:F 0 *STEP-STATE* IL:F 1 *EVALHOOK* IL:F 2 *STEP-INDENTATION-LEVEL*) @jcg cjc(15 SYMBOL-FUNCTION) (10 STEP-COMMAND) () (IL:SET-DOCUMENTATION (QUOTE STEP-SLEEP) (QUOTE FUNCTION) "Sleep until the given functions are reached.") (IL:PUTPROPS IL:CMLSTEP IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990)) NIL