X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-program.impure.lisp;h=2f608b463f99fda9b12421499e4ac23c17549486;hb=447477e72bd4fe54e678a28bdcc4a2802797d6ed;hp=609976aacdbabfb66500f680d0b1c5b48c725bd1;hpb=fe5cd1af557ea21675dc72c8c4c581781613025d;p=sbcl.git

diff --git a/tests/run-program.impure.lisp b/tests/run-program.impure.lisp
index 609976a..2f608b4 100644
--- a/tests/run-program.impure.lisp
+++ b/tests/run-program.impure.lisp
@@ -44,12 +44,12 @@
 
 (defun make-pipe ()
   (multiple-value-bind (in out) (sb-posix:pipe)
-    (let ((input (sb-sys:make-fd-stream in 
-                                        :input t 
+    (let ((input (sb-sys:make-fd-stream in
+                                        :input t
                                         :external-format :ascii
                                         :buffering :none :name "in"))
-          (output (sb-sys:make-fd-stream out 
-                                         :output t 
+          (output (sb-sys:make-fd-stream out
+                                         :output t
                                          :external-format :ascii
                                          :buffering :none :name "out")))
       (make-two-way-stream input output))))
@@ -59,7 +59,7 @@
 (defvar *out-pipe* (make-pipe))
 (defvar *out* (make-synonym-stream '*out-pipe*))
 
-(defvar *ed* 
+(defvar *ed*
   (run-program "/bin/ed" (list *tmpfile*) :input *in* :output *out* :wait nil))
 
 (defun real-input (stream)