[slime-devel] Re: Using M-. for specialized methods

[Bill_Clementson at peoplesoft.com]

Helmut Eller <e9626484 at stud3.tuwien.ac.at> writes:

> Bill_Clementson at 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"))))