From avodonosov at common-lisp.net  Tue Aug  3 08:51:42 2010
From: avodonosov at common-lisp.net (avodonosov)
Date: Tue, 03 Aug 2010 04:51:42 -0400
Subject: [cl-plus-ssl-cvs] CVS trivial-gray-streams
Message-ID: <E1OgDDq-0004XS-4u@common-lisp.net>

Update of /project/cl-plus-ssl/cvsroot/trivial-gray-streams
In directory cl-net:/tmp/cvs-serv17447

Modified Files:
	mixin.lisp 
Log Message:
FILE-POSITION support for Allegro CL. Thanks to Bart Botta.

--- /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp	2010/05/08 15:55:55	1.11
+++ /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp	2010/08/03 08:51:41	1.12
@@ -48,9 +48,16 @@
   (defmethod excl:stream-read-sequence
       ((s trivial-gray-stream-mixin) seq &optional start end)
     (stream-read-sequence s seq (or start 0) (or end (length seq))))
+
   (defmethod stream:stream-write-sequence
       ((s trivial-gray-stream-mixin) seq &optional start end)
-    (stream-write-sequence s seq (or start 0) (or end (length seq)))))
+    (stream-write-sequence s seq (or start 0) (or end (length seq))))
+
+  (defmethod excl::stream-file-position
+       ((stream trivial-gray-stream-mixin) &optional position)
+     (if position
+         (setf (stream-file-position stream) position)
+         (stream-file-position stream))))
 
 #+cmu
 (progn