[armedbear-cvs] r13360 - trunk/abcl/contrib/jss

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed Jun 22 05:59:41 2011
New Revision: 13360

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

Modified:
   trunk/abcl/contrib/jss/invoke.lisp
   trunk/abcl/contrib/jss/jss.asd

Modified: trunk/abcl/contrib/jss/invoke.lisp
==============================================================================
--- trunk/abcl/contrib/jss/invoke.lisp	Wed Jun 22 05:25:28 2011	(r13359)
+++ trunk/abcl/contrib/jss/invoke.lisp	Wed Jun 22 05:59:41 2011	(r13360)
@@ -176,8 +176,6 @@
                 (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
 (defvar *methods-cache* (make-hash-table :test #'equal))
 
@@ -630,8 +628,7 @@
 	    if (evenp i) 
 	    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
 	      collect name collect (safely function name))))

Modified: trunk/abcl/contrib/jss/jss.asd
==============================================================================
--- trunk/abcl/contrib/jss/jss.asd	Wed Jun 22 05:25:28 2011	(r13359)
+++ trunk/abcl/contrib/jss/jss.asd	Wed Jun 22 05:59:41 2011	(r13360)
@@ -3,7 +3,7 @@
 
 (defsystem :jss
   :author "Alan Ruttenberg, Mark Evenson"
-  :version "2.0.0" 
+  :version "2.0.1" 
   :components 
   ((:module base :pathname "" :serial t 
             :components ((:file "packages")