r2998: add sbcl support

[uffi.git] / src / os.lisp

diff --git a/src/os.lisp b/src/os.lisp
index f9cc31f0a31dea5ffe6a3180440500374f519370..0002c1b5b96d6c05ff44331e1c1425b562dd7394 100644 (file)
--- 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