(defclass standard-object (slot-object) ())
-(defclass funcallable-standard-object (standard-object function)
+(defclass funcallable-standard-object (function standard-object)
()
(:metaclass funcallable-standard-class))
(defclass method (metaobject) ())
-(defclass standard-method (definition-source-mixin plist-mixin method)
+(defclass standard-method (plist-mixin definition-source-mixin method)
((%generic-function
:initform nil
:accessor method-generic-function)
- #+nil ; implemented by PLIST
(qualifiers
:initform ()
:initarg :qualifiers
:initform ()
:initarg :lambda-list
:reader method-lambda-list)
- (%function :initform nil :initarg :function)
- (fast-function
- :initform nil
- :initarg :fast-function ;no writer
- :reader method-fast-function)
+ (%function :initform nil :initarg :function :reader method-function)
(%documentation :initform nil :initarg :documentation)))
(defclass accessor-method (standard-method)
:initarg :initargs
:accessor slot-definition-initargs)
(%type :initform t :initarg :type :accessor slot-definition-type)
+ (%type-check-function :initform nil
+ :initarg type-check-function
+ :accessor slot-definition-type-check-function)
(%documentation
:initform nil :initarg :documentation
;; KLUDGE: we need a reader for bootstrapping purposes, in
(%documentation
:initform nil
:initarg :documentation)
+ ;; True if the class definition was compiled with a (SAFETY 3)
+ ;; optimization policy.
+ (safe-p
+ :initform nil
+ :initarg safe-p
+ :accessor safe-p)
(finalized-p
:initform nil
:reader class-finalized-p)))
:initarg :definition-source)))
(defclass plist-mixin (standard-object)
- ((plist :initform () :accessor object-plist)))
+ ((plist :initform () :accessor object-plist :initarg plist)))
(defclass dependent-update-mixin (plist-mixin) ())