[movitz-cvs] CVS update: movitz/losp/muerte/packages.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv4168

Modified Files:
	packages.lisp 
Log Message:
Added some (declare index) to hash-table-iter-vars.

Date: Wed Aug 24 09:29:41 2005
Author: ffjeld

Index: movitz/losp/muerte/packages.lisp
diff -u movitz/losp/muerte/packages.lisp:1.10 movitz/losp/muerte/packages.lisp:1.11
--- movitz/losp/muerte/packages.lisp:1.10	Mon May 30 00:03:06 2005
+++ movitz/losp/muerte/packages.lisp	Wed Aug 24 09:29:40 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Aug 30 15:19:43 2001
 ;;;;                
-;;;; $Id: packages.lisp,v 1.10 2005/05/29 22:03:06 ffjeld Exp $
+;;;; $Id: packages.lisp,v 1.11 2005/08/24 07:29:40 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -143,7 +143,8 @@
 		   (setf ,package-hash-var internals)
 		   (go ,loop-tag))))))))))
 
-(defmacro do-external-symbols ((var &optional (package *package*) result-form) &body declarations-and-body)
+(defmacro do-external-symbols
+    ((var &optional (package *package*) result-form) &body declarations-and-body)
   (let ((next-var (gensym))
 	(more-var (gensym))
 	(key-var (gensym)))
@@ -170,6 +171,7 @@
 			      (t (let ((x (pop ,use-list-var)))
 				   (and x (package-object-external-symbols x)))))))
 	 ((not ,hash-table-var) ,result-form)
+       (declare (index ,state-var))
        (with-hash-table-iterator (,next-var ,hash-table-var)
 	 (do () (nil)
 	   (multiple-value-bind (,more-var ,key-var ,var) (,next-var)
@@ -177,7 +179,6 @@
 	     (if ,more-var
 		 (let () , at declarations-and-body)
 	       (return))))))))
-
 
 (defun apropos (string &optional package)
   (flet ((apropos-symbol (symbol string)