Missing package prefix for type SI:INDEX

This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-26 22:00:32 +02:00
parent f14a1b5a0c
commit 1a9c6b2f8c

View file

@ -602,7 +602,7 @@
(declare (fixnum end))
(do ((pos start (1+ pos)))
((>= pos end))
(declare (type index pos))
(declare (type si::index pos))
(stream-write-char stream (aref string pos))))
string)