/[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.81 by heller, Fri Oct 17 21:26:53 2008 UTC revision 1.82 by heller, Fri Oct 17 21:27:16 2008 UTC
# Line 351  Return NIL if the symbol is unbound." Line 351  Return NIL if the symbol is unbound."
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 f)))            collect f)))
353    
 ;;; CLISP's REPL sets up an ABORT restart that kills SWANK.  Here we  
 ;;; can omit that restart so that users don't select it by mistake.  
 (defimplementation compute-sane-restarts (condition)  
   ;; The outermost restart is specified to be the last element of the  
   ;; list, hopefully that's our unwanted ABORT restart.  
   (butlast (compute-restarts condition)))  
   
354  (defimplementation print-frame (frame stream)  (defimplementation print-frame (frame stream)
355    (let* ((str (frame-to-string frame)))    (let* ((str (frame-to-string frame)))
356      (write-string (extract-frame-line str)      (write-string (extract-frame-line str)

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

  ViewVC Help
Powered by ViewVC 1.1.5