[cl-plus-ssl-devel] ECL support

[Pierre THIERRY]

Hi,

as I jsut discovered that ECL wasn't supported by trivial-gray-streams,
I made the patch to add support for this implementation:

diff -r ecf1552d8f01 mixin.lisp
--- a/mixin.lisp        Fri Apr 06 14:51:49 2007 +0200
+++ b/mixin.lisp        Fri Apr 06 15:34:21 2007 +0200
@@ -115,3 +115,12 @@
   ;; SBCL extension:
   (defmethod sb-gray:stream-line-length ((stream trivial-gray-stream-mixin))
     80))
+
+#+(and ecl clos-streams)
+(progn
+  (defmethod si: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 si:stream-write-sequence
+      ((s trivial-gray-stream-mixin) seq &optional start end)
+    (stream-write-sequence s seq (or start 0) (or end (length seq)))))


ECL's gray streams are a port of SBCL's ones.

Quickly,
Pierre
-- 
nowhere.man at levallois.eu.org
OpenPGP 0xD9D50D8A
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 189 bytes
Desc: Digital signature
URL: <https://mailman.common-lisp.net/pipermail/cl-plus-ssl-devel/attachments/20070406/75d35d2c/attachment.sig>