August 2010 - armedbear-devel - mailman3.common-lisp.net

[armedbear-devel] json-rpc?
by Axel Rauschmayer 27 Apr '11

27 Apr '11

I think ABCL would make an excellent Ajax server. As such, it would have to support json-rpc. Any suggestions as to how to make this happen? The first part is obviously the server, where the two choices that I can see are Hunchentoot and a servlet container such as Tomcat. In the latter case, I would expect to use a technique like abcl-web (which seems a little bit complicated, but doable). The second part is the JSON parsing. How would I do that? Via CL-JSON? Via Yason? Via a Java library? Sorry for these newbie questions. I’m just getting started with Common Lisp and ABCL. Thanks, Axel -- Axel.Rauschmayer(a)ifi.lmu.de http://www.pst.ifi.lmu.de/~rauschma/

4 10

[armedbear-devel] is there a good method to read/write java byte arrays?
by David Kirkman 01 Dec '10

01 Dec '10

Does anybody know of a good way to serialize lisp objects into java byte arrays? I've got a method that almost works, but if anybody has a better/canonical way of doing this I'd love to know! I've been trying to use cl-store, outputting to a stream I create with sys::%make-byte-array-output-stream, and then getting the byte array with sys::%get-output-stream-bytes. I've only been using abcl for a few days, and I found those functions by grepping through the sources, so I apologize if I'm inviting trouble by messing around with functions you never meant users to play with. Anyway, the output works fine. But I can't find the equivalent of sys::%make-byte-array-output-stream to create an input stream, so I attempted to make my own (defun make-byte-array-input-stream (bytes) (let ((bis (jnew (jconstructor "java.io.ByteArrayInputStream" "[B") bytes))) (jnew (jconstructor "org.armedbear.lisp.Stream" "java.io.InputStream") bis))) This almost seems to work, but if I try to use it I get a java exception and a (very long) java stack trace. I put a copy of the stack trace at the end of this message. Here is an expression which will produce the problem in abcl-18.1 (let ((outbytes (with-open-stream (stream (sys::%make-byte-array-output-stream)) (write-byte 101 stream) (sys::%get-output-stream-bytes stream)))) ;; now open the byte array as an input stream (with-open-stream (stream (make-byte-array-input-stream outbytes)) ;; all works fine until here (read-byte stream))) I don't need to read the stream, asking for the element type of the input stream is enough to cause trouble ... (let ((outbytes (with-open-stream (stream (sys::%make-byte-array-output-stream)) (write-byte 101 stream) (sys::%get-output-stream-bytes stream)))) (with-open-stream (stream (make-byte-array-input-stream outbytes)) (stream-element-type stream))) I can fix the problem and make my code work, but I have to change Stream.java to make it work. I added elementType = UNSIGNED_BYTE_8; to the initAsBinaryInputStream(InputStream in) method. I did this because the stack trace suggested that the problem was stream_element_type.execute() was returning null. Anyway, that fixes the problem, and I'm happily serializing/deserializing lisp objects to a Berkeley DB ... so I guess I'm happy! But I don't know how rational that fix is, because I don't really know how Stream is supposed to work. I suspect that my 'fix' probably breaks something else that I'm just not using yet. Any ideas? Thanks, -david k. Here's the first few lines of the stack trace ... CL-USER(2): Debugger invoked on condition of type SIMPLE-TYPE-ERROR: java.lang.NullPointerException at org.armedbear.lisp.Primitives$49.execute(Primitives.java:795) at org.armedbear.lisp.Symbol.execute(Symbol.java:781) at org.armedbear.lisp.LispThread.execute(LispThread.java:579) at org.armedbear.lisp.print_8.execute(print.lisp:127) at org.armedbear.lisp.Symbol.execute(Symbol.java:781) at org.armedbear.lisp.LispThread.execute(LispThread.java:579) at org.armedbear.lisp.print_14.execute(print.lisp:279) ... (and it ends with) at org.armedbear.lisp.AutoloadedFunctionProxy.execute(AutoloadedFunctionProxy.java:139) at org.armedbear.lisp.Symbol.execute(Symbol.java:760) at org.armedbear.lisp.LispThread.execute(LispThread.java:546) at org.armedbear.lisp.top_level_51.execute(top-level.lisp:415) at org.armedbear.lisp.AutoloadedFunctionProxy.execute(AutoloadedFunctionProxy.java:139) at org.armedbear.lisp.LispThread.execute(LispThread.java:546) at org.armedbear.lisp.Interpreter.run(Interpreter.java:310) at org.armedbear.lisp.Main$1.run(Main.java:50) at java.lang.Thread.run(Thread.java:613) READ-BYTE: unsupported element type Debugger invoked on condition of type ERROR: Caught java.lang.NullPointerException. Restarts: 0: TOP-LEVEL Return to top level.

3 14

[armedbear-devel] [PATCH] Eliminate duplicate lookups in JHandler
by Mario Lang 09 Nov '10

09 Nov '10

Hi. A simple thing, but I spotted it during reading of the code. Index: src/org/armedbear/lisp/JHandler.java =================================================================== --- src/org/armedbear/lisp/JHandler.java (revision 12738) +++ src/org/armedbear/lisp/JHandler.java (working copy) @@ -66,21 +66,22 @@ public static void callLisp (String s, Object o, String as[], int ai[]) { if (table.containsKey(o)) { - Map<String,Entry> entryTable = (Map<String,Entry>)table.get(o); + Map<String,Entry> entryTable = (Map<String,Entry>)table.get(o); if (entryTable.containsKey(s)) { - Function f = ((Entry)entryTable.get(s)).getHandler(); - LispObject data = ((Entry)entryTable.get(s)).getData(); - Fixnum count = ((Entry)entryTable.get(s)).getCount(); - Fixnum[] lispAi = new Fixnum[ai.length]; + final Entry entry = entryTable.get(s); + final Function f = entry.getHandler(); + final LispObject data = entry.getData(); + final Fixnum count = entry.getCount(); + final Fixnum[] lispAi = new Fixnum[ai.length]; for (int i = 0; i < ai.length; i++) { lispAi[i] = Fixnum.getInstance(ai[i]); } - LispObject lispAiVector = new SimpleVector(lispAi); - SimpleString[] lispAs = new SimpleString[as.length]; + final LispObject lispAiVector = new SimpleVector(lispAi); + final SimpleString[] lispAs = new SimpleString[as.length]; for (int i = 0; i < as.length; i++) { lispAs[i] = new SimpleString(as[i]); } - LispObject lispAsVector = new SimpleVector(lispAs); + final LispObject lispAsVector = new SimpleVector(lispAs); LispObject[] args = new LispObject[] //FIXME: count -> seq_num { data, new JavaObject(o), lispAiVector, lispAsVector, internKeyword(s), count }; f.execute(args); -- CYa, ⡍⠁⠗⠊⠕

2 1

[armedbear-devel] failure to compile big files
by Carlos Ungil 19 Oct '10

19 Oct '10

Dear ABCL developers, trying to "compile-file" the following fragment of code using the latest release results in an error "s2 argument 32778 out of 16-bit signed range." ----------------------------------------------------- (defmacro many-functions (n) (append '(progn) (loop for i from 1 to n collect `(defun ,(intern (format nil "TEST~A" i)) () (print ,i))))) (many-functions 1525) ----------------------------------------------------- There are no problems with 0.20 (even for much bigger values of the parameter, i.e. bigger output files). I encountered the problem with a file containing several calls to the macro def-java-class in Jfli. It took me some time to discover that splitting the file in two was enough to make the problem go away... This is not a critical bug (it's usually easy to reorganize the code to ensure the files are small enough), but you might want to look at it. Cheers, Carlos

3 4

[armedbear-devel] CLOS thread safety
by Erik Huelsmann 03 Oct '10

03 Oct '10

Hi David, > Are there any known thread safety issues with CLOS? I've been > getting some weird MOP errors that I made go away by redefining > slot-value such that it has to acquire a global lock before it can do > anything. I assume that the problem is in my code: but the threads > that are executing when I get the failures share no code (or > variables), and every time the errors pop up slot-value is on the > callstack someplace. Well, there have not been any specific threading issues mentioned. Over two years ago, back when I started doing ABCL, there were threading issues which looked like threading issues in CLOS. They turned out to be threading issues in the compiler though. Having said that, I see there have not been taken synchronization measures on a high level: there are no locks and threads:synchronized-on blocks in clos.lisp. There are some synchronized calls on the Java side; I'm not sure the low-level protection is good enough to maintain consistency though. Can you share some examples which show the issues here? Adding thread-safety to clos.lisp - in specific, targeted places - should be well doable. Bye, Erik.

5 15

Re: [armedbear-devel] [armedbear-cvs] r12908 - trunk/abcl/examples/pure-lisp-to-java
by Erik Huelsmann 31 Aug '10

31 Aug '10

Hi Ville, You're aware it's 2010 by now? :-) Bye, Erik. On Mon, Aug 30, 2010 at 7:57 PM, Ville Voutilainen < vvoutilainen(a)common-lisp.net> wrote: > Author: vvoutilainen > Date: Mon Aug 30 13:57:43 2010 > New Revision: 12908 > > Log: > Add an example for using a java class with CLASSPATH, invoking java > functions from lisp code and finding the java class automagically > as it's in CLASSPATH. > > > Added: > trunk/abcl/examples/pure-lisp-to-java/ > trunk/abcl/examples/pure-lisp-to-java/Main.java (contents, props > changed) > trunk/abcl/examples/pure-lisp-to-java/README > trunk/abcl/examples/pure-lisp-to-java/lispfunctions.lisp (contents, > props changed) > > Added: trunk/abcl/examples/pure-lisp-to-java/Main.java > > ============================================================================== > --- (empty file) > +++ trunk/abcl/examples/pure-lisp-to-java/Main.java Mon Aug 30 13:57:43 > 2010 > @@ -0,0 +1,39 @@ > +/* > + * Main.java > + * > + * Copyright (C) 2008 Ville Voutilainen > + * $Id$ > + * > + * This program is free software; you can redistribute it and/or > + * modify it under the terms of the GNU General Public License > + * as published by the Free Software Foundation; either version 2 > + * of the License, or (at your option) any later version. > + * > + * This program is distributed in the hope that it will be useful, > + * but WITHOUT ANY WARRANTY; without even the implied warranty of > + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the > + * GNU General Public License for more details. > + * > + * You should have received a copy of the GNU General Public License > + * along with this program; if not, write to the Free Software > + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, > USA. > + */ > + > +import org.armedbear.lisp.*; > + > +public class Main > +{ > + /** > + * This example creates an Interpreter instance, loads our > + * lisp code from a file and then looks up a function defined > + * in the loaded lisp file and executes the function. > + * > + * The function takes a single parameter and invokes a java method > + * on the object provided. We provide our Main object as the > parameter. > + * > + */ > + public static int addTwoNumbers(int a, int b) > + { > + return a + b; > + } > +} > > Added: trunk/abcl/examples/pure-lisp-to-java/README > > ============================================================================== > --- (empty file) > +++ trunk/abcl/examples/pure-lisp-to-java/README Mon Aug 30 13:57:43 > 2010 > @@ -0,0 +1,38 @@ > +ABCL Examples Building and Running Instructions > +=============================================== > + > +To compile > + > + cmd$ javac -cp ../../dist/abcl.jar Main.java > + > +where the "../../../dist/abcl.jar" represents the path to your > +abcl.jar file, which is built via the Ant based build. This path > +could be slightly different depending on how the system was > +constructed, and possibly due to operating system conventions for > +specifying relative paths. However you resolve this locally, we'll > +refer to this as '$ABCL_ROOT/dist/abcl.jar' for the rest of these > +instructions. > + > +This compiles the Java source file "Main.java" into a JVM runtime or > +class file named "Main.class". > + > +To run the example (Main.class for example) from a Unix-like OS use: > + > + cmd$ export CLASSPATH=. > + cmd$ $ABCL_ROOT/abcl > + > +then, in abcl repl, use: > +(load "lispfunctions") > +(void-function) > + > +or in Windows use: > + > + cmd$ set CLASSPATH=. > + cmd$ $ABCL_ROOT/abcl > + > +then, in abcl repl, use: > +(load "lispfunctions") > +(void-function) > + > +This will result in the Main class being found from the CLASSPATH, and you > +can invoke the functions of the Main class from lisp code. > > Added: trunk/abcl/examples/pure-lisp-to-java/lispfunctions.lisp > > ============================================================================== > --- (empty file) > +++ trunk/abcl/examples/pure-lisp-to-java/lispfunctions.lisp Mon Aug 30 > 13:57:43 2010 > @@ -0,0 +1,34 @@ > +;;; lispfunctions.lisp > +;;; > +;;; Copyright (C) 2008 Ville Voutilainen > +;;; $Id$ > +;;; > +;;; This program is free software; you can redistribute it and/or > +;;; modify it under the terms of the GNU General Public License > +;;; as published by the Free Software Foundation; either version 2 > +;;; of the License, or (at your option) any later version. > +;;; > +;;; This program is distributed in the hope that it will be useful, > +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of > +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the > +;;; GNU General Public License for more details. > +;;; > +;;; You should have received a copy of the GNU General Public License > +;;; along with this program; if not, write to the Free Software > +;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, > USA. > + > +; we need to get the > +; 1) class (Main) > +; 2) classes of the parameters (int) > +; 3) method reference (getting that requires the class > +; of our object and the classes of the parameters > + > +; After that we can invoke the function with jcall, > +; giving the method reference, the object and the parameters. > +; The result is a lisp object (no need to do jobject-lisp-value), > +; unless we invoke the method > +; with jcall-raw. > +(defun void-function () > + (let* ((result (jstatic "addTwoNumbers" "Main" 2 4))) > + (format t "in void-function, result of calling addTwoNumbers(2, 4): > ~a~%" result))) > + > > _______________________________________________ > armedbear-cvs mailing list > armedbear-cvs(a)common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-cvs >

2 1

[armedbear-devel] ABCL bug report: defstruct :include with :conc-name
by Juliusz Chroboczek 26 Aug '10

26 Aug '10

Hi. The following bug in abcl breaks CL-Yacc. Consider the following: (defstruct item a) (defstruct (item1 (:include item) (:conc-name item-)) b) (defun abcl-bug () (item-a (make-item :a 'a))) According to the last paragraph of the description of the description of :conc-name in the defstruct section of the CLHS, this is legal. However, abcl says: ABCL-BUG(6): (abcl-bug) #<THREAD "interpreter" {108F8E0}>: Debugger invoked on condition of type SIMPLE-TYPE-ERROR The value #<ABCL-BUG::ITEM {537935}> is not of type ABCL-BUG::ITEM1. Restarts: 0: TOP-LEVEL Return to top level. [1] ABCL-BUG(7): Regards, Juliusz

1 0

[armedbear-devel] Can't use ABCL to host SNePS
by David Zhang 26 Aug '10

26 Aug '10

Hello! I just tried to use ABCL to load SNePS, but can't make it anyway. There's always an error message saying "#<THREAD "interpreter" {E1E567}>: Debugger invoked on condition of type PACKAGE-ERROR Package "SNEPS" not found." How can I pass it though? Awaiting David Zhang

2 2

[armedbear-devel] how to load fasls from jar via asdf
by Robert Dodier 26 Aug '10

26 Aug '10

Hi, After looking through various web pages, emails, etc, I gather it's possible to load all the fasls for some program from a jar via asdf. However, I tried the obvious things and I couldn't get it to work. Can someone explain how it's supposed to work? I have all the fasls for Maxima in a subdirectory. (require 'asdf) (asdf:operate 'asdf:load-op :maxima) has the desired effect. So far, so good. I put all the fasls in a jar (either in the subdirectory or without the subdirectory), and then (pushnew "jar:file:/path/to/my.jar" asdf:*central-repository*) But when I try (require 'asdf) (asdf:operate 'asdf:load-op :maxima) I eventually get a message about trying to find the first Lisp file mentioned in the maxima.asd, which I'm pretty sure it didn't find the fasls. Can someone explain how loading all of the fasls from a jar is supposed to work? Or any other method of conglomerating fasls; for example, is it possible to combine multiple fasls into one? Thanks for any info, Robert Dodier

3 5

Re: [armedbear-devel] java/abcl hello-world example
by Robert Dodier 22 Aug '10

22 Aug '10

David, have you seen this page? http://common-lisp.net/project/armedbear/doc/abcl-user.html It has some simple examples of calling from Java to ABCL and vv. Hope this helps, Robert Dodier

3 2