From 1a9c6b2f8cb7ed432fbb4a489f0a65661dccbcac Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Wed, 26 May 2010 22:00:32 +0200
Subject: [PATCH] Missing package prefix for type SI:INDEX

---
 src/clos/streams.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/clos/streams.lsp b/src/clos/streams.lsp
index 04fc2e575..2722fa224 100644
--- a/src/clos/streams.lsp
+++ b/src/clos/streams.lsp
@@ -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)