/[gcl]/gcl/lsp/debug.lsp
ViewVC logotype

Diff of /gcl/lsp/debug.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by wfs, Tue Apr 17 22:30:55 2001 UTC revision 1.4 by camm, Sat Oct 5 18:34:15 2002 UTC
# Line 387  Line 387 
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)
# Line 737  Line 738 
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)))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26