6.1 The LOOP Facility   6.1.2 Variable Initialization and Stepping Clauses   6.1.2.1 Iteration Control   6.1.2.1.7 The for-as-package subclause

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