;;;--------------------------------------------------------------------------
;;; Direct method classes.
;;;--------------------------------------------------------------------------
;;; Direct method classes.
(defclass basic-direct-method (sod-method)
((role :initarg :role :type symbol :reader sod-method-role)
(function-type :type c-function-type :reader sod-method-function-type))
(defclass basic-direct-method (sod-method)
((role :initarg :role :type symbol :reader sod-method-role)
(function-type :type c-function-type :reader sod-method-function-type))
;;;--------------------------------------------------------------------------
;;; Effective method classes.
;;;--------------------------------------------------------------------------
;;; Effective method classes.
(defclass basic-effective-method (effective-method)
((around-methods :initarg :around-methods :initform nil
:type list :reader effective-method-around-methods)
(defclass basic-effective-method (effective-method)
((around-methods :initarg :around-methods :initform nil
:type list :reader effective-method-around-methods)