(:documentation
"Return the type of the `me' argument in a MESSAGE received by CLASS.
- Typically this will just be `CLASS *'."))
+ Typically this will just be `CLASS *' or `const CLASS *'."))
(export 'sod-message-applicable-methods)
(defgeneric sod-message-applicable-methods (message class)
(definst convert-to-ilayout (stream :export t)
(%class chain-head %expr)
+ "Expression to convert EXPR to point to its enclosing `ilayout'.
+
+ Given a pointer EXPR which points into a direct instance of CLASS,
+ specifically to the `ichain' whose head class is CHAIN-HEAD, evaluate the
+ base address of the enclosing `ilayout' structure.
+
+ The output looks like:
+
+ SOD_ILAYOUT(CLASS, NICK, EXPR)"
(format stream "SOD_ILAYOUT(~@<~A, ~_~A, ~_~A~:>)"
class (sod-class-nickname chain-head) expr))