Commit ABCL patch submitted by Mark Evenson

mixin.lisp

@@ -29,6 +29,20 @@
   (declare (ignore newval))
   nil)
 
+#+abcl
+(progn
+  (defmethod gray-streams: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-streams: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-streams:stream-write-string 
+      ((stream xp::xp-structure) string &optional (start 0) (end (length string)))
+    (xp::write-string+ string stream start end)))
+
 #+allegro
 (progn
   (defmethod excl:stream-read-sequence

package.lisp

@@ -2,6 +2,10 @@
 
 (in-package :cl-user)
 
+#+:abcl
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (require :gray-streams))
+
 #+cmu
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require :gray-streams))
@@ -40,8 +44,9 @@
 			  #+clisp :gray
 			  #+openmcl :ccl
 			  #+lispworks :stream
-			  #+ecl :gray
-			  #-(or sbcl allegro cmu clisp openmcl lispworks ecl) ...
+                          #+ecl :gray
+			  #+abcl :gray-streams
+			  #-(or sbcl allegro cmu clisp openmcl lispworks ecl abcl) ...
 			  ,@common-symbols)
 	    (:export #:trivial-gray-stream-mixin
 		     #:stream-read-sequence