From c5a0c97d7020d9a1ed17710ace586fef4ad1ae12 Mon Sep 17 00:00:00 2001 From: Mark <evenson.not.org@gmail.com> Date: Tue, 29 Nov 2016 21:02:40 +0100 Subject: [PATCH] uiop/run-program: fix abcl version identifier for development releases --- uiop/run-program.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index 9e72b754f..94a4b5314 100644 --- a/uiop/run-program.lisp +++ b/uiop/run-program.lisp @@ -1012,7 +1012,12 @@ or :error-output." (declare (ignorable keys directory input if-input-does-not-exist output if-output-exists error-output if-error-output-exists)) #+(or abcl allegro clozure cmucl ecl (and lispworks os-unix) mkcl sbcl scl) - (let (#+(or abcl ecl mkcl) (version (parse-version (lisp-implementation-version)))) + (let (#+(or abcl ecl mkcl) + (version (parse-version + #-abcl + (lisp-implementation-version) + #+abcl + (second (split-string (implementation-identifier) :separator '(#\-)))))) (nest #+abcl (unless (lexicographic< '< version '(1 4 0))) #+ecl (unless (lexicographic<= '< version '(16 0 0))) -- GitLab