(defmethod sod-message-receiver-type ((message sod-message)
(class sod-class))
- (c-type (* (class class))))
+ (c-type (* (class class
+ (and (sod-message-readonly-p message) :const)))))
(export 'simple-message)
(defclass simple-message (basic-message)
;; Effective method function details.
(emf-name (effective-method-function-name method))
- (ilayout-type (c-type (* (struct (ilayout-struct-tag class)))))
+ (ilayout-type (c-type (* (struct (ilayout-struct-tag class)
+ (and (sod-message-readonly-p
+ message)
+ :const)))))
(emf-type (c-type (fun (lisp return-type)
("sod__obj" (lisp ilayout-type))
. entry-args))))