Support ACL 9.0; patch by Gabor Melis

mixin.lisp

@@ -59,7 +59,7 @@
       ((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
+  (defmethod excl:stream-write-sequence
       ((s trivial-gray-stream-mixin) seq &optional start end)
     (stream-write-sequence s seq (or start 0) (or end (length seq))))
 

package.lisp

@@ -12,7 +12,7 @@
 
 #+allegro
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (unless (fboundp 'stream:stream-write-string)
+  (unless (fboundp 'excl:stream-write-string)
     (require "streamc.fasl")))
 
 #+ecl