ABCL patch for STREAM-FILE-POSITION. By Mark Evenson <evenson@panix.com>.

mixin.lisp

@@ -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