X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fterminal.lisp;h=07feaa9936e59f10e73ba353a15759a51127c979;hb=f057566fe993f008a9b34dc87b026e7c8ef2611d;hp=fc16adc68dd8be7e4c75413345773b6410637603;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/contrib/sb-simple-streams/terminal.lisp b/contrib/sb-simple-streams/terminal.lisp
index fc16adc..07feaa9 100644
--- a/contrib/sb-simple-streams/terminal.lisp
+++ b/contrib/sb-simple-streams/terminal.lisp
@@ -53,9 +53,9 @@
 
 (defmethod device-clear-input ((stream terminal-simple-stream) buffer-only)
   (unless buffer-only
-    (let ((buffer (allocate-buffer sb-impl::bytes-per-buffer)))
+    (let ((buffer (allocate-buffer sb-impl::+bytes-per-buffer+)))
       (unwind-protect
            (loop until (<= (read-octets stream buffer
-                                        0 sb-impl::bytes-per-buffer nil)
+                                        0 sb-impl::+bytes-per-buffer+ nil)
                            0))
         (free-buffer buffer)))))