[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
DRAFT Issue: HASH-TABLE-PACKAGE-GENERATORS (version 3)
- To: barmar@Think.COM
- Subject: DRAFT Issue: HASH-TABLE-PACKAGE-GENERATORS (version 3)
- From: Jon L White <jonl@lucid.com>
- Date: Mon, 17 Oct 88 16:34:59 PDT
- Cc: cl-cleanup@sail.stanford.edu
- In-reply-to: Barry Margolin's message of Thu, 13 Oct 88 10:23 EDT <19881013142325.5.BARMAR@OCCAM.THINK.COM>
re: This example is incorrect. It should be: . . .
Right, the 'print-all-symbols' example was prematurely "printed". Your
rewrite of it was almost correct; it should be
(defun print-all-symbols ()
(with-package-iterator (next-symbol nil)
(loop
(multiple-value-bind (more? symbol) (next-symbol)
(if more?
(print symbol) <<---
(return))))))
I'll fix up the proposal "shortly".
-- JonL --