From 0e812d3293b638c5ceef694410d92bf803e7094a Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Tue, 21 Dec 2010 11:43:07 -0500 Subject: [PATCH] 2.011.8: fix the return value of run-shell-command on clisp. lp#692979. Thanks to Stas Boukarev. --- asdf.asd | 2 +- asdf.lisp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/asdf.asd b/asdf.asd index c39a5395..23a4e1d4 100644 --- a/asdf.asd +++ b/asdf.asd @@ -12,7 +12,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." - :version "2.011.7" + :version "2.011.8" ;;:version #.(asdf:asdf-version) ; how do we make that the *described* ASDF's version rather than the *previously loaded* ASDF's version? :depends-on () :components diff --git a/asdf.lisp b/asdf.lisp index 17212bcf..363cb348 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -80,7 +80,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.011.7") + (asdf-version "2.011.8") (existing-asdf (fboundp 'find-system)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -2439,7 +2439,7 @@ output to *VERBOSE-OUT*. Returns the shell's exit code." exit-code) #+clisp ;XXX not exactly *verbose-out*, I know - (ext:run-shell-command command :output :terminal :wait t) + (or (ext:run-shell-command command :output :terminal :wait t) 0) #+clozure (nth-value 1 -- GitLab