+;;;; This software is part of the SBCL system. See the README file for
+;;;; more information.
+;;;;
+;;;; This software is derived from the CMU CL system, which was
+;;;; written at Carnegie Mellon University and released into the
+;;;; public domain. The software is in the public domain and is
+;;;; provided with absolutely no warranty. See the COPYING and CREDITS
+;;;; files for more information.
+
+(defpackage :sb-introspect-test/xref
+ (:use "SB-INTROSPECT" "CL" "SB-RT"))
+
+(in-package :sb-introspect-test/xref)
+
(defvar *a* nil)
(defconstant +z+ 'zzz)
;; Doesn't count as calling xref/3, or referring to +z+ / *a*
(inline/1))))
+;; last node of block should also be taken into account
+(defun xref/13 (x)
+ (setf *a* x))
+
+(defun xref/14 ()
+ *a*)
+
;; calling a function in a macro body
(defmacro macro/1 ()
(when nil