387 |
(setf (fill-pointer *break-point-vector*) 0) |
(setf (fill-pointer *break-point-vector*) 0) |
388 |
(setf *break-points* *break-point-vector*)) |
(setf *break-points* *break-point-vector*)) |
389 |
|
|
390 |
(defun step-into (&optional (n 1)) |
;(defun step-into (&optional (n 1)) |
391 |
|
(defun step-into () |
392 |
;;FORM is the next form about to be evaluated. |
;;FORM is the next form about to be evaluated. |
393 |
(or *break-points* (init-break-points)) |
(or *break-points* (init-break-points)) |
394 |
(setq *break-step* 'break-step-into) |
(setq *break-step* 'break-step-into) |
738 |
) |
) |
739 |
|
|
740 |
|
|
741 |
(defun print-stack-frame (i auto-display ihs fun &optional line file env) |
(defun print-stack-frame (i auto-display ihs fun &optional line file) |
742 |
(when (and auto-display line) |
(when (and auto-display line) |
743 |
(format *debug-io* "~a:~a:0:beg~%" file line)) |
(format *debug-io* "~a:~a:0:beg~%" file line)) |
744 |
(let ((computing-args (computing-args-p ihs))) |
(let ((computing-args (computing-args-p ihs))) |