#

## 6.1.2.1.7.1 Examples of for-as-package subclause

     (let ((*package* (make-package "TEST-PACKAGE-1")))
       ;; For effect, intern some symbols
       (read-from-string "(THIS IS A TEST)")
       (export (intern "THIS"))
       (loop for x being each present-symbol of *package*
              do (print x)))
    >>  A
    >>  TEST
    >>  THIS
    >>  IS
    =>  NIL

The following X3J13 cleanup issue, not part of the specification, applies to this section:

- LOOP-PRESENT-SYMBOLS-TYPO:FLUSH-WRONG-WORDS

Copyright 1996-2001, Xanalys Inc. All rights reserved.