[Sbcl-commits] CVS: sbcl/contrib/sb-simple-streams impl.lisp,1.6,1.7

[Rudi S. <ru...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-simple-streams
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8798/contrib/sb-simple-streams

Modified Files:
	impl.lisp 
Log Message:
0.8.13.60:

  Fix peek-char, make sb-simple-streams compile

    ... If this checkin is broken again, it's brown-paper-bag time, I
    guess


Index: impl.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-simple-streams/impl.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- impl.lisp	10 Aug 2004 11:16:15 -0000	1.6
+++ impl.lisp	13 Aug 2004 17:35:44 -0000	1.7
@@ -1019,8 +1019,7 @@
    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))