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

Diff of /slime/swank.lisp

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

revision 1.569 by heller, Tue Aug 12 12:57:09 2008 UTC revision 1.570 by heller, Sun Aug 17 23:01:06 2008 UTC
# Line 2742  Include the nicknames if NICKNAMES is tr Line 2742  Include the nicknames if NICKNAMES is tr
2742  (defslimefun find-definition-for-thing (thing)  (defslimefun find-definition-for-thing (thing)
2743    (find-source-location thing))    (find-source-location thing))
2744    
2745    (defslimefun find-source-location-for-emacs (spec)
2746      (find-source-location (value-spec-ref spec)))
2747    
2748    (defun value-spec-ref (spec)
2749      (destructure-case spec
2750        ((:string string package)
2751         (with-buffer-syntax (package)
2752           (eval (read-from-string string))))
2753        ((:inspector part)
2754         (inspector-nth-part part))
2755        ((:sldb frame var)
2756         (frame-var-value frame var))))
2757    
2758  (defslimefun find-definitions-for-emacs (name)  (defslimefun find-definitions-for-emacs (name)
2759    "Return a list ((DSPEC LOCATION) ...) of definitions for NAME.    "Return a list ((DSPEC LOCATION) ...) of definitions for NAME.
2760  DSPEC is a string and LOCATION a source location. NAME is a string."  DSPEC is a string and LOCATION a source location. NAME is a string."

Legend:
Removed from v.1.569  
changed lines
  Added in v.1.570

  ViewVC Help
Powered by ViewVC 1.1.5