projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10830: Automated commit for Debian build of uffi upstream-version-1.5.6
[uffi.git]
/
src
/
os.lisp
diff --git
a/src/os.lisp
b/src/os.lisp
index c04497065dfa51e5cbd649c31a79c5c1bd84a191..bd95f05385db385547ab0551ec6662b712f4126c 100644
(file)
--- 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
;;;; Name: os.lisp
;;;; Purpose: Operating system interface for UFFI
;;;; Programmer: Kevin M. Rosenberg
-;;;; Date Started: Sep 2002
+;;;; Date Started: Sep 2002
;;;;
;;;; $Id$
;;;;
;;;;
;;;; $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
(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))
"/bin/sh"
(list "-c" command)
:input nil :output output))
-
+
#+(or cmu scl)
(ext:process-exit-code
#+(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)
"/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)
#+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)
#+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)
: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
.
")
))
))