Added support for MOCL

mixin.lisp

@@ -202,3 +202,17 @@
   (defmethod gray:stream-write-sequence
     ((s trivial-gray-stream-mixin) seq &optional start end)
     (stream-write-sequence s seq (or start 0) (or end (length seq)))))
+
+#+mocl
+(progn
+  (defmethod gray: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 gray:stream-write-sequence
+      ((s trivial-gray-stream-mixin) seq &optional start end)
+    (stream-write-sequence s seq (or start 0) (or end (length seq))))
+  (defmethod gray:stream-file-position
+      ((stream trivial-gray-stream-mixin) &optional position)
+    (if position
+	(setf (stream-file-position stream) position)
+	(stream-file-position stream))))

package.lisp

@@ -41,12 +41,11 @@
 	    (:import-from #+sbcl :sb-gray
 			  #+allegro :excl
 			  #+cmu :ext
-			  #+clisp :gray
+			  #+(or clisp ecl mocl) :gray
 			  #+openmcl :ccl
 			  #+lispworks :stream
-                          #+ecl :gray
 			  #+abcl :gray-streams
-			  #-(or sbcl allegro cmu clisp openmcl lispworks ecl abcl) ...
+			  #-(or sbcl allegro cmu clisp openmcl lispworks ecl abcl mocl) ...
 			  ,@common-symbols)
 	    (:export #:trivial-gray-stream-mixin
 		     #:stream-read-sequence