/[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.49 by heller, Wed Jun 30 21:45:07 2004 UTC revision 1.50 by heller, Thu Jul 1 06:33:18 2004 UTC
# Line 240  Return NIL if the symbol is unbound." Line 240  Return NIL if the symbol is unbound."
240          (push frame backtrace)))))          (push frame backtrace)))))
241    
242  (defun frame-actual-args (frame)  (defun frame-actual-args (frame)
243    (mapcar (lambda (arg)    (let ((*break-on-signals* nil))
244              (handler-case (dbg::dbg-eval arg frame)      (mapcar (lambda (arg)
245                (error (format nil "<~A>" arg))))                (case arg
246            (dbg::call-frame-arglist frame)))                  ((&rest &optional &key) arg)
247                    (t
248                     (handler-case (dbg::dbg-eval arg frame)
249                       (error (format nil "<~A>" arg))))))
250                (dbg::call-frame-arglist frame))))
251    
252  (defimplementation print-frame (frame stream)  (defimplementation print-frame (frame stream)
253    (cond ((dbg::call-frame-p frame)    (cond ((dbg::call-frame-p frame)

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

  ViewVC Help
Powered by ViewVC 1.1.5