0.8.17.29:

[sbcl.git] / contrib / sb-simple-streams / impl.lisp

diff --git a/contrib/sb-simple-streams/impl.lisp b/contrib/sb-simple-streams/impl.lisp
index 417c870..79fe4c4 100644 (file)
--- a/contrib/sb-simple-streams/impl.lisp
+++ b/contrib/sb-simple-streams/impl.lisp
@@ -173,7 +173,7 @@
           (index 0)                    ; current index in current buffer
           (total 0))                   ; total characters
       (declare (type simple-stream encap)
-              (type simple-base-string cbuf)
+              (type simple-string cbuf)
               (type cons bufs tail)
               (type sb-int:index index total))
       (loop
@@ -200,7 +200,7 @@
                (do ((list bufs (cdr list)))
                    ((eq list tail))
                  (let ((buf (car list)))
-                   (declare (type simple-base-string buf))
+                   (declare (type simple-string buf))
                    (replace cbuf buf :start1 idx)
                    (incf idx (length buf)))))
              (return (values (sb-kernel:shrink-vector cbuf total)
@@ -210,7 +210,7 @@
                  (index 0))
              (declare (type sb-int:index index))
              (dolist (buf bufs)
-               (declare (type simple-base-string buf))
+               (declare (type simple-string buf))
                (replace string buf :start1 index)
                (incf index (length buf)))
              (return  (values string (eq done :eof)))))
@@ -1019,8 +1019,7 @@ is supported only on simple-streams."
    File-Stream is open to.  If the second argument is supplied, then
    this becomes the new file position.  The second argument may also
    be :start or :end for the start and end of the file, respectively."
-  (declare (type (or index (alien sb!unix:off-t) (member nil :start :end))
-                 position))
+  (declare (type (or sb-int:index (member nil :start :end)) position))
   (etypecase stream
     (simple-stream
      (%file-position stream position))