0.7.9.52:

[sbcl.git] / tests / loop.pure.lisp

diff --git a/tests/loop.pure.lisp b/tests/loop.pure.lisp
index 77653bc..bed64e1 100644 (file)
--- a/tests/loop.pure.lisp
+++ b/tests/loop.pure.lisp
@@ -80,3 +80,6 @@
 
 (assert (= (loop for nil being the external-symbols of :cl count t) 978))
 (assert (= (loop for x being the external-symbols of :cl count x) 977))
+
+(let ((*package* (find-package :cl)))
+  (assert (= (loop for x being each external-symbol count t) 978)))