/[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.129 by msimmons, Thu Jan 15 17:07:21 2009 UTC revision 1.130 by heller, Sun Jun 21 07:22:56 2009 UTC
# Line 383  Return NIL if the symbol is unbound." Line 383  Return NIL if the symbol is unbound."
383        (declare (ignore _n _s _l))        (declare (ignore _n _s _l))
384        value)))        value)))
385    
386  (defimplementation frame-source-location-for-emacs (frame)  (defimplementation frame-source-location (frame)
387    (let ((frame (nth-frame frame))    (let ((frame (nth-frame frame))
388          (callee (if (plusp frame) (nth-frame (1- frame)))))          (callee (if (plusp frame) (nth-frame (1- frame)))))
389      (if (dbg::call-frame-p frame)      (if (dbg::call-frame-p frame)

Legend:
Removed from v.1.129  
changed lines
  Added in v.1.130

  ViewVC Help
Powered by ViewVC 1.1.5