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

Diff of /slime/swank-sbcl.lisp

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

revision 1.37 by heller, Sat Dec 6 08:42:54 2003 UTC revision 1.38 by heller, Sun Dec 7 19:16:24 2003 UTC
# Line 313  This is useful when debugging the defini Line 313  This is useful when debugging the defini
313                        (or (and name (string name))                        (or (and name (string name))
314                            (sb-kernel:%fun-name function)))))))))                            (sb-kernel:%fun-name function)))))))))
315    
316  (defslimefun find-function-locations (fname-string)  (defmethod find-function-locations (fname-string)
   "Return a list of source-locations of FNAME's definitions."  
317    (let* ((symbol (from-string fname-string)))    (let* ((symbol (from-string fname-string)))
318      (labels ((finder (fun)      (labels ((finder (fun)
319                 (cond ((and (symbolp fun) (macro-function fun))                 (cond ((and (symbolp fun) (macro-function fun))

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

  ViewVC Help
Powered by ViewVC 1.1.5