From cbee5f5e4a97730b1d29b48b1710aedd0202b11f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 31 Dec 1992 13:36:44 +0000 Subject: [PATCH] Moved DO-HASH to extensions. --- code/dyncount.lisp | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/code/dyncount.lisp b/code/dyncount.lisp index a10a444ce..b86430183 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)) -- GitLab