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

Diff of /slime/swank-sbcl.lisp

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

revision 1.86 by lgorrie, Tue Jun 8 20:32:50 2004 UTC revision 1.87 by lgorrie, Tue Jun 8 23:57:35 2004 UTC
# Line 524  stack." Line 524  stack."
524      (cond (probe (throw (car probe) (eval-in-frame form index)))      (cond (probe (throw (car probe) (eval-in-frame form index)))
525            (t (format nil "Cannot return from frame: ~S" frame)))))            (t (format nil "Cannot return from frame: ~S" frame)))))
526    
527    ;;;;; reference-conditions
528    
529    (defimplementation format-sldb-condition (condition)
530      (let ((sb-int:*print-condition-references* nil))
531        (princ-to-string condition)))
532    
533    (defimplementation condition-references (condition)
534      (if (typep condition 'sb-int:reference-condition)
535          (sb-int:reference-condition-references condition)
536          '()))
537    
538    
539  ;;;; Profiling  ;;;; Profiling
540    

Legend:
Removed from v.1.86  
changed lines
  Added in v.1.87

  ViewVC Help
Powered by ViewVC 1.1.5