[armedbear-cvs] r13920 - trunk/abcl/src/org/armedbear/lisp

[astalla at common-lisp.net]

Author: astalla
Date: Mon Apr 23 14:14:43 2012
New Revision: 13920

Log:
runtime-class: support for :boolean return value in methods

Modified:
   trunk/abcl/src/org/armedbear/lisp/runtime-class.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/runtime-class.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/runtime-class.lisp	Sun Apr 22 04:46:01 2012	(r13919)
+++ trunk/abcl/src/org/armedbear/lisp/runtime-class.lisp	Mon Apr 23 14:14:43 2012	(r13920)
@@ -142,6 +142,9 @@
               ((eq return-type :int)
                (emit-invokevirtual +lisp-object+ "intValue" nil :int)
                (emit 'ireturn))
+              ((eq return-type :boolean)
+               (emit-invokevirtual +lisp-object+ "getBooleanValue" nil :boolean)
+               (emit 'ireturn))
               ((jvm-class-name-p return-type)
                (emit-invokevirtual +lisp-object+ "javaInstance" nil +java-object+)
                (emit-checkcast return-type)