1 ;;;; This software is part of the SBCL system. See the README file for
4 ;;;; This software is derived from the CMU CL system, which was
5 ;;;; written at Carnegie Mellon University and released into the
6 ;;;; public domain. The software is in the public domain and is
7 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
8 ;;;; files for more information.
10 (in-package :sb-introspect-test/xref)
12 (defmacro define-xref-test (name form result)
14 (sort (mapcar #'first ,form) #'string< :key #'princ-to-string)
15 ,(sort (copy-list result) #'string< :key #'princ-to-string)))
17 (define-xref-test who-calls.1
20 (define-xref-test who-calls.2
24 (define-xref-test who-calls.3
28 (define-xref-test who-calls.4
35 (sb-pcl::fast-method xref/10 (t t t t t t t t fixnum))
36 (sb-pcl::fast-method xref/11 (fixnum))))
38 (define-xref-test who-calls.5
40 (inline/1 (sb-pcl::fast-method xref/11 (float))))
42 (define-xref-test who-calls.6
46 (define-xref-test who-calls.7
50 (define-xref-test who-calls.8
54 (define-xref-test who-calls.9
58 (define-xref-test who-calls.10
62 (define-xref-test who-calls.11
65 (define-xref-test who-calls.12
69 (define-xref-test who-calls.13
73 (define-xref-test who-calls.14
77 (define-xref-test who-calls.15
84 (define-xref-test who-calls.16
89 (define-xref-test who-macroexpands.1
90 (who-macroexpands 'macro/1)
98 (define-xref-test who-binds.1
103 (define-xref-test who-sets.1
108 (define-xref-test who-references.1
109 (who-references '*a*)
110 (xref/1 xref/2 xref/4 inline/1 xref/14))
112 (define-xref-test who-references.2
113 (who-references '+z+)
117 (define-xref-test who-calls.struct-slot.1
118 (who-calls 'struct-slot)
121 (define-xref-test who-calls.cmacro.1
126 (define-xref-test who-specializes-directly.1
127 (who-specializes-directly 'a-class)
131 (define-xref-test who-specializes-directly.2
132 (who-specializes-directly 'a-structure)
136 (define-xref-test who-specializes-generally.1
137 (who-specializes-generally 'a-class)
142 (define-xref-test who-specializes-generally.2
143 (who-specializes-generally 'a-structure)