From 07b54b55bb26944932be15bdeb6b14426e441dc9 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sun, 1 Jun 2003 10:48:21 +0000 Subject: [PATCH] 0.8.0.22: Unbreak WITH-PACKAGE-ITERATOR (which I managed to break when introducing enough type declarations to quieten the compiler) ... in the :INHERITED case, ,',SYMBOLS isn't necessarily true, so when ,',HASH-VECTOR isn't bound to a hash-vector, we need to set ,',COUNTER to NIL, rather than try seeking down ,',HASH-VECTOR. --- src/code/package.lisp | 13 +++++++------ version.lisp-expr | 2 +- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/src/code/package.lisp b/src/code/package.lisp index 7f67aa6..11a6a2e 100644 --- a/src/code/package.lisp +++ b/src/code/package.lisp @@ -341,12 +341,13 @@ (car ,',packages))) :inherited))))) (setf ,',counter - (position-if #',',inherited-symbol-p - (the hash-vector - ,',hash-vector) - :start (if ,',counter - (1+ ,',counter) - 0)))) + (when ,',hash-vector + (position-if #',',inherited-symbol-p + (the hash-vector + ,',hash-vector) + :start (if ,',counter + (1+ ,',counter) + 0))))) (cond (,',counter (return-from ,',BLOCK diff --git a/version.lisp-expr b/version.lisp-expr index f922acf..6d1577e 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.0.21" +"0.8.0.22" -- 1.7.10.4