Changeset 13920

Timestamp:

04/23/12 21:14:43 (10 years ago)

Author:

astalla

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/runtime-class.lisp (modified) (1 diff)

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

@@ -143 +143 @@
                (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+)