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