(defmacro dohash ((key value hash &optional end) &body body)
  `(progn (maphash #'(lambda (,key ,value)
		       ,@body)
		   ,hash)
          ,end))

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

(defmethod print-object ((h hash-table) str)
  (format str "{hash of ~a items}" (hash-table-count h)))

(defun showh (h &key
              (indent 0) (stream t) (before "") (after "")
              (if-empty "empty")
              (show #'(lambda (x)
                        (format stream "~a~a = ~a~%"
                           (nchars indent) (first x) (rest x))))
              (lt #'lt))
 (if (zerop (hash-table-count h))
     (format stream "~a~a~a" before if-empty after)
     (let (l)
       (format stream "~a" before) 
       (maphash #'(lambda (k v) (push (cons k v) l)) h)
       (mapc show 
             (sort l #'(lambda (a b)
                         (funcall lt (car a) (car b)))))
       (format stream "~a" after)
       h)))