/[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.183 by heller, Mon Sep 10 15:39:05 2007 UTC revision 1.184 by heller, Mon Sep 10 21:33:36 2007 UTC
# Line 325  information." Line 325  information."
325      (sb-int:encapsulated-condition (sb-int:encapsulated-condition condition))      (sb-int:encapsulated-condition (sb-int:encapsulated-condition condition))
326      (t condition)))      (t condition)))
327    
328    (defun condition-references (condition)
329      (if (typep condition 'sb-int:reference-condition)
330          (externalize-reference
331           (sb-int:reference-condition-references condition))))
332    
333  (defun compiler-note-location (context)  (defun compiler-note-location (context)
334    (if context    (if context
335        (locate-compiler-note        (locate-compiler-note

Legend:
Removed from v.1.183  
changed lines
  Added in v.1.184

  ViewVC Help
Powered by ViewVC 1.1.5