X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finterface.pure.lisp;h=a9b39e39505fa9ab445ef06d8e98c35c1813d300;hb=782a45c5d5000d7e86c83e7b303f15270b1e03c2;hp=f329d031c80b504b548cd9c431e7c85854be5eb1;hpb=f6c58711c58ee05502fefc6c176a2533b18021bb;p=sbcl.git

diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp
index f329d03..a9b39e3 100644
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@ -104,3 +104,8 @@
   (sb-ext:with-timeout 3
     (sleep 2)
     (sleep 2)))
+
+;;; DOCUMENTATION should return nil, not signal slot-unbound
+(documentation 'fixnum 'type)
+(documentation 'class 'type)
+(documentation (find-class 'class) 'type)