[Sbcl-commits] master: A couple more :element-mode 'character for streams.

[stassats <sta...@us...>]

The branch "master" has been updated in SBCL:
       via  318e1450126fac36c932499055a4375aba2f7e43 (commit)
      from  704cd3ff7ede803df316076d0ec8b19c2d896df1 (commit)

- Log -----------------------------------------------------------------
commit 318e1450126fac36c932499055a4375aba2f7e43
Author: Stas Boukarev <sta...@gm...>
Date:   Thu Oct 6 23:43:15 2016 +0300

    A couple more :element-mode 'character for streams.
---
 src/code/stream.lisp |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 967bdce..4a203e5 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1767,9 +1767,10 @@ benefit of the function GET-OUTPUT-STREAM-STRING."
            (if found
                (- end (the fixnum found))
                current)))))
-     (:element-type
+    (:element-type
       (array-element-type
-       (fill-pointer-output-stream-string stream)))))
+       (fill-pointer-output-stream-string stream)))
+    (:element-mode 'character)))
 
 ;;;; case frobbing streams, used by FORMAT ~(...~)
 
@@ -1822,6 +1823,7 @@ benefit of the function GET-OUTPUT-STREAM-STRING."
   (case op
     (:close
      (set-closed-flame stream))
+    (:element-mode 'character)
     (t
      (let ((target (case-frob-stream-target stream)))
        (if (ansi-stream-p target)

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL