diff --git a/code/dyncount.lisp b/code/dyncount.lisp index a10a444cea047ae415112533cfb595a096538e8a..b86430183f26385cb5ca01d0493c6b57af628f97 100644 --- a/code/dyncount.lisp +++ b/code/dyncount.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/dyncount.lisp,v 1.3 1992/05/27 00:33:00 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/dyncount.lisp,v 1.4 1992/12/31 13:36:44 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -30,20 +30,6 @@ VOP classification. ;;;; Hash utilities: -(defmacro do-hash ((key-var value-var table &optional result) - &body (body decls)) - "DO-HASH (Key-Var Value-Var Table [Result]) Declaration* Form* - Iterate over the entries in a hash-table." - (let ((gen (gensym)) - (n-more (gensym))) - `(with-hash-table-iterator (,gen ,table) - (loop - (multiple-value-bind (,n-more ,key-var ,value-var) - (,gen) - ,@decls - (unless ,n-more (return ,result)) - ,@body))))) - (defun make-hash-table-like (table) "Make a hash-table with the same test as table." (declare (type hash-table table))