Commit 0e812d32 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.011.8: fix the return value of run-shell-command on clisp. lp#692979.

Thanks to Stas Boukarev.
parent 86dff08c
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -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
+2 −2
Original line number Diff line number Diff line
@@ -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