X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fbivalent-stream.impure.lisp;h=c9107f829ef1a5cf03342afaf0844a942fae60bf;hb=1e786e1a23a1f2276ec2dbe197dcc31a53b43738;hp=faf21e323cfbe29d2af019150c195c4ab3299319;hpb=56ee3433c3c2258e48fb799719688f29c71e05d4;p=sbcl.git

diff --git a/tests/bivalent-stream.impure.lisp b/tests/bivalent-stream.impure.lisp
index faf21e3..c9107f8 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))
@@ -34,4 +34,3 @@
 
 (delete-file "bivalent-stream-test.txt")
 
-(sb-ext:quit :unix-status 104)