Fix make-array transforms.

[sbcl.git] / tests / bivalent-stream.impure.lisp

diff --git a/tests/bivalent-stream.impure.lisp b/tests/bivalent-stream.impure.lisp
index faf21e3..c9107f8 100644 (file)
--- 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)