Changeset 8878


Ignore:
Timestamp:
Mar 24, 2008, 8:30:24 PM (11 years ago)
Author:
mb
Message:

Fix edit-definition-p to return the values for methods it used to return

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/source-files.lisp

    r8871 r8878  
    436436
    437437(defun edit-definition-p (name &optional (type t))
    438   (get-source-files-with-types&classes name (definition-type-instance type)))
     438  (if (and (typep name 'method)
     439           (member type '(t method)))
     440    (values (get-source-files-with-types&classes name (definition-type-instance type))
     441            (function-name (method-generic-function name))
     442            'method
     443            (method-specializers-as-name-list (method-specializers name))
     444            (method-qualifiers name))
     445    (get-source-files-with-types&classes name (definition-type-instance type))))
    439446
    440447(defun get-source-files-with-types&classes (name &optional (type-name t))
Note: See TracChangeset for help on using the changeset viewer.