Update of /project/cl-enumeration/cvsroot/enumerations In directory tiger.common-lisp.net:/tmp/cvs-serv16448 Modified Files: hash-table-enumerations.lisp Log Message: Added a few not-yet-exported functions. ENUMERATE-HASH-TABLE-KEYS, ENUMERATE-HASH-TABLE-VALUES, ENUMERATE-HASH-TABLE-KEY-VALUE-PAIRS. --- /project/cl-enumeration/cvsroot/enumerations/hash-table-enumerations.lisp 2010/12/30 13:24:23 1.3 +++ /project/cl-enumeration/cvsroot/enumerations/hash-table-enumerations.lisp 2012/12/28 10:17:21 1.4 @@ -92,4 +92,21 @@ (reset (underlying-enumeration x))) +;;; Extra hash-table utilities. + +(defun enumerate-keys (ht) + (declare (type hash-table ht)) + (enumerate ht :keys t :values nil :key-value-pairs nil)) + + +(defun enumerate-values (ht) + (declare (type hash-table ht)) + (enumerate ht :keys nil :values t :key-value-pairs nil)) + + +(defun enumerate-key-value-pairs (ht) + (declare (type hash-table ht)) + (enumerate ht :keys nil :values nil :key-value-pairs t)) + + ;;;; end of file -- hash-table-enumerations.lisp --