X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=9003e426f4d9e622ab923678139e5ea27e55fc13;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=4158071831a2ba00a1a96a14677ab2328bcf98d2;hpb=7306e23c5a4687bef98fdfb3459aaf15fe79d5ca;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 4158071..9003e42 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1129,7 +1129,7 @@
     ;; not work either.
     (when (echo-stream-unread-stuff stream)
       (let* ((char (read-char stream))
-             (octets (octets-to-string
+             (octets (string-to-octets
                       (string char)
                       :external-format
                       (stream-external-format