X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fbivalent-stream.impure.lisp;fp=tests%2Fbivalent-stream.impure.lisp;h=56b5893b675fdbf1b857bdf9bfffc8a39ca31d21;hb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;hp=faf21e323cfbe29d2af019150c195c4ab3299319;hpb=79cc569a97e444389350ea3f5b1017374fe16bec;p=sbcl.git

diff --git a/tests/bivalent-stream.impure.lisp b/tests/bivalent-stream.impure.lisp
index faf21e3..56b5893 100644
--- a/tests/bivalent-stream.impure.lisp
+++ b/tests/bivalent-stream.impure.lisp
@@ -10,23 +10,23 @@
 ;;;; While most of SBCL is derived from the CMU CL system, the test
 ;;;; files (like this one) were written from scratch after the fork
 ;;;; from CMU CL.
-;;;; 
+;;;;
 ;;;; This software is in the public domain and is provided with
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
 ;;; Test character decode restarts.
 (with-open-file (s "bivalent-stream-test.txt" :direction :output
-		 :if-exists :supersede 
-		 :element-type :default :external-format :utf-8)
+                 :if-exists :supersede
+                 :element-type :default :external-format :utf-8)
   (write-byte 65 s)
   (write-char #\B s)
   (write-byte #xe0 s)
   (write-char #\C s))
 
 (with-open-file (s "bivalent-stream-test.txt" :direction :input
-		 :element-type :default
-		 :external-format :utf-8)
+                 :element-type :default
+                 :external-format :utf-8)
   (assert (eql (read-char s nil s) #\A))
   (assert (eql (read-byte s nil s) 66))
   (assert (eql (read-byte s nil s) #xe0))