[cl-plus-ssl-devel] ABCL patch for trivial-gray-streams using STREAM-FILE-POSITION

[Anton Vodonosov]

Thank you, commited.

28.03.2011, 17:43, "Mark Evenson" <evenson at panix.com>:
> ABCL [recently added support for STREAM-FILE-POSITION][r13255] which
> allows us to pass the flexi-stream internal test suite.
>
> Please consider the [referenced patch][1] which conditionally includes
> this function for inclusion in trivial-gray-streams.   This function
> will be included as part of the unreleased abcl-0.26.0, so for now the
> conditional reader macro is the better way to implement this.
>
> [r13255]: http://trac.common-lisp.net/armedbear/changeset/13255
>
> [1]:
> http://detroit.slack.net/~evenson/abcl/trivial-gray-streams-abcl-20110328a.patch
>
> --
> "A screaming comes across the sky.  It has happened before, but there
> is nothing to compare to it now."
>
> diff -r 0e562d291f07 mixin.lisp
> --- a/mixin.lisp Tue Mar 22 12:30:52 2011 +0100
> +++ b/mixin.lisp Mon Mar 28 14:00:32 2011 +0200
> @@ -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
>
> _______________________________________________
> cl-plus-ssl-devel mailing list
> cl-plus-ssl-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/cl-plus-ssl-devel