From a65deb4319c4e946a1bb6760952fb4fe53ef9dc9 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