Helmut Eller e9626484@stud3.tuwien.ac.at writes:

Bill_Clementson@peoplesoft.com writes:

...

Unfortunately, it does not work in 6.x - it just positions to the top

of

...

the file that the method is in.

May I ask what the attached snippet returns for you? I tried it with Franz' telnet prompt at prompt.franz.com (a 6.2) and it seems ok. ACL5 returns:

((BAR #((:FILE "/tmp/foo.lisp") (:POSITION 22))) ((METHOD FOO ((EQL :A))) #((:FILE "/tmp/foo.lisp") (:POSITION 38))) ((METHOD FOO ((EQL :B))) #((:FILE "/tmp/foo.lisp") (:POSITION 71))) (FOO #((:FILE "/tmp/foo.lisp") (:FUNCTION-NAME "FOO"))))

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

-- Bill Clementson