[armedbear-ticket] [armedbear] #262: fails to (require :jna)

[armedbear]

#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