Changeset 13360


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/contrib/jss/invoke.lisp

    r13286 r13360  
    176176                (apply #'jstatic method object-as-class args)
    177177                (apply #'jcall method object args))))))
    178 
    179 (defconstant +true+ (make-immediate-object t :boolean))
    180178
    181179;;; Method name as String --> String  | Symbol --> jmethod
     
    631629      do (assert (stringp m) (m) "Method names must be strings: ~s" m) and collect m
    632630      else
    633       do (assert (or (symbolp m) (functionp m)) (m) "Methods must be function designators: ~s" m)))
    634 #+nil   (null (make-immediate-object nil :ref)))
     631      do (assert (or (symbolp m) (functionp m)) (m) "Methods must be function designators: ~s" m))))
    635632    (let ((safe-method-names-and-defs
    636633     (loop for (name function) on method-names-and-defs by #'cddr
  • trunk/abcl/contrib/jss/jss.asd

    r13283 r13360  
    44(defsystem :jss
    55  :author "Alan Ruttenberg, Mark Evenson"
    6   :version "2.0.0"
     6  :version "2.0.1"
    77  :components
    88  ((:module base :pathname "" :serial t
Note: See TracChangeset for help on using the changeset viewer.