Changeset 14012
- Timestamp:
- 07/19/12 19:41:41 (9 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14010 r14012 902 902 903 903 (define-primordial-class method-combination (metaobject) 904 ((sys::name :init form nil)904 ((sys::name :initarg :name :initform nil) 905 905 (sys::%documentation :initarg :documentation :initform nil) 906 906 (options :initarg :options :initform nil))) 907 907 908 908 (define-primordial-class short-method-combination (method-combination) 909 ( operator910 identity-with-one-argument))909 ((operator :initarg :operator) 910 (identity-with-one-argument :initarg :identity-with-one-argument))) 911 911 912 912 (define-primordial-class long-method-combination (method-combination) 913 ( sys::lambda-list914 method-group-specs915 args-lambda-list916 generic-function-symbol917 function918 arguments919 declarations920 forms))913 ((sys::lambda-list :initarg :lambda-list) 914 (method-group-specs :initarg :method-group-specs) 915 (args-lambda-list :initarg :args-lambda-list) 916 (generic-function-symbol :initarg :generic-function-symbol) 917 (function :initarg :function) 918 (arguments :initarg :arguments) 919 (declarations :initarg :declarations) 920 (forms :initarg :forms))) 921 921 922 922 (define-primordial-class standard-accessor-method (standard-method) … … 1034 1034 (getf (cddr whole) :operator name))) 1035 1035 `(progn 1036 ;; Class short-method-combination is defined in StandardClass.java.1037 1036 (let ((instance (std-allocate-instance 1038 1037 (find-class 'short-method-combination)))) -
trunk/abcl/src/org/armedbear/lisp/print-object.lisp
r14011 r14012 80 80 (print-unreadable-object (method-combination stream :identity t) 81 81 (format stream "~A ~S" (class-name (class-of method-combination)) 82 ( mop::method-combination-name method-combination)))82 (ignore-errors (mop::method-combination-name method-combination)))) 83 83 method-combination) 84 84
Note: See TracChangeset
for help on using the changeset viewer.