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