X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpackage.lisp;h=7f67aa633d90e1c0e59fdf063d2a6a8f552fd385;hb=e92a2f8844d9125e76a4b96dc27b56632bfd85b6;hp=c43c5e4006f43da5fbca9d95bf13e6e05c0bba1e;hpb=0ea76b6b3c9e5c5608ca4c03f429834222717301;p=sbcl.git

diff --git a/src/code/package.lisp b/src/code/package.lisp
index c43c5e4..7f67aa6 100644
--- a/src/code/package.lisp
+++ b/src/code/package.lisp
@@ -301,7 +301,7 @@
 			 `((:internal
 			    (setf ,',counter
 				  (position-if #',',real-symbol-p
-					       ,',hash-vector
+					       (the hash-vector ,',hash-vector)
 					       :start (if ,',counter
 							  (1+ ,',counter)
 							  0)))
@@ -314,7 +314,7 @@
 			 `((:external
 			    (setf ,',counter
 				  (position-if #',',real-symbol-p
-					       ,',hash-vector
+					       (the hash-vector ,',hash-vector)
 					       :start (if ,',counter
 							  (1+ ,',counter)
 							  0)))
@@ -328,7 +328,9 @@
 			    (flet ((,',inherited-symbol-p (number)
 				     (when (,',real-symbol-p number)
 				       (let* ((p (position
-						  number ,',hash-vector
+						  number
+						  (the hash-vector
+						    ,',hash-vector)
 						  :start (if ,',counter
 							     (1+ ,',counter)
 							     0)))
@@ -340,7 +342,8 @@
 					      :inherited)))))
 			      (setf ,',counter
 				    (position-if #',',inherited-symbol-p
-						 ,',hash-vector
+						 (the hash-vector
+						   ,',hash-vector)
 						 :start (if ,',counter
 							    (1+ ,',counter)
 							    0))))