November 2016 - armedbear-ticket - mailman3.common-lisp.net

[armedbear] #402: Start publishing abcl binary maven artifacts
by armedbear 19 Nov '16

19 Nov '16

#402: Start publishing abcl binary maven artifacts ----------------------+---------------------------- Reporter: mevenson | Owner: Type: defect | Status: new Priority: major | Milestone: 1.3.4 Component: other | Version: 1.4.0-dev Keywords: | Parent Tickets: ----------------------+---------------------------- We should figure out how to get the abcl binary artifacts back into the public Maven repository system -- Ticket URL: <http://abcl.org/trac/ticket/402> armedbear <http://abcl.org> armedbear

1 2

[armedbear] #420: Add ability to optimize function calls with lambda in function position. Use it to optimize jss
by armedbear 17 Nov '16

17 Nov '16

#420: Add ability to optimize function calls with lambda in function position. Use it to optimize jss --------------------------+---------------------------- Reporter: mevenson | Owner: Type: enhancement | Status: new Priority: major | Milestone: 1.5.0 Component: compiler | Version: 1.5.0-dev Keywords: github-issue | Parent Tickets: --------------------------+---------------------------- Precompiler: When compiling a form with a lambda in the function position, possibly optimize it Case 1: If the lambda has a single form in it, let someone define a transform using: define-function-position-lambda-transform (body-function-name (arglist form args) &body body) body-function-name is the car of the single form in the lambda arglist is the arglist of the lambda form is the single form within the lambda args are the arguments to which the lambda will be defined. The function should check whether it can do a transform, and do it if so, otherwise return nil signalling it couldn't Case 2: If case 1 is not successful then if the arglist is a simple one (no &key, &rest, &optional) then do a standard beta-reduction binding the args to arglist using let (https://wiki.haskell.org/Beta_reduction) If not, return and do the usual thing. An example is in contrib/jss/optimize-java-call.lisp To see benefits, (compile-file contrib/jss/test-optimize-java-call.lisp) and then load the compiled file. You should see something like the below which reports the timings for the optimized and unoptimized version of 10000 calls of (#"compile" 'regex.pattern ".*") -- With optimization: (INVOKE-RESTARGS-MACRO "compile" (QUOTE REGEX.PATTERN) (LIST ".") NIL T) Without optimization: ((LAMBDA (#:G85648 &REST #:G85649) (INVOKE-RESTARGS "compile" #:G85648 #:G85649 NIL)) (QUOTE REGEX.PATTERN) ".") JUST-LOOP 0.0 seconds real time 0 cons cells OPTIMIZED-JSS 0.011 seconds real time 0 cons cells UNOPTIMIZED-JSS 0.325 seconds real time 800156 cons cells See: https://mailman.common-lisp.net/pipermail/armedbear- devel/2016-October/003726.html https://mailman.common-lisp.net/pipermail/armedbear- devel/2016-November/003733.html -- Ticket URL: <http://abcl.org/trac/ticket/420> armedbear <http://abcl.org> armedbear

1 4

Re: [armedbear] #167: series fails to compile
by armedbear 17 Nov '16

17 Nov '16

#167: series fails to compile ---------------------------+--------------------------------------- Reporter: mevenson | Owner: ehuelsmann Type: defect | Status: new Priority: minor | Milestone: 1.5.0 Component: compiler | Version: 0.27 Resolution: | Keywords: quicklisp series compiler Parent Tickets: | ---------------------------+--------------------------------------- Changes (by mevenson): * priority: major => minor Comment: New error: SERIES {{{ #<QL-DIST:SYSTEM series-tests / series-20131111-git / quicklisp 2016-10-31>}}}} from {{{quicklisp 2016-10-31}}} fails due to a conflict with CL:LOOP. SERIES should probably fix {{{ A symbol named COLLECT is already accessible in package COMMON-LISP-USER. [Condition of type PACKAGE-ERROR] Restarts: 0: [RETRY] Retry compiling #<ASDF/LISP-ACTION:CL-SOURCE-FILE "series- tests" "s-test">. 1: [ACCEPT] Continue, treating compiling #<ASDF/LISP-ACTION:CL-SOURCE- FILE "series-tests" "s-test"> as having been successful. 2: [RETRY] Retry TEST-OP on #<ASDF/SYSTEM:SYSTEM "series">. 3: [ACCEPT] Continue, treating TEST-OP on #<ASDF/SYSTEM:SYSTEM "series"> as having been successful. 4: [RETRY] Retry ASDF operation. 5: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the configuration. --more-- Backtrace: 0: (#<FUNCTION {390BC3CF}> #<PACKAGE-ERROR {DB163CD}> #<FUNCTION {390BC3CF}>) 1: (APPLY #<FUNCTION {390BC3CF}> (#<PACKAGE-ERROR {DB163CD}> #<FUNCTION {390BC3CF}>)) 2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<PACKAGE-ERROR {DB163CD}> #<FUNCTION {390BC3CF}>) 3: (INVOKE-DEBUGGER #<PACKAGE-ERROR {DB163CD}>) 4: org.armedbear.lisp.Lisp.error(Lisp.java:382) 5: org.armedbear.lisp.Package.usePackage(Package.java:647) 6: org.armedbear.lisp.Primitives$pf_use_package.execute(Primitives.java:3342) 7: (USE-PACKAGE :SERIES #<PACKAGE COMMON-LISP-USER>) }}} -- Ticket URL: <http://abcl.org/trac/ticket/167#comment:7> armedbear <http://abcl.org> armedbear

1 0

[armedbear] #390: ABCL-ASDF:RESOLVE not working
by armedbear 17 Nov '16

17 Nov '16

#390: ABCL-ASDF:RESOLVE not working --------------------------+---------------------------- Reporter: mevenson | Owner: Type: defect | Status: new Priority: critical | Milestone: 1.4.0 Component: abcl-contrib | Version: 1.4.0-dev Keywords: abcl-asdf | Parent Tickets: --------------------------+---------------------------- Without the presence of a <file:~/.m2/> directory, populated by command line mvn usage, the ABCL-ASDF mechanism is not working: {{{ CL-USER> (ABCL-ASDF:RESOLVE-DEPENDENCIES "net.java.dev.jna" "jna" :VERSION "4.1.0") }}} {{{ Java exception 'org.eclipse.aether.collection.DependencyCollectionException: Failed to read artifact descriptor for net.java.dev.jna:jna:jar:4.1.0'. [Condition of type JAVA-EXCEPTION] Restarts: 0: [RETRY] Retry compiling #<ASDF/INTERFACE:MVN "jna" "net.java.dev.jna/jna/4.1.0">. 1: [ACCEPT] Continue, treating compiling #<ASDF/INTERFACE:MVN "jna" "net.java.dev.jna/jna/4.1.0"> as having been successful. 2: [RETRY] Retry ASDF operation. 3: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the configuration. 4: [RETRY] Retry SLIME REPL evaluation request. 5: [*ABORT] Return to SLIME's top level. }}} Switching between Maven versions 3.2.5 and 3.3.3 seems to give the same problems. -- Ticket URL: <http://abcl.org/trac/ticket/390> armedbear <http://abcl.org> armedbear

1 6

Re: [armedbear] #251: CFFI callbacks don't unbox integer values
by armedbear 17 Nov '16

17 Nov '16

#251: CFFI callbacks don't unbox integer values ----------------------------+----------------------------------- Reporter: sboukarev | Owner: mevenson Type: defect | Status: closed Priority: blocker | Milestone: 1.4.0 Component: libraries | Version: 1.1.0-dev Resolution: fixed | Keywords: quicklisp cffi cl+ssl Parent Tickets: | ----------------------------+----------------------------------- Changes (by mevenson): * status: reopened => closed * resolution: => fixed * milestone: 1.5.0 => 1.4.0 -- Ticket URL: <http://abcl.org/trac/ticket/251#comment:19> armedbear <http://abcl.org> armedbear

1 0

[Armedbear-ticket] [armedbear] #355: cl+ssl/drakma fails on https requests
by armedbear 17 Nov '16

17 Nov '16

#355: cl+ssl/drakma fails on https requests ---------------------+----------------- Reporter: charmon | Owner: Type: defect | Status: new Priority: major | Milestone: Component: (A)MOP | Version: Keywords: | ---------------------+----------------- The following shows what happens if you try to fetch a URL using DRAKMA and https: CL-USER> (ql:quickload 'cl+ssl) To load "cl+ssl": Load 1 ASDF system: cl+ssl ; Loading "cl+ssl" ......... Using probed value of abcl-contrib: '/Users/sly/src/abcl/dist/abcl-contrib.jar'. Added jar:file:/Users/sly/src/abcl/dist/abcl-contrib.jar!/quicklisp/ to ASDF. Added jar:file:/Users/sly/src/abcl/dist/abcl-contrib.jar!/mvn/ to ASDF. Added jar:file:/Users/sly/src/abcl/dist/abcl-contrib.jar!/jss/ to ASDF. Added jar:file:/Users/sly/src/abcl/dist/abcl-contrib.jar!/jfli/ to ASDF. Added jar:file:/Users/sly/src/abcl/dist/abcl-contrib.jar!/asdf-jar/ to ASDF. Added jar:file:/Users/sly/src/abcl/dist/abcl-contrib.jar!/asdf-install/ to ASDF. Added jar:file:/Users/sly/src/abcl/dist/abcl-contrib.jar!/abcl-asdf/ to ASDF. . ARTIFACT_RESOLVING net.java.dev.jna:jna:pom:4.0.0 ARTIFACT_RESOLVED net.java.dev.jna:jna:pom:4.0.0 (/Users/sly/.m2/repository/net/java/dev/jna/jna/4.0.0/jna-4.0.0.pom) @ central (http://repo1.maven.org/maven2/, releases+snapshots) ARTIFACT_RESOLVING net.java.dev.jna:jna:jar:4.0.0 ARTIFACT_RESOLVED net.java.dev.jna:jna:jar:4.0.0 (/Users/sly/.m2/repository/net/java/dev/jna/jna/4.0.0/jna-4.0.0.jar) @ central (http://repo1.maven.org/maven2/, releases+snapshots) ... (CL+SSL) CL-USER> (ql:quickload 'drakma) To load "drakma": Load 1 ASDF system: drakma ; Loading "drakma" .... (DRAKMA) CL-USER> (drakma:http-request "https://www.google.com/") A failure in the SSL library occurred on handle #<com.sun.jna.Pointer native@0x7ffe7cc007f0 {6777A3D7}> (return code: 1). SSL error queue: error:140C5042:SSL routines:SSL_UNDEFINED_FUNCTION:called a function you should not call [Condition of type CL+SSL::SSL-ERROR-SSL] Restarts: 0: [RETRY] Retry SLIME REPL evaluation request. 1: [*ABORT] Return to SLIME's top level. 2: [ABORT] Abort thread. Backtrace: 0: (#<FUNCTION {4026A35B}> #<CL+SSL::SSL-ERROR-SSL {306F7D00}> #<FUNCTION {4026A35B}>) 1: (APPLY #<FUNCTION {4026A35B}> (#<CL+SSL::SSL-ERROR-SSL {306F7D00}> #<FUNCTION {4026A35B}>)) 2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<CL+SSL::SSL-ERROR- SSL {306F7D00}> #<FUNCTION {4026A35B}>) 3: (INVOKE-DEBUGGER #<CL+SSL::SSL-ERROR-SSL {306F7D00}>) 4: (ERROR CL+SSL::SSL-ERROR-SSL :HANDLE #<com.sun.jna.Pointer native@0x7ffe7cc007f0 {6777A3D7}> :RET 1 ...) 5: (#<FUNCTION {28AECC44}> (#<CL+SSL::SSL-STREAM {6BE49939}>)) 6: (#<FUNCTION {6D07A485}> (#<CL+SSL::SSL-STREAM {6BE49939}>)) 7: (GRAY-STREAMS:STREAM-FINISH-OUTPUT #<CL+SSL::SSL-STREAM {6BE49939}>) 8: (SYSTEM::%FINISH-OUTPUT #<CL+SSL::SSL-STREAM {6BE49939}>) 9: (FINISH-OUTPUT #<CL+SSL::SSL-STREAM {6BE49939}>) 10: (#<FUNCTION (LAMBDA (CL+SSL::CALLBACK-ARG-BIO- CL+SSL::CALLBACK-ARG- BUF- CL+SSL::CALLBACK-ARG-N-)) {10C24FAF}> #<com.sun.jna.Pointer native@0x7ffe7cb929c0 {44FD72C1}> #<com.sun.jna.Pointer native@0x7f.. 11: (JCALL #<java.lang.reflect.Method public java.lang.Object com.sun..... {6008072D}> #<com.sun.jna.Function native function SSL_connect(<pro.... {2F0F4C9C}> #<java.lang.Class class java.lang.Integer {15.. 12: (CL+SSL::SSL-CONNECT #<com.sun.jna.Pointer native@0x7ffe7cc007f0 {6777A3D7}>) 13: (CL+SSL:MAKE-SSL-CLIENT-STREAM #<TWO-WAY-STREAM {7FB606A}> :CLOSE- CALLBACK #<FUNCTION {876D33E}> :CERTIFICATE NIL ...) 14: (DRAKMA::MAKE-SSL-STREAM #<TWO-WAY-STREAM {7FB606A}> :CERTIFICATE NIL :KEY NIL ...) 15: (DRAKMA:HTTP-REQUEST "https://www.google.com/") 16: (SYSTEM::%EVAL (DRAKMA:HTTP-REQUEST "https://www.google.com/")) 17: (EVAL (DRAKMA:HTTP-REQUEST "https://www.google.com/")) --more-- I'm not sure if this is an ABCL problem, a DRAKMA problem, a CFFI problem, or a CL+SSL problem, but my guess is it's a ABCL problem. -- Ticket URL: <http://abcl.org/trac/ticket/355> armedbear <http://abcl.org> armedbear

1 1

[armedbear] #418: maven-embedder needs maven on classpath in order to compile
by armedbear 17 Nov '16

17 Nov '16

#418: maven-embedder needs maven on classpath in order to compile ------------------------------------+------------------------ Reporter: mevenson | Owner: Type: defect | Status: new Priority: major | Milestone: 1.5.0 Component: abcl-contrib | Version: Keywords: github-issue abcl-asdf | Parent Tickets: ------------------------------------+------------------------ From Alan <https://github.com/armedbear/abcl/issues/10>: […] maven-embedder.lisp needs to be recompiled when abcl-asdf is required. Periodically I tear my hair out trying to figure out how to make an initial test run of abcl.jar how to know that. What do you think of wrapping the first part (up until init is defined) and then calling init inside an eval-when? Might be nice to add a build target that installs maven if mvn isn't on PATH. {{{ @@ -41,6 +41,7 @@ Test: |# +(eval-when (:compile-toplevel :load-toplevel :execute) (defparameter *maven-verbose* t "Stream to send output from the Maven Aether subsystem to, or NIL to muffle output") @@ -222,7 +224,10 @@ of the mvn executable with an explicit value." (error "Please obtain and install maven-3.0.3 or later locally from <http://maven.apache.org/download.html>, then set ABCL-ASDF:*MVN-LIBS- DIRECTORY* to the directory containing maven-core-3.*.jar et. al.")) (unless (ensure-mvn-version) (error "We need maven-3.0.3 or later.")) (add-directory-jars-to- class-path *mvn-libs-directory* nil) - (setf *init* t)) + (setf *init* t)) + +(init)) + }}} -- Ticket URL: <http://abcl.org/trac/ticket/418> armedbear <http://abcl.org> armedbear

1 3

[armedbear] #419: getFunctionClassBytes for CompiledClosures
by armedbear 17 Nov '16

17 Nov '16

#419: getFunctionClassBytes for CompiledClosures --------------------------+---------------------------- Reporter: mevenson | Owner: Type: defect | Status: new Priority: major | Milestone: 1.5.0 Component: compiler | Version: 1.5.0-dev Keywords: github-issue | Parent Tickets: --------------------------+---------------------------- Alan reports on Github <https://github.com/armedbear/abcl/issues/3>: {{{ Can't seem to make it work. This is code that works for other functions (let ((classloader (#"getClassLoader" class))) (if (or (java:jinstance-of-p classloader "org.armedbear.lisp.MemoryClassLoader") (java:jinstance-of-p classloader "org.armedbear.lisp.FaslClassLoader")) (system::disassemble-class-bytes (#"getFunctionClassBytes" classloader class)) }}} -- Ticket URL: <http://abcl.org/trac/ticket/419> armedbear <http://abcl.org> armedbear

1 2

[armedbear] #416: Have abcl.jar include java and lisp source code by default
by armedbear 16 Nov '16

16 Nov '16

#416: Have abcl.jar include java and lisp source code by default --------------------------+---------------------- Reporter: mevenson | Owner: Type: defect | Status: new Priority: major | Milestone: Component: (A)MOP | Version: Keywords: github-issue | Parent Tickets: --------------------------+---------------------- c.f. <https://github.com/armedbear/abcl/issues/6> -- Ticket URL: <http://abcl.org/trac/ticket/416> armedbear <http://abcl.org> armedbear

1 8