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

Diff of /slime/swank-abcl.lisp

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

revision 1.23 by heller, Mon Nov 29 17:35:03 2004 UTC revision 1.24 by asimon, Thu Feb 10 19:22:43 2005 UTC
# Line 201  Line 201 
201      (subseq (ext:backtrace-as-list) start end)))      (subseq (ext:backtrace-as-list) start end)))
202    
203  (defimplementation print-frame (frame stream)  (defimplementation print-frame (frame stream)
204      (print frame stream))      (pprint frame stream))
205    
206  #+nil  #+nil
207  (defimplementation frame-locals (index)  (defimplementation frame-locals (index)
# Line 316  Line 316 
316  |#  |#
317    
318  (defun source-location (symbol)  (defun source-location (symbol)
319    (when (ext:source symbol)    (when (pathnamep (ext:source-pathname symbol))
320      `(((,symbol)      `(((,symbol)
321         (:location         (:location
322          (:file ,(namestring (ext:source-pathname symbol)))          (:file ,(namestring (ext:source-pathname symbol)))
323          (:position ,(or (ext:source-file-position symbol) 0) t)          (:position ,(or (ext:source-file-position symbol) 0) t)
324          (:snippet nil))))))          (:snippet nil))))))
325    
326    
327  (defimplementation find-definitions (symbol)  (defimplementation find-definitions (symbol)
328    (source-location symbol))    (source-location symbol))

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

  ViewVC Help
Powered by ViewVC 1.1.5