xref not collected for initforms of DEFVAR/DEFPARAMETER

[Tobias C. Rittweiler]

;;; quux.lisp

(defun foo (x) (1+ x))
(defvar *bar* (foo 42))
(defparameter *quux* *bar*)

CL-USER> (load (compile-file "/tmp/quux.lisp"))
; compiling file "/tmp/quux.lisp" (written 07 JAN 2010 11:57:59 PM):
; compiling (DEFUN FOO ...)
; compiling (DEFVAR *BAR* ...)
; compiling (DEFPARAMETER *QUUX* ...)

; /tmp/quux.fasl written
; compilation finished in 0:00:00.005
T
CL-USER> (sb-introspect:who-calls 'foo)
NIL
CL-USER> (sb-introspect:who-references '*bar*)
NIL

This has not only the obvious consequences to inaccuracy of M-? in Slime,
but also the SB-COVER contrib is affected:

It won't show function definitions as having been executed that were only
called once in an DEFVAR or DEFPARAMETER initform.

[Carl Gay (cgay)]

Possible duplicate: https://bugs.launchpad.net/sbcl/+bug/1553300