Skip to content
Snippets Groups Projects
Commit a65deb43 authored by Mark's avatar Mark
Browse files

uiop/run-program: fix abcl version identifier for development releases

parent ec88be65
No related branches found
No related tags found
No related merge requests found
...@@ -1012,7 +1012,12 @@ or :error-output." ...@@ -1012,7 +1012,12 @@ or :error-output."
(declare (ignorable keys directory input if-input-does-not-exist output (declare (ignorable keys directory input if-input-does-not-exist output
if-output-exists error-output if-error-output-exists)) if-output-exists error-output if-error-output-exists))
#+(or abcl allegro clozure cmucl ecl (and lispworks os-unix) mkcl sbcl scl) #+(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 (nest
#+abcl (unless (lexicographic< '< version '(1 4 0))) #+abcl (unless (lexicographic< '< version '(1 4 0)))
#+ecl (unless (lexicographic<= '< version '(16 0 0))) #+ecl (unless (lexicographic<= '< version '(16 0 0)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment