X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fcondition.pure.lisp;h=f594e99af6f2a9b48102ee70fc6643f2630f2370;hb=d71896ded395b8453794f0c2e121af1cd095de8b;hp=cf6bb965849691405a8e4b4febdc819d3d6dd2e4;hpb=893dd75069ad851efd19e3d0fa5a4de9e84b4868;p=sbcl.git

diff --git a/tests/condition.pure.lisp b/tests/condition.pure.lisp
index cf6bb96..f594e99 100644
--- a/tests/condition.pure.lisp
+++ b/tests/condition.pure.lisp
@@ -101,3 +101,8 @@
                                         :failed)))))
          (cerror (formatter "Continue from ~A") "bug ~A" :bug)))
      :passed))
+
+;;; clauses in HANDLER-CASE are allowed to have declarations (and
+;;; indeed, only declarations)
+(assert 
+ (null (handler-case (error "foo") (error () (declare (optimize speed))))))