[cl-enumeration-cvs] CVS enumerations

[CVS User mantoniotti]

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 --