[lispy-cvs] CVS lispy

13 Jul 2007

Update of /project/lispy/cvsroot/lispy
In directory clnet:/tmp/cvs-serv1565
Modified Files:
    utils.lisp 
Log Message:
Hash table to list.

--- /project/lispy/cvsroot/lispy/utils.lisp	2007/07/12 05:56:51	1.2
+++ /project/lispy/cvsroot/lispy/utils.lisp	2007/07/13 14:48:30	1.3
@@ -43,3 +43,11 @@
             (get-universal-time)
             (string-upcase name)
             (apply #'format nil (cons control-string format-arguments)))))
+
+(defun hash-to-list (hash)
+  (let ((result '()))
+    (maphash #'(lambda (k v)
+                 (declare (ignore k))
+                 (push v result))
+             hash)
+    result))
\ No newline at end of file

    