;;;--------------------------------------------------------------------------
;;; Messages and methods.
;;;--------------------------------------------------------------------------
;;; Messages and methods.
(defclass sod-message ()
((name :initarg :name :type string :reader sod-message-name)
(location :initarg :location :initform (file-location nil)
:type file-location :reader file-location)
(defclass sod-message ()
((name :initarg :name :type string :reader sod-message-name)
(location :initarg :location :initform (file-location nil)
:type file-location :reader file-location)
(%class :initarg :class :type sod-class :reader sod-message-class)
(%type :initarg :type :type c-function-type :reader sod-message-type))
(:documentation
(%class :initarg :class :type sod-class :reader sod-message-class)
(%type :initarg :type :type c-function-type :reader sod-message-type))
(:documentation
* The `location' states where in the user's source the slot was defined.
It gets used in error messages.
* The `location' states where in the user's source the slot was defined.
It gets used in error messages.
* The `class' states which class defined the message.
* The `type' is a function type describing the message's arguments and
* The `class' states which class defined the message.
* The `type' is a function type describing the message's arguments and