[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-serv15401

Modified Files:
	mixin.lisp 
Log Message:
ABCL patch for STREAM-FILE-POSITION. By Mark Evenson <evenson at panix.com>.

--- /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp	2010/08/03 08:51:41	1.12
+++ /project/cl-plus-ssl/cvsroot/trivial-gray-streams/mixin.lisp	2011/03/29 10:34:57	1.13
@@ -41,7 +41,14 @@
   
   (defmethod gray-streams:stream-write-string 
       ((stream xp::xp-structure) string &optional (start 0) (end (length string)))
-    (xp::write-string+ string stream start end)))
+    (xp::write-string+ string stream start end))
+  
+  #+#.(cl:if (cl:find-symbol "STREAM-FILE-POSITION" :gray-streams) '(cl:and) '(cl:or))
+  (defmethod gray-streams:stream-file-position
+      ((s trivial-gray-stream-mixin) &optional position)
+    (if position
+        (setf (stream-file-position s) position)
+        (stream-file-position s))))
 
 #+allegro
 (progn