tmp.lisp

CL-USER> (defun filtered (hash &optional (filter-condition t))
		   (let ((res '()))
			 (maphash #'(lambda (k v)
						  (if (funcall filter-condition k v)
							  (push v res)))
					  hash)
			 res))
CL-USER> (defparameter *hash* (make-hash-table))
CL-USER> (dotimes (i 10) (setf (gethash i table) i))
CL-USER> (filtered *hash*
				   #'(lambda (k v) (oddp k)))
(9 7 5 3 1)