From c4533c02d3f2ebd53178c93de2dee09ca39fe0e7 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 14 Nov 2005 19:02:46 +0000 Subject: [PATCH] r10830: Automated commit for Debian build of uffi upstream-version-1.5.6 --- debian/changelog | 6 ++++++ src/os.lisp | 14 +++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) diff --git a/debian/changelog b/debian/changelog index 0264cfe..de50323 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-uffi (1.5.6-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Mon, 14 Nov 2005 12:02:07 -0700 + cl-uffi (1.5.5-1) unstable; urgency=low * New upstream diff --git a/src/os.lisp b/src/os.lisp index c044970..bd95f05 100644 --- a/src/os.lisp +++ b/src/os.lisp @@ -5,7 +5,7 @@ ;;;; Name: os.lisp ;;;; Purpose: Operating system interface for UFFI ;;;; Programmer: Kevin M. Rosenberg -;;;; Date Started: Sep 2002 +;;;; Date Started: Sep 2002 ;;;; ;;;; $Id$ ;;;; @@ -43,27 +43,27 @@ output to *trace-output*. Returns the shell's exit code." (let ((command (apply #'format nil control-string args))) #+sbcl (sb-impl::process-exit-code - (sb-ext:run-program + (sb-ext:run-program "/bin/sh" (list "-c" command) :input nil :output output)) - + #+(or cmu scl) (ext:process-exit-code - (ext:run-program + (ext:run-program "/bin/sh" (list "-c" command) :input nil :output output)) #+allegro (excl:run-shell-command command :input nil :output output) - + #+lispworks (system:call-system-showing-output command :shell-type "/bin/sh" :output-stream output) - + #+clisp ;XXX not exactly *trace-output*, I know (ext:run-shell-command command :output :terminal :wait t) @@ -75,5 +75,5 @@ output to *trace-output*. Returns the shell's exit code." :wait t))) #-(or openmcl clisp lispworks allegro scl cmu sbcl) - (error "RUN-SHELL-PROGRAM not implemented for this Lisp") + (error "RUN-SHELL-PROGRAM not implemented for this Lisp.") )) -- 2.34.1