Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/contrib/sb-introspect
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv7429/contrib/sb-introspect

Modified Files:
	xref-test-data.lisp xref-test.lisp 
Log Message:
1.0.14.2: XREF needs to account for the last node of a block as well

 * ...as it can be eg. a CSET node. Reported by "mogunus" on #lisp.

 Lest readers of sbcl-commits start thinking that #lisp is the best
 place to report bugs: it is not. This got immediate attention as I
 was working in closely related areas anyways.

 sbcl-devel and sbcl-help remain the correct place to report bugs.


Index: xref-test-data.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-introspect/xref-test-data.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- xref-test-data.lisp	5 Dec 2006 04:35:56 -0000	1.1
+++ xref-test-data.lisp	29 Jan 2008 12:51:28 -0000	1.2
@@ -102,6 +102,13 @@
       ;; 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

Index: xref-test.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-introspect/xref-test.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- xref-test.lisp	5 Dec 2006 04:35:56 -0000	1.1
+++ xref-test.lisp	29 Jan 2008 12:51:28 -0000	1.2
@@ -29,9 +29,9 @@
                  ((sb-introspect::who-macroexpands 'macro/1)
                   (macro-use/1 macro-use/2 macro-use/3 macro-use/4 inline/2))
                  ((sb-introspect::who-binds '*a*) (xref/2))
-                 ((sb-introspect::who-sets '*a*) (xref/2))
+                 ((sb-introspect::who-sets '*a*) (xref/2 xref/13))
                  ((sb-introspect::who-references '*a*)
-                  (xref/1 xref/2 xref/4 inline/1))
+                  (xref/1 xref/2 xref/4 inline/1 xref/14))
                  ((sb-introspect::who-references '+z+)
                   (inline/1)))))
     (loop for x in tests