X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-introspect%2Ftest-driver.lisp;h=03fdeddb8a2b4514a241592772bf67c61b58f94d;hb=bef0d9c1274819ee3fb886401209662bace136ce;hp=f647fabacf1f53610a93dec719c0d79622170daa;hpb=31f072311935e32751508ecf824905c6b58a1d95;p=sbcl.git

diff --git a/contrib/sb-introspect/test-driver.lisp b/contrib/sb-introspect/test-driver.lisp
index f647fab..03fdedd 100644
--- a/contrib/sb-introspect/test-driver.lisp
+++ b/contrib/sb-introspect/test-driver.lisp
@@ -68,6 +68,13 @@
 (assert (matchp-name :method-combination 'cl-user::r 26))
 (assert (matchp-name :setf-expander 'cl-user::s 27))
 
+(sb-profile:profile cl-user::one)
+(assert (matchp-name :function 'cl-user::one 2))
+(sb-profile:unprofile cl-user::one)
+
+;;; Test the xref facility
+
+(load (merge-pathnames "xref-test.lisp" *load-pathname*))
 
 ;;; Unix success convention for exit codes
 (sb-ext:quit :unix-status 0)