X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-introspect%2Ftest-driver.lisp;h=5068d8c5b5db27e7977feb6362449d95ca76daba;hb=095a47764e687fa76cf0e2803633d30c65c00f40;hp=fa4372dcc4fd090d45bda95f1ea88215eb8f948a;hpb=9908313f6f76672cfc28c48b21c9aa88daeb8d10;p=sbcl.git

diff --git a/contrib/sb-introspect/test-driver.lisp b/contrib/sb-introspect/test-driver.lisp
index fa4372d..5068d8c 100644
--- a/contrib/sb-introspect/test-driver.lisp
+++ b/contrib/sb-introspect/test-driver.lisp
@@ -4,6 +4,8 @@
 
 (assert (equal (function-arglist 'cl-user::one)
 	       '(cl-user::a cl-user::b cl-user::c)))
+(assert (equal (function-arglist 'the)
+	       '(type sb-c::value)))
 
 (defun matchp (object form-number)
   (let ((ds (sb-introspect:find-definition-source object)))