(defun void-function ()
(let* ((result (jstatic "square" "Main" 32)))
(format t "in void-function, result of calling square(32): ~a~%" result)))
(defun void-function-short ()
(let* ((result (jstatic "squareshort" "Main" 16)))
(format t "in void-function, result of calling squareshort(16): ~a~%" result)))
(void-function)
(void-function-short)
import org.armedbear.lisp.*;
public class Main
{
public static int square(int a) {
return a * a;
}
public static int squareshort(short a)
{
return a * a;
}
Armed Bear Common Lisp 1.6.0
Java 11.0.1 Oracle Corporation
Java HotSpot(TM) 64-Bit Server VM
Low-level initialization completed in 0.295 seconds.
Startup completed in 1.663 seconds.
Type ":help" for a list of available commands.
CL-USER(1): (load "lispfunctions.lisp")
in void-function, result of calling square(32): 1024
Error loading /Users/bknotwel/abcl_excel_gen/bug/lispfunctions.lisp at line 11 (offset 358)
#<THREAD "interpreter" {560A10B3}>: Debugger invoked on condition of type ERROR
no such method
Restarts:
0: TOP-LEVEL Return to top level.