/[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.75 by heller, Wed Mar 10 08:24:45 2004 UTC revision 1.76 by heller, Wed Mar 10 09:10:34 2004 UTC
# Line 381  This is useful when debugging the defini Line 381  This is useful when debugging the defini
381  (defun function-definitions (symbol)  (defun function-definitions (symbol)
382    (flet ((loc (fun name) (safe-function-source-location fun name)))    (flet ((loc (fun name) (safe-function-source-location fun name)))
383      (cond ((macro-function symbol)      (cond ((macro-function symbol)
384             (list (list `(macro ,symbol) (loc (macro-function symbol) symbol))))             (list (list `(defmacro ,symbol)
385                           (loc (macro-function symbol) symbol))))
386            ((fboundp symbol)            ((fboundp symbol)
387             (let ((fun (symbol-function symbol)))             (let ((fun (symbol-function symbol)))
388               (cond ((typep fun 'sb-mop:generic-function)               (cond ((typep fun 'sb-mop:generic-function)
389                      (cons (list `(function ,symbol) (loc fun symbol))                      (cons (list `(defgeneric ,symbol) (loc fun symbol))
390                            (method-definitions fun)))                            (method-definitions fun)))
391                     (t                     (t
392                      (list (list symbol (loc fun symbol))))))))))                      (list (list `(function ,symbol) (loc fun symbol))))))))))
393    
394  (defimplementation find-definitions (symbol)  (defimplementation find-definitions (symbol)
395    (function-definitions symbol))    (function-definitions symbol))

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

  ViewVC Help
Powered by ViewVC 1.1.5