DRAFT Issue: HASH-TABLE-PACKAGE-GENERATORS (version 3)

[Barry Margolin <barmar@Think.COM>]

    Date: 8 Oct 88 17:38 PDT
    From: cl-cleanup@sail.stanford.edu

    The following functions prints out every interned symbol:

    (defun print-all-symbols () 
      (with-package-iterator (next-symbol nil)
	(print (next-symbol))))

This example is incorrect.  It should be:

(defun print-all-symbols () 
  (with-package-iterator (next-symbol nil)
    (loop
      (multiple-value-bind (more? symbol) (next-symbol)
	(if more? (next-symbol)
	    (return))))))

                                                barmar