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

Diff of /slime/swank-ccl.lisp

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

revision 1.5 by heller, Mon Aug 31 17:08:17 2009 UTC revision 1.6 by heller, Wed Sep 23 11:19:55 2009 UTC
# Line 581  Line 581 
581                (t `(:error ,(funcall if-nil-thunk))))                (t `(:error ,(funcall if-nil-thunk))))
582        (error (c) `(:error ,(princ-to-string c))))))        (error (c) `(:error ,(princ-to-string c))))))
583    
584  (defimplementation find-definitions (obj)  (defimplementation find-definitions (name)
585    (loop for ((type . name) . sources) in (ccl:find-definition-sources obj)    (let ((defs (or (ccl:find-definition-sources name)
586          collect (list (definition-name type name)                    (and (symbolp name)
587                        (source-note-to-source-location                         (fboundp name)
588                         (find-if-not #'null sources)                         (ccl:find-definition-sources (symbol-function name))))))
589                         (lambda () "No source-note available")      (loop for ((type . name) . sources) in defs
590                         name))))            collect (list (definition-name type name)
591                            (source-note-to-source-location
592                             (find-if-not #'null sources)
593                             (lambda () "No source-note available")
594                             name)))))
595    
596  (defimplementation find-source-location (obj)  (defimplementation find-source-location (obj)
597    (let* ((defs (ccl:find-definition-sources obj))    (let* ((defs (ccl:find-definition-sources obj))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5