[slime-devel] Re: Using M-. for specialized methods - slime-devel - mailman3.common-lisp.net

21 May 2004


      Helmut Eller e9626484@stud3.tuwien.ac.at writes:
...
Bill_Clementson@peoplesoft.com writes:
...
ACL 6.2 returns:
((BAR #((:FILE "c:\tmp\foo.lisp") (:POSITION 23)))
 ((METHOD FOO ((EQL :A)))
  #((:FILE "c:\tmp\foo.lisp") (:POSITION 40)))
 ((METHOD FOO ((EQL :B)))
  #((:FILE "c:\tmp\foo.lisp") (:POSITION 74)))
 (FOO #((:FILE "c:\tmp\foo.lisp") (:FUNCTION-NAME "FOO"))))
This looks fine.  I don't see why Emacs can't locate the methods in
your code.  Could you post an example?
When I run your code snippet over my methods, with the following command:
(find-definitions 'xml-xform::node-xform))
I get the following output (note that :function-name is "NIL" and their are
no :POSITION values for any of the methods with the exception of the last
(default) method). The generic function is stored in a library file
"xml-xform.lisp" while the specialized methods are stored in an example
file "resume.lisp". Only the non-specialized (default) method in
"resume.lisp" is showing up with a :POSITION value. Don't know if that
provides any clues. I'll try to come up with a cut-down, reproducible
example that I can send you. It was working fine for me with the patch that
I had sent you previously. Is "excl:source-file" not a supported function
in ACL 5.0?
(((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::RESUME)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::PERSON)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::BACKGR)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::WORK)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::COMPANY)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::ROLE)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::COMMENT)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'LIST)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::ITEM)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::MISC)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::SKILLS)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::SKILLS-GRP)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::EDUCATION)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::AFFILIATIONS)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::INSTITUTION)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::POS)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::CURRENT)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::MAIL)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::WWW)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T (EQL 'RESUME-HTML::A)))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:FUNCTION-NAME "NIL")))
 ((METHOD XML-XFORM:NODE-XFORM (T T))
  #((:FILE
     "c:\usr\home\lisp\xml-xform\examples\resume-html.lisp")
    (:POSITION 5941)))
 (XML-XFORM:NODE-XFORM #((:FILE
                          "c:\usr\home\lisp\xml-xform\xml-xform.lisp")
                         (:FUNCTION-NAME "NODE-XFORM"))))