X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fos.lisp;h=0002c1b5b96d6c05ff44331e1c1425b562dd7394;hb=7653a03580807774202e699a091a2e8520db5cf8;hp=f9cc31f0a31dea5ffe6a3180440500374f519370;hpb=c6c305a69913c148753813cc057be7127017ae6a;p=uffi.git

diff --git a/src/os.lisp b/src/os.lisp
index f9cc31f..0002c1b 100644
--- a/src/os.lisp
+++ b/src/os.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Sep 2002 
 ;;;;
-;;;; $Id: os.lisp,v 1.1 2002/10/14 01:51:15 kevin Exp $
+;;;; $Id: os.lisp,v 1.2 2002/10/14 03:07:41 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg.
 ;;;; Much of this code was taken from other open source project and copyright
@@ -34,14 +34,14 @@ output to *trace-output*.  Returns the shell's exit code."
     (sb-impl::process-exit-code
      (sb-ext:run-program  
       "/bin/sh"
-      (list  "-c" command)
+      (list "-c" command)
       :input nil :output *trace-output*))
     
     #+(or cmu scl)
     (ext:process-exit-code
      (ext:run-program  
       "/bin/sh"
-      (list  "-c" command)
+      (list "-c" command)
       :input nil :output *trace-output*))
 
     #+allegro