X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-introspect%2Fxref-test.lisp;h=a93740df318e023e2adde4bab377903bce2c5512;hb=1a8763ce96d3bbaf76078c7a29ebd842aeb40f7e;hp=923ce818fc2ce47c6c3777dbb7d152ca6eef48a7;hpb=e5334bc7f2c88a5819e45e2d6e1cfe18af355169;p=sbcl.git

diff --git a/contrib/sb-introspect/xref-test.lisp b/contrib/sb-introspect/xref-test.lisp
index 923ce81..a93740d 100644
--- a/contrib/sb-introspect/xref-test.lisp
+++ b/contrib/sb-introspect/xref-test.lisp
@@ -114,6 +114,15 @@
   (inline/1))
 
 
+(define-xref-test who-calls.struct-slot.1
+    (who-calls 'struct-slot)
+  (source-user))
+
+(define-xref-test who-calls.cmacro.1
+    (who-calls 'cmacro)
+  (source-user))
+
+
 (define-xref-test who-specializes-directly.1
     (who-specializes-directly 'a-class)
   ((method a-gf-1)