Changeset 13366

Timestamp:

06/29/11 15:34:58 (12 years ago)

Author:

Mark Evenson

Message:

Remove deprecated use of JAVA:MAKE-IMMEDIATE-OBJECT.

File:

• trunk/abcl/src/org/armedbear/lisp/java.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/java.lisp

@@ -67 +67 @@
            do (assert (stringp m) (m) "Method names must be strings: ~s" m) and collect m
            else
-           do (assert (or (symbolp m) (functionp m)) (m) "Methods must be function designators: ~s" m)))
-        (null (make-immediate-object nil :ref)))
+           do (assert (or (symbolp m) (functionp m)) (m) "Methods must be function designators: ~s" m))))
     (loop for method across
       (jclass-methods interface :declared nil :public t)
@@ -79 +78 @@
                      ,arglist
                      ,(when arglist '(declare (ignore ignore)))
-                     ,(if void-p '(values) null))))
+                     ,(if void-p '(values) java:+null+))))
         (warn "Implementing dummy method ~a for interface ~a"
               method-name (jclass-name interface))