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.

diff --git a/src/code/package.lisp b/src/code/package.lisp
index 7f67aa6..11a6a2e 100644 (file)
--- 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 (file)
--- 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"