Changeset 11776

Timestamp:

04/21/09 20:56:11 (14 years ago)

Author:

ehuelsmann

Message:

Fix DO-ALL-SYMBOLS.{6,9,12}: we can't use DOLIST, because it has
an implicit NIL block surrounding it. MAPC doesn't.

File:

• trunk/abcl/src/org/armedbear/lisp/do-all-symbols.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/do-all-symbols.lisp

@@ -41 +41 @@
                  ,@decls
                  (tagbody ,@forms)))
-           (dolist (package (list-all-packages))
-             (flet ((iterate-over-symbols (symbols)
-                      (dolist (symbol symbols)
-                        (,flet-name symbol))))
-               (iterate-over-symbols (package-internal-symbols package))
-               (iterate-over-symbols (package-external-symbols package)))))
+           (mapc #'(lambda (package) 
+                     (flet ((iterate-over-symbols (symbols)
+                              (mapc #',flet-name symbols)))
+                       (iterate-over-symbols
+                        (package-internal-symbols package))
+                       (iterate-over-symbols
+                        (package-external-symbols package))))
+                 (list-all-packages)))
          (let ((,var nil))
            (declare (ignorable ,var))