Changeset 13360

Timestamp:

06/22/11 12:59:41 (10 years ago)

Author:

Mark Evenson

Message:

jss-2.0.1 remove use of MAKE-IMMEDIATE-OBJECT.

Location:

trunk/abcl/contrib/jss

Files:

• invoke.lisp (modified) (2 diffs)
• jss.asd (modified) (1 diff)

trunk/abcl/contrib/jss/invoke.lisp

@@ -176 +176 @@
                 (apply #'jstatic method object-as-class args)
                 (apply #'jcall method object args))))))
-
-(defconstant +true+ (make-immediate-object t :boolean))
 
 ;;; Method name as String --> String  | Symbol --> jmethod
@@ -631 +629 @@
       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))) 
-#+nil   (null (make-immediate-object nil :ref)))
+      do (assert (or (symbolp m) (functionp m)) (m) "Methods must be function designators: ~s" m))))
     (let ((safe-method-names-and-defs 
      (loop for (name function) on method-names-and-defs by #'cddr

trunk/abcl/contrib/jss/jss.asd

@@ -4 +4 @@
 (defsystem :jss
   :author "Alan Ruttenberg, Mark Evenson"
-  :version "2.0.0" 
+  :version "2.0.1" 
   :components 
   ((:module base :pathname "" :serial t