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

Diff of /slime/swank-clisp.lisp

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

revision 1.80 by heller, Thu Oct 16 21:16:01 2008 UTC revision 1.81 by heller, Fri Oct 17 21:26:53 2008 UTC
# Line 349  Return NIL if the symbol is unbound." Line 349  Return NIL if the symbol is unbound."
349    (let* ((bt *sldb-backtrace*)    (let* ((bt *sldb-backtrace*)
350           (len (length bt)))           (len (length bt)))
351      (loop for f in (subseq bt start (min (or end len) len))      (loop for f in (subseq bt start (min (or end len) len))
352            collect (make-swank-frame :%frame f :restartable :unknown))))            collect f)))
353    
354  ;;; CLISP's REPL sets up an ABORT restart that kills SWANK.  Here we  ;;; CLISP's REPL sets up an ABORT restart that kills SWANK.  Here we
355  ;;; can omit that restart so that users don't select it by mistake.  ;;; can omit that restart so that users don't select it by mistake.
# Line 358  Return NIL if the symbol is unbound." Line 358  Return NIL if the symbol is unbound."
358    ;; list, hopefully that's our unwanted ABORT restart.    ;; list, hopefully that's our unwanted ABORT restart.
359    (butlast (compute-restarts condition)))    (butlast (compute-restarts condition)))
360    
361  (defimplementation print-swank-frame (swank-frame stream)  (defimplementation print-frame (frame stream)
362    (let* ((frame (swank-frame.%frame swank-frame))    (let* ((str (frame-to-string frame)))
          (str (frame-to-string frame)))  
363      (write-string (extract-frame-line str)      (write-string (extract-frame-line str)
364                    stream)))                    stream)))
365    

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

  ViewVC Help
Powered by ViewVC 1.1.5