source-note missing under certain conditions

[rs]

compile a file containing a defgeneric as its last form, and load the compiled file. the source-notes for that function (and its methods) are missing, instead there are pathnames. Consequently slime fails when trying to "goto definition" (meta-.). Now for the magic: if you add some other definition (eg. a defun) below (and compile again), the source-notes are there!?

example: (contents of file "~/source-note-test.lisp" )

---

(defgeneric adoctestfun (input)

(:documentation "Parse INPUT, ") (:method ((input string))

(format t "string ~s" input))

(:method ((input number))

(format t "number ~s" (* 2 input))))

;; (defun somethingunrelated (i) (* 2 i))

---

(compile-file "~/source-note-test.lisp") (load "~/source-note-test.dx64fsl") (find-definition-sources 'adoctestfun) -> no source notes

;; now uncomment the defun and try again:

(compile-file "~/source-note-test.lisp") (load "~/source-note-test.dx64fsl") (find-definition-sources 'adoctestfun) -> ok, source notes are there

(tested in 1.3-r11936 DarwinX8664 and 1.3-RC1-r11804MS (LinuxX8632)

[rme]

This appears to be working in the trunk now.