X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-introspect%2Fxref-test-data.lisp;h=aebc327fda61fdb003deb7993ff62e6e59352341;hb=7169796933b86601eaf70d3a9064600730cb2b40;hp=ff44e10b2722cbfe8d3d3873f207eaf261ee7c60;hpb=e5334bc7f2c88a5819e45e2d6e1cfe18af355169;p=sbcl.git

diff --git a/contrib/sb-introspect/xref-test-data.lisp b/contrib/sb-introspect/xref-test-data.lisp
index ff44e10..aebc327 100644
--- a/contrib/sb-introspect/xref-test-data.lisp
+++ b/contrib/sb-introspect/xref-test-data.lisp
@@ -194,8 +194,13 @@
 (defun inline/4-user ()
   (inline/4 :a :b :c))
 
-;;; Test references to / from compiler-macros
+;;; Test references to / from compiler-macros and source-transforms
 
+(define-compiler-macro cmacro (x)
+  `(+ ,x 42))
+(defstruct struct slot)
+(defun source-user (x)
+  (cmacro (struct-slot x)))
 
 ;;; Test specialization