X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fnull.lisp;h=4747189199c4f7b855785c8a2b63b19496aa1593;hb=5d3ffab45b1bb78be7f1767e1e439d8f661ab796;hp=a820e968ca113fc63047a9d699c04c84562507cd;hpb=cc9a73604f696b6e69842a95b1e11f40f8cdd7bf;p=sbcl.git

diff --git a/contrib/sb-simple-streams/null.lisp b/contrib/sb-simple-streams/null.lisp
index a820e96..4747189 100644
--- a/contrib/sb-simple-streams/null.lisp
+++ b/contrib/sb-simple-streams/null.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.
 
@@ -52,22 +52,22 @@
     ;;(install-single-channel-character-strategy
     ;; stream (getf options :external-format :default) nil)
     (setf (sm j-read-char stream) #'null-read-char
-	  (sm j-read-chars stream) #'null-read-chars
-	  (sm j-unread-char stream) #'null-unread-char
-	  (sm j-write-char stream) #'null-write-char
-	  (sm j-write-chars stream) #'null-write-chars
-	  (sm j-listen stream) #'null-listen))
+          (sm j-read-chars stream) #'null-read-chars
+          (sm j-unread-char stream) #'null-unread-char
+          (sm j-write-char stream) #'null-write-char
+          (sm j-write-chars stream) #'null-write-chars
+          (sm j-listen stream) #'null-listen))
   stream)
 
 (defmethod device-buffer-length ((stream null-simple-stream))
   256)
 
 (defmethod device-read ((stream null-simple-stream) buffer
-			start end blocking)
+                        start end blocking)
   (declare (ignore buffer start end blocking))
   -1)
 
 (defmethod device-write ((stream null-simple-stream) buffer
-			 start end blocking)
+                         start end blocking)
   (declare (ignore buffer blocking))
   (- end start))