#262: fails to (require :jna) --------------------------------------------+------------------------------- Reporter: https://openid.fau.de/eg74yneg | Owner: mevenson Type: defect | Status: new Priority: major | Milestone: Component: abcl-contrib | Version: Keywords: | --------------------------------------------+-------------------------------
Comment(by https://openid.fau.de/eg74yneg):
Following patch works for me
{{{ Index: contrib/abcl-asdf/maven-embedder.lisp =================================================================== --- contrib/abcl-asdf/maven-embedder.lisp (revision 14231) +++ contrib/abcl-asdf/maven-embedder.lisp (working copy) @@ -114,21 +114,21 @@
(defun mvn-version () "Return the Maven version used by the Aether connector." - (let* ((line - (read-line (sys::process-output - (sys::run-program - (namestring (find-mvn)) '("-version"))))) - (pattern (#"compile" - 'regex.Pattern - "Apache Maven ([0-9]+)\.([0-9]+)\.([0-9]+)")) - (matcher (#"matcher" pattern line)) - (found (#"find" matcher))) - (unless found - (return-from mvn-version nil)) - (mapcar #'parse-integer - `(,(#"group" matcher 1) - ,(#"group" matcher 2) - ,(#"group" matcher 3))))) + (let ((stream (sys::process-output + (sys::run-program + (namestring (find-mvn)) '("-version"))))) + (do ((line (read-line stream nil) (read-line stream nil)) + (pattern (#"compile" + 'regex.Pattern + "Apache Maven ([0-9]+)\.([0-9]+)\.([0-9]+)"))) + ((not line) nil) + (let ((matcher (#"matcher" pattern line))) + (when (#"find" matcher) + (return-from mvn-version + (mapcar #'parse-integer + `(,(#"group" matcher 1) + ,(#"group" matcher 2) + ,(#"group" matcher 3))))))))
(defun ensure-mvn-version () "Return t if Maven version is 3.0.3 or greater." }}}