- ((message :initarg :message
- :type sod-message
- :reader sod-method-message)
- (location :initarg :location
- :initform (file-location nil)
- :type file-location
- :reader file-location)
- (class :initarg :class
- :type sod-class
- :reader sod-method-class)
- (type :initarg :type
- :type c-function-type
- :reader sod-method-type)
- (body :initarg :body
- :type (or c-fragment null)
- :reader sod-method-body))
+ ((message :initarg :message :type sod-message :reader sod-method-message)
+ (location :initarg :location :initform (file-location nil)
+ :type file-location :reader file-location)
+ (class :initarg :class :type sod-class :reader sod-method-class)
+ (type :initarg :type :type c-function-type :reader sod-method-type)
+ (body :initarg :body :type (or c-fragment null) :reader sod-method-body))