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

[armedbear-devel] Saturday ABCL hacking meeting on #abcl from Austria
by Erik Huelsmann 26 Jul '12

26 Jul '12

Hi all, Mark and I are going to work together this Saturday all day from my holiday address in Austria to see if we can work on tickets (especially ANSI compliance and "needs tests"), test trunk with the latest Quicklisp libraries, and hopefully find out what's required to get to 1.1.0. We'd like to invite you into #abcl on freenode.org and get your input and participation: we'll be logged in most of the day and evening. (To those who don't know: our nicks are easye (Mark) and ehu (me, obviously)). Bye, Erik.

2 1

[armedbear-devel] asdf 2.23 released
by Faré 20 Jul '12

20 Jul '12

I am pleased to announce the release of ASDF 2.23. Since previous release 2.22, the changes are as follow: * add new :compile-check argument to compile-file* and around-compile-hook. This allows for consistency check of .fasl output before the file can possibly be seen by other builds (i.e. no race condition). This change makes the asdf-finalizers extension possible. * export more utilities for dealing with pathnames from environment. These changes are few and subtle, but nonetheless significant to those who'd use these features. As usual, developers, please test and enjoy, vendors, please update your implementation or distribution. —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org There is only one basic human right, the right to do as you damn well please. And with it comes the only basic human duty, the duty to take the consequences. — P. J. O'Rourke

2 1

[armedbear-devel] Longs, Bytes, or casting in general
by Theam Yong Chew 20 Jul '12

20 Jul '12

Hi folks, I was wondering how we can conveniently pass longs, bytes into normal Java functions/constructors, for example, (jnew "java.lang.Byte" 23) ==> Java exception 'java.lang.NoSuchMethodException: Byte(java.lang.Integer)'. [Condition of type JAVA-EXCEPTION] Here only constructor available is for "byte" inputs. It's a pain to have to use this every time we use a byte, long, or similar: (jnew (jconstructor "java.lang.Byte" "byte") 23) #<java.lang.Byte 23 {3A9300BF}> Relatedly/alternatively, is there a way convenient to coerce values to a certain type, forcing 23 above (default int/Integer) to be a byte or long? Yong

3 5

[armedbear-devel] wrong FASL version with 1.0.1
by Durward McDonell 18 Jul '12

18 Jul '12

Hello. I'm using abcl-1.0.1. My code loads just fine, but when I try to run it, I get FASL version mismatch; found '38' but expected '26' in sublis I'm running this in slime. If I do something like (sublis '((foo . bar)) '(foo)) it works as expected, and THEN I can run my code and it works. Is there something cached somewhere I need to blow away, or is something else I need to do? If I look at the abcl.jar I'm using, I can see that sublis.abcl says it's FASL version 38, just like everything else in abcl.jar. Thanks. -- Durward McDonell durward.mcdonell(a)jhuapl.edu 240-228-2690 (DC) 443-778-2690 (Balt.)

2 1

[armedbear-devel] cffi, asdf question
by Durward McDonell 12 Jul '12

12 Jul '12

Hello. I noticed that there is currently some difficulty getting cffi to load properly. I've gotten it to load using Mark Evenson's patches (I think), but it still required loading something, getting an error, and loading it again, and then assuming it was loading correctly. In the interest of doing it The Right Way, I have some questions. I hope they make some sense. ASDF doesn't know about loading systems from jar files -- that seems to be the job of abcl-asdf. But abcl-asdf has to be loaded from a jar file, right? So there's a bootstrapping problem. Where is this dealt with? Or is there some other magic I haven't yet figured out to load systems from jar files? Thanks. -- Durward McDonell durward.mcdonell(a)jhuapl.edu 240-228-2690 (DC) 443-778-2690 (Balt.)

2 1

[armedbear-devel] Wrong symbol after loading fasl
by James M. Lawrence 11 Jul '12

11 Jul '12

(defpackage :foo (:use :cl)) (in-package :foo) (defvar *data* nil) (defpackage :bar (:use :cl)) (in-package :bar) (eval-when (:compile-toplevel) (import 'foo::*data*)) (setf *data* 99) Compile this, restart ABCL, and load the fasl. foo::*data* is NIL and bar::*data* is 99. It's possible the code is somehow nonconforming, however it sure seems that foo::*data* should be written and later loaded, which is the behavior of other Lisps. The issue is also exhibited with (compile-file "test.lisp") (delete-package :foo) (delete-package :bar) (load "test.abcl")

1 0

[armedbear-devel] BUG: JVM stack inconsistency triggered by compiler
by Eric Marsden 11 Jul '12

11 Jul '12

Hi, CL-USER(50): (lisp-implementation-version) "1.1.0-dev-svn-13998M" CL-USER(51): (lambda (a b c) (declare (optimize (safety 0))) (ash 3 (min 2 (the integer (block b (catch 'ct a)))))) #<FUNCTION (LAMBDA (A B C)) {374FB6BE}> CL-USER(52): (compile nil *) ; Caught STYLE-WARNING: ; The variable B is defined but never used. ; Caught STYLE-WARNING: ; The variable C is defined but never used. #<THREAD "interpreter" {5D4AAA93}>: Debugger invoked on condition of type INTERNAL-COMPILER-ERROR Stack inconsistency detected in NIL at index 36: found 2, expected 1. Restarts: 0: CONTINUE Eventually use interpreted form instead 1: TOP-LEVEL Return to top level. -- Eric Marsden

2 1

[armedbear-devel] BUG: threads:mailbox-send
by Uchida Yasuo 05 Jul '12

05 Jul '12

Hi folks, The function threads:mailbox-send seems not working. In the example below, (threads:mailbox-peek mbox) returns NIL. It should be "item". The attatched patch fixes this problem. Armed Bear Common Lisp 1.1.0-dev-svn-13992 Java 1.6.0_24 Sun Microsystems Inc. OpenJDK 64-Bit Server VM Low-level initialization completed in 1.396 seconds. Startup completed in 4.0 seconds. Type ":help" for a list of available commands. CL-USER(1): (setf mbox (threads:make-mailbox)) #S(MAILBOX :QUEUE NIL) CL-USER(2): (threads:mailbox-send mbox "item") NIL CL-USER(3): (threads:mailbox-peek mbox) NIL T CL-USER(4): Many thanks. -- Yasuo Uchida

2 1

[armedbear-devel] asdf::*OPERATING-SYSTEM* => :solaris for (LISP-IMPLEMENTATION-VERSION) => "1.0.1-svn-13750-13751"
by Alan Ruttenberg 28 Jun '12

28 Jun '12

Don't know if this is fixed in a later version, but I was noticing asdf put my binaries in an odd-looking directory. -Alan

2 1

[armedbear-devel] Fwd: How to compile and run Maxima with ABCL?
by Phuc Luoi 24 Jun '12

24 Jun '12

---------- Forwarded message ---------- From: Phuc Luoi <phucluoi(a)gmail.com> Date: Tue, Jun 19, 2012 at 12:51 PM Subject: Re: [armedbear-devel] How to compile and run Maxima with ABCL? To: Robert Dodier <robert.dodier(a)gmail.com> Thanks for your answer. I tried this and got these errors: Can't intern zero-length symbol. Restarts: 0: RETRY Retry compiling #<ASDF:CL-SOURCE-FILE "maxima" "utilities" "mformt">. 1: ACCEPT Continue, treating compiling #<ASDF:CL-SOURCE-FILE "maxima" "utilities" "mformt"> as having been successful. 2: TOP-LEVEL Return to top level. by compiling the file /maxima-5.27.0/src/mformt.lisp (step 9) I have choose the option 1 to accept this. I got some more errors by compiling. After all I got Out of memory PermGen space Restarts: 0: TOP-LEVEL Return to top level. and abcl did not compiled maxima. Can you tell me why I got these error? And how can repair them? On Tue, Jun 19, 2012 at 5:04 AM, Robert Dodier <robert.dodier(a)gmail.com> wrote: > On 2012-06-16, Phuc Luoi <phucluoi(a)gmail.com> wrote: > >> How can I compile and run Maxima with ABCL? > > (1) Unpack a Maxima tarball. > http://sourceforge.net/projects/maxima and follow links to download page. > Look for "Maxima-source". > > (2) cd /path/to/maxima-5.27.0 > > (3) java -jar /path/to/abcl.jar > > (4) (configure) ;; you can probably accept defaults for most/all questions > > (5) (quit) > > (6) cd src > > (7) java -jar /path/to/abcl.jar > > (8) (require 'asdf) > > (9) (asdf:operate 'asdf:load-op :maxima) > > (10) (quit) > > (11) java -jar /path/to/abcl.jar > > (12) (require 'asdf) > > (13) (asdf:operate 'asdf:load-op :maxima) ;; yes, same as (9) > > (14) (cl-user::run) ;; should bring up Maxima banner & input prompt > > >> Furthermore can I emmbed maxima in a Java Programm with ABCL? > > Yes. I've appended an example program. Command line to compile it: > > javac -cp /path/to/abcl.jar -d /path/to/compiled/class abcl_maxima.java > > To execute it: (you must be in the Maxima src directory) > > java -cp /path/to/compiled/class:/path/to/abcl.jar abcl_maxima > > I get: (takes a minute or two to load Maxima) > > loading Maxima ... finished. > x.getClass => class org.armedbear.lisp.Cons > x = org.armedbear.lisp.Cons@1748ba8 > x.javaInstance => org.armedbear.lisp.Cons@1748ba8 > x.javaInstance.getClass => class org.armedbear.lisp.Cons > 4 factors of 12341234 > factor: 2, multiplicity: 1 > factor: 73, multiplicity: 1 > factor: 137, multiplicity: 1 > factor: 617, multiplicity: 1 > > > Note that all user functions have names which begin with dollar sign. > E.g. user function ifactors <==> $IFACTORS in Lisp > > If you need help with Lisp programming for Maxima, ask questions on the > mailing list. See: http://maxima.sourceforge.net/maximalist.html > > Hope this helps, have fun, & good luck. > > Robert Dodier > > PS. Example program abcl_maxima.java: > > // abcl_maxima.java -- example program for calling Maxima from Java via ABCL > // copyright 2012 by Robert Dodier > // I release this work under terms of the GNU General Public License > > import org.armedbear.lisp.Interpreter; > import org.armedbear.lisp.Package; > import org.armedbear.lisp.Packages; > import org.armedbear.lisp.Symbol; > import org.armedbear.lisp.Function; > import org.armedbear.lisp.LispObject; > import org.armedbear.lisp.Fixnum; > import org.armedbear.lisp.Bignum; > import org.armedbear.lisp.Cons; > > public class abcl_maxima > { > public static void main (String [] args) throws Exception > { > int a; > > if (args.length > 0) > a = Integer.parseInt (args [0]); > else > a = 12341234; > > Interpreter I = Interpreter.createInstance (); > System.out.print ("loading Maxima ... "); > I.eval ("(require 'asdf)"); > I.eval ("(asdf:operate 'asdf:load-op :maxima)"); > System.out.println ("finished."); > Package P = Packages.findPackage ("MAXIMA"); > > // java.util.List <Symbol> L = P.getAccessibleSymbols (); > // for (Symbol S : L) > // { > // if (P.equals (S.getPackage ())) > // System.out.println (S.toString ()); > // } > > Symbol S = P.findAccessibleSymbol ("$IFACTORS"); > Function F = (Function) S.getSymbolFunction (); > LispObject x = Bignum.getInstance (a); > x = F.execute (x); > System.out.println ("x.getClass => " + x.getClass ()); > System.out.println ("x = " + x); > System.out.println ("x.javaInstance => " + x.javaInstance ()); > System.out.println ("x.javaInstance.getClass => " + x.javaInstance () . getClass ()); > > int n = ((Cons) x).length (); > System.out.println ((n - 1) + " factors of " + a); > > for (int i = 1; i < n; i++) > { > Cons x1 = (Cons) ((Cons) x).NTH (i); > Fixnum f = (Fixnum) x1.NTH (1); > Fixnum m = (Fixnum) x1.NTH (2); > System.out.println ("factor: " + f.intValue () + ", multiplicity: " + m.intValue ()); > } > } > } > > > _______________________________________________ > armedbear-devel mailing list > armedbear-devel(a)common-lisp.net > http://lists.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel

4 16