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

diff --git a/contrib/sb-simple-streams/terminal.lisp b/contrib/sb-simple-streams/terminal.lisp
index b4b82d9..07feaa9 100644
--- a/contrib/sb-simple-streams/terminal.lisp
+++ b/contrib/sb-simple-streams/terminal.lisp
@@ -3,7 +3,7 @@
 ;;; **********************************************************************
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
-;;; 
+;;;
 
 ;;; Sbcl port by Rudi Schlatte.
 
@@ -26,7 +26,7 @@
       (setf (sm input-handle stream) (getf options :input-handle))
       (add-stream-instance-flags stream :simple :dual :input)
       (when (sb-unix:unix-isatty (sm input-handle stream))
-	(add-stream-instance-flags stream :interactive))
+        (add-stream-instance-flags stream :interactive))
       (unless (sm buffer stream)
         (let ((length (device-buffer-length stream)))
           (setf (sm buffer stream) (allocate-buffer length)
@@ -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))
-	(free-buffer buffer)))))
+           (loop until (<= (read-octets stream buffer
+                                        0 sb-impl::+bytes-per-buffer+ nil)
+                           0))
+        (free-buffer buffer)))))