X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpackage-locks.impure.lisp;h=77b2a9edfa9b043bb2fd46fe27a7b4251da76170;hb=5be53bd5a87605b076891aafb2d74caac1357506;hp=59415e34f3cb06f9799cd4eea58ab7b4a9a3c9f7;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/tests/package-locks.impure.lisp b/tests/package-locks.impure.lisp
index 59415e3..77b2a9e 100644
--- a/tests/package-locks.impure.lisp
+++ b/tests/package-locks.impure.lisp
@@ -436,14 +436,17 @@
              package-lock-violation))))
 
 ;;;; Program-errors from lexical violations
-(reset-test)
-(set-test-locks t)
-(dolist (pair *illegal-compile-time-forms-alist*)
-  (destructuring-bind (sym . form) pair
+;;;; In addition to that, this is also testing for bug 387
+(with-test (:name :program-error
+            :fails-on :sbcl)
+  (reset-test)
+  (set-test-locks t)
+  (dolist (pair *illegal-compile-time-forms-alist*)
+    (destructuring-bind (sym . form) pair
       (declare (ignore sym))
-    (let ((fun (compile nil `(lambda ()
-                              ,form))))
-      (assert (raises-error? (funcall fun) program-error)))))
+      (let ((fun (compile nil `(lambda ()
+                                 ,form))))
+        (assert (raises-error? (funcall fun) program-error))))))
 
 ;;;; See that trace on functions in locked packages doesn't break
 ;;;; anything.
@@ -478,4 +481,3 @@
          package-lock-violation))
 
 ;;; WOOT! Done.
-(sb-ext:quit :unix-status 104)