Changeset 11776
- Timestamp:
- 04/21/09 20:56:11 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/do-all-symbols.lisp
r11391 r11776 41 41 ,@decls 42 42 (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))) 49 51 (let ((,var nil)) 50 52 (declare (ignorable ,var))
Note: See TracChangeset
for help on using the changeset viewer.