Changeset 11776


Ignore:
Timestamp:
04/21/09 20:56:11 (12 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/do-all-symbols.lisp

    r11391 r11776  
    4141                 ,@decls
    4242                 (tagbody ,@forms)))
    43            (dolist (package (list-all-packages))
    44              (flet ((iterate-over-symbols (symbols)
    45                       (dolist (symbol symbols)
    46                         (,flet-name symbol))))
    47                (iterate-over-symbols (package-internal-symbols package))
    48                (iterate-over-symbols (package-external-symbols package)))))
     43           (mapc #'(lambda (package)
     44                     (flet ((iterate-over-symbols (symbols)
     45                              (mapc #',flet-name symbols)))
     46                       (iterate-over-symbols
     47                        (package-internal-symbols package))
     48                       (iterate-over-symbols
     49                        (package-external-symbols package))))
     50                 (list-all-packages)))
    4951         (let ((,var nil))
    5052           (declare (ignorable ,var))
Note: See TracChangeset for help on using the changeset viewer.