#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." }}} -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/262#comment:4> armedbear <http://common-lisp.net/project/armedbear> armedbear