1.0.31.27: RUN-PROGRAM process group change

[sbcl.git] / tests / package-locks.impure.lisp

diff --git a/tests/package-locks.impure.lisp b/tests/package-locks.impure.lisp
index e0f50fb..18e8bba 100644 (file)
--- a/tests/package-locks.impure.lisp
+++ b/tests/package-locks.impure.lisp
@@ -484,4 +484,9 @@
             test:*special*))
          program-error))
 
+;;; Bogus package lock violations from LOOP
+
+(assert (equal (loop :for *print-base* :from 2 :to 3 :collect *print-base*)
+               '(2 3)))
+
 ;;; WOOT! Done.