From fd385ef7c42b10ebf37558668d4b315ee7cddf3d Mon Sep 17 00:00:00 2001
From: Kevin Rosenberg <>
Date: Fri, 20 Sep 2002 16:23:08 +0000
Subject: [PATCH] return numeric exit status for openmcl's run-shell-command

---
 asdf.lisp        | 12 +++++++-----
 debian/changelog |  6 ++++++
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index f39e6841..1b686ace 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,4 +1,4 @@
-;;; This is asdf: Another System Definition Facility.  $Revision: 1.46 $
+;;; This is asdf: Another System Definition Facility.  $Revision: 1.47 $
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome: please mail to
 ;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -88,7 +88,7 @@
 (in-package #:asdf)
 
 ;;; parse the cvs revision into something that might be vaguely useful.  
-(defvar *asdf-revision* (let* ((v "$Revision: 1.46 $")
+(defvar *asdf-revision* (let* ((v "$Revision: 1.47 $")
 			       (colon (position #\: v))
 			       (dot (position #\. v)))
 			  (and v colon dot 
@@ -926,8 +926,10 @@ synchronously execute the result using a Bourne-compatible shell, with
 output to *trace-output*.  Returns the shell's exit code."
   (let ((command (apply #'format nil control-string args)))
     (format *trace-output* "; $ ~A~%" command)
-    (ccl:run-program "/bin/sh" (list "-c" command)
-		     :input nil :output *trace-output* :wait t)))
-
+    (nth-value 1
+       (ccl:external-process-status
+	(ccl:run-program "/bin/sh" (list "-c" command)
+			 :input nil :output *trace-output* :wait t)))))
+  
 
 (pushnew :asdf *features*)
diff --git a/debian/changelog b/debian/changelog
index 88aa9312..056cc75e 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-asdf (1.47) unstable; urgency=low
+
+  * Return numeric exit status for openmcl's run-shell-command
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri, 20 Sep 2002 10:22:36 -0600
+
 cl-asdf (1.46) unstable; urgency=low
 
   * New upstream version, adds run-shell-command for openmcl
-- 
GitLab