Hello, Please ignore the previous message. Looks like I just had somewhat broken ABCL. Freshly built ABCL (without my fix) works OK. Best regards, - Anton 2009/7/18 Anton Vodonosov <avodonosov@gmail.com>:

Hello,

Consider the following java snippet:

       public static void main(String[] args) throws Throwable        {                Interpreter interpreter = Interpreter.createInstance();                interpreter.eval("(compile nil '(lambda () 0.1))");        }

It fails with error:

   Debugger invoked on condition of type UNDEFINED-FUNCTION:      The function JVM::%FLOAT-BITS is undefined.

In the REPL (compile nil '(lambda () 0.1)) works normally.

I do not understand what is the difference in environment between ABCL REPL and embedded ABCL, but the following trivial patch fixes the problem in for the embedded case.

Index: src/org/armedbear/lisp/compiler-pass2.lisp =================================================================== --- src/org/armedbear/lisp/compiler-pass2.lisp  (revision 12050) +++ src/org/armedbear/lisp/compiler-pass2.lisp  (working copy) @@ -132,7 +132,7 @@  (defknown pool-float (single-float) (integer 1 65535))  (defun pool-float (n)   (declare (optimize speed)) -  (pool-get (list 4 (%float-bits n)))) +  (pool-get (list 4 (sys::%float-bits n))))

 (defun pool-long/double (entry)   (let* ((ht *pool-entries*) @@ -163,7 +163,7 @@  (defknown pool-double (double-float) (integer 1 65535))  (defun pool-double (n)   (declare (optimize speed)) -  (let* ((n (%float-bits n)) +  (let* ((n (sys::%float-bits n))          (entry (list 6                       (logand (ash n -32) #xffffffff)                       (logand n #xffffffff))))

Best regards, - Anton