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

diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp
index c69e03e..a9b39e3 100644
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@ -98,3 +98,14 @@
 
 ;;; DECLARE should not be a special operator
 (assert (not (special-operator-p 'declare)))
+
+;;; WITH-TIMEOUT should accept more than one form in its body.
+(handler-bind ((sb-ext:timeout #'continue))
+  (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)