Changeset 13360
- Timestamp:
- 06/22/11 12:59:41 (11 years ago)
- Location:
- trunk/abcl/contrib/jss
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/contrib/jss/invoke.lisp
r13286 r13360 176 176 (apply #'jstatic method object-as-class args) 177 177 (apply #'jcall method object args)))))) 178 179 (defconstant +true+ (make-immediate-object t :boolean))180 178 181 179 ;;; Method name as String --> String | Symbol --> jmethod … … 631 629 do (assert (stringp m) (m) "Method names must be strings: ~s" m) and collect m 632 630 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)))) 635 632 (let ((safe-method-names-and-defs 636 633 (loop for (name function) on method-names-and-defs by #'cddr -
trunk/abcl/contrib/jss/jss.asd
r13283 r13360 4 4 (defsystem :jss 5 5 :author "Alan Ruttenberg, Mark Evenson" 6 :version "2.0. 0"6 :version "2.0.1" 7 7 :components 8 8 ((:module base :pathname "" :serial t
Note: See TracChangeset
for help on using the changeset viewer.