/[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.7 by sboukarev, Tue Oct 6 20:12:03 2009 UTC revision 1.8 by trittweiler, Sat Oct 24 11:32:18 2009 UTC
# Line 303  Line 303 
303     :test 'equal))     :test 'equal))
304    
305  (defimplementation who-specializes (class)  (defimplementation who-specializes (class)
306    (delete-duplicates    (when (symbolp class)
307     (mapcar (lambda (m)      (setq class (find-class class nil)))
308               (car (find-definitions m)))    (when class
309             (ccl:specializer-direct-methods (if (symbolp class) (find-class class) class)))      (delete-duplicates
310     :test 'equal))       (mapcar (lambda (m)
311                   (car (find-definitions m)))
312                 (ccl:specializer-direct-methods class))
313         :test 'equal)))
314    
315  (defimplementation list-callees (name)  (defimplementation list-callees (name)
316    (remove-duplicates    (remove-duplicates

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5