3 Debugging Lisp Programs

3.4 Reference Pages

Syntax:*debug-print-length*

The variable*debug-print-length* controls the length of printing in the Debugger.

When the Debugger, the Stepper, or the Inspector is entered, or when the tracing information for a traced function is being printed, the variable*print-length* is bound to the value of*debug-print-length*. If you bind*debug-print-length* tonil or to a fixnum greater than or equal to 1,*print-length* is bound to that value; otherwise, it is bound to 10. The default value of*debug-print-length* is 10.

> (setq a '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15))
(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)

> (break)
>>Break: break
EVAL:
   Required arg 0 (EXPRESSION): (BREAK)
:C  0: Return from Break
:A  1: Abort to Lisp Top Level
-> a
(1 2 3 4 5 6 7 8 9 10 ...)
-> :c
Return from Break
NIL

> (dolist (dpl '(nil 3 12 'foo))
    (let ((*debug-print-length* dpl))
      (break)))
>>Break: break
EVAL:
   Required arg 0 (EXPRESSION): (DOLIST (DPL (QUOTE #)) (LET (#) (BREAK)))
:C  0: Return from Break
:A  1: Abort to Lisp Top Level
-> a
(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)
-> :c
Return from Break

>>Break: break
EVAL:
   Required arg 0 (EXPRESSION): (DOLIST (DPL (QUOTE #)) (LET (#) (BREAK)))
:C  0: Return from Break
:A  1: Abort to Lisp Top Level
-> a
(1 2 3 ...)
-> :c
Return from Break

>>Break: break
EVAL:
   Required arg 0 (EXPRESSION): (DOLIST (DPL (QUOTE #)) (LET (#) (BREAK)))
:C  0: Return from Break
:A  1: Abort to Lisp Top Level
-> a
(1 2 3 4 5 6 7 8 9 10 11 12 ...)
-> :c
Return from Break

>>Break: break
EVAL:
   Required arg 0 (EXPRESSION): (DOLIST (DPL (QUOTE #)) (LET (#) (BREAK)))
:C  0: Return from Break
:A  1: Abort to Lisp Top Level
-> a
(1 2 3 4 5 6 7 8 9 10 ...)
-> :c
Return from Break

NIL
> 

Syntax:*debug-print-level*

The variable*debug-print-level* controls the level of printing in the Debugger.

When the Debugger, the Stepper, or the Inspector is entered, or when the tracing information for a traced function is being displayed, the variable*print-level* is bound to the value of*debug-print-level*. If you bind*debug-print-level* tonil or to a fixnum greater than or equal to 1,*print-level* is bound to that value. Otherwise,*print-level* is bound to 3. The default value of*debug-print-level* is 3.

> (setq a '(1 (2 (3 (4 (5 (6 (7))))))))
(1 (2 (3 (4 (5 (6 (7)))))))

> (break)
>>Break: break
EVAL:
   Required arg 0 (EXPRESSION): (BREAK)
:C  0: Return from Break
:A  1: Abort to Lisp Top Level
-> a
(1 (2 (3 #)))
-> :c
Return from Break
NIL

> (dolist (dpl '(nil 5 'foo))
    (let ((*debug-print-level* dpl))
      (break)))
>>Break: break
EVAL:
   Required arg 0 (EXPRESSION): (DOLIST (DPL (QUOTE (NIL 5 (QUOTE FOO)))) (LET ((*DEBUG-PRINT-LEVEL* DPL)) (BREAK)))
:C  0: Return from Break
:A  1: Abort to Lisp Top Level
-> a
(1 (2 (3 (4 (5 (6 (7))))))) +++ Conditional FALSE: parallel   
-> :c
Return from Break

>>Break: break
EVAL:
   Required arg 0 (EXPRESSION): (DOLIST (DPL (QUOTE (NIL 5 (QUOTE FOO)))) (LET ((*DEBUG-PRINT-LEVEL* DPL)) (BREAK)))
:C  0: Return from Break
:A  1: Abort to Lisp Top Level
-> a
(1 (2 (3 (4 (5 #)))))
-> :c
Return from Break

>>Break: break
EVAL:
   Required arg 0 (EXPRESSION): (DOLIST (DPL (QUOTE #)) (LET (#) (BREAK)))
:C  0: Return from Break
:A  1: Abort to Lisp Top Level
-> a
(1 (2 (3 #)))
-> :c
Return from Break

NIL
>

*default-continue-names* Variable

Syntax:*default-abort-names*

Syntax:*default-continue-names*

The variables*default-abort-names* and*default-continue-names* contain lists of symbols that name the restarts used by the Debugger commands:a and:c respectively.

Generated with Harlequin WebMaker