X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpackages.impure.lisp;h=0a477b3a24a9d8600df4620e7de5a02283f06c67;hb=f2db6743b1fadeea9e72cb583d857851c87efcd4;hp=5078b9e42a00b8eda90179e18d2867d4226d7a58;hpb=56fd7d95cfadb61a353e8999111a0e2e6a94842b;p=sbcl.git

diff --git a/tests/packages.impure.lisp b/tests/packages.impure.lisp
index 5078b9e..0a477b3 100644
--- a/tests/packages.impure.lisp
+++ b/tests/packages.impure.lisp
@@ -255,3 +255,15 @@ if a restart was invoked."
       (is restartedp)
       (is (eq (sym "FOO" "SYM")
               (sym "BAZ" "SYM"))))))
+
+;;; WITH-PACKAGE-ITERATOR error signalling had problems
+(with-test (:name with-package-itarator.error)
+  (assert (eq :good
+              (handler-case
+                  (progn
+                    (eval '(with-package-iterator (sym :cl-user :foo)
+                            (sym)))
+                    :bad)
+                ((and simple-condition program-error) (c)
+                  (assert (equal (list :foo) (simple-condition-format-arguments c)))
+                  :good)))))