/[slime]/slime/swank-lispworks.lisp
ViewVC logotype

Diff of /slime/swank-lispworks.lisp

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

revision 1.18 by heller, Wed Jan 21 22:35:38 2004 UTC revision 1.19 by heller, Wed Jan 21 23:03:23 2004 UTC
# Line 165  Return NIL if the symbol is unbound." Line 165  Return NIL if the symbol is unbound."
165    
166  (defun interesting-frame-p (frame)  (defun interesting-frame-p (frame)
167    (or (dbg::call-frame-p frame)    (or (dbg::call-frame-p frame)
168        (dbg::catch-frame-p frame)))        ;;(dbg::catch-frame-p frame)
169          ))
170    
171  (defun nth-frame (index)  (defun nth-frame (index)
172    (do ((frame (dbg::debugger-stack-current-frame dbg::*debugger-stack*)    (do ((frame (dbg::debugger-stack-current-frame dbg::*debugger-stack*)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

  ViewVC Help
Powered by ViewVC 1.1.5