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@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 () ,@declarations-and-body) (return)))))))) -
(defun apropos (string &optional package) (flet ((apropos-symbol (symbol string)