; list of tricks that,net year, i will move into lib

(defun rands (&optional (thing "thing"))
  (intern
   (format nil "~:@(~a~)-~a" thing (randi 1000000000))))

(defmacro dokeys ((key hash &optional end) &body body)
  (let ((value (gensym)))
    `(progn (maphash #'(lambda (,key ,value)
			 (declare (ignore ,value))
			 ,@body)
		     ,hash)
	    ,end)))