/[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.54 by trittweiler, Fri Sep 12 12:27:38 2008 UTC revision 1.55 by heller, Wed Sep 17 06:19:48 2008 UTC
# Line 317  Line 317 
317                 :location (cond (*buffer-name*                 :location (cond (*buffer-name*
318                                  (make-location                                  (make-location
319                                   (list :buffer *buffer-name*)                                   (list :buffer *buffer-name*)
320                                   (list :position *buffer-start-position*)))                                   (list :offset *buffer-start-position* 0)))
321                                 (loc                                 (loc
322                                  (destructuring-bind (file . pos) loc                                  (destructuring-bind (file . pos) loc
323                                    (make-location                                    (make-location
# Line 385  Line 385 
385      `(((,symbol)      `(((,symbol)
386         (:location         (:location
387          (:file ,(namestring (ext:source-pathname symbol)))          (:file ,(namestring (ext:source-pathname symbol)))
388          (:position ,(or (ext:source-file-position symbol) 0) t)          (:position ,(or (ext:source-file-position symbol) 1))
389          (:snippet nil))))))          (:align t))))))
390    
391    
392  (defimplementation find-definitions (symbol)  (defimplementation find-definitions (symbol)

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

  ViewVC Help
Powered by ViewVC 1.1.5