Node: Examples of for-as-package subclause, Next: , Previous: The for-as-package subclause, Up: Variable Initialization and Stepping Clauses



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