[cl-plus-ssl-cvs] CVS trivial-gray-streams

[avodonosov]

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