/[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.121 by heller, Fri Oct 17 21:26:53 2008 UTC revision 1.122 by heller, Sun Oct 19 20:03:34 2008 UTC
# Line 356  Return NIL if the symbol is unbound." Line 356  Return NIL if the symbol is unbound."
356        (declare (ignore _n _s _l))        (declare (ignore _n _s _l))
357        value)))        value)))
358    
 (defimplementation frame-catch-tags (index)  
   (declare (ignore index))  
   nil)  
   
359  (defimplementation frame-source-location-for-emacs (frame)  (defimplementation frame-source-location-for-emacs (frame)
360    (let ((frame (nth-frame frame))    (let ((frame (nth-frame frame))
361          (callee (if (plusp frame) (nth-frame (1- frame)))))          (callee (if (plusp frame) (nth-frame (1- frame)))))

Legend:
Removed from v.1.121  
changed lines
  Added in v.1.122

  ViewVC Help
Powered by ViewVC 1.1.5