((struct cls##__ilayout *) \
((char *)(obj) - offsetof(struct cls##__ilayout, chead)))
-/* --- @SOD__CAR@ --- *
+/* --- @SOD_CAR@ --- *
*
* Arguments: @...@ = a nonempty list of arguments
*
*/
#if __STDC_VERSION__ >= 199901
-# define SOD__CAR(...) SOD__CARx(__VA_LIST__, _)
+# define SOD_CAR(...) SOD__CARx(__VA_LIST__, _)
# define SOD__CARx(a, ...) a
#endif
raw-name)))
(cond ((and (cdr args) (eq (cadr args) :ellipsis))
(setf varargsp t)
- (unless in-names (setf me "SOD__CAR(__VA_ARGS__)"))
+ (unless in-names (setf me "SOD_CAR(__VA_ARGS__)"))
(push (format nil "/*~A*/ ..." name) in-names)
(push "__VA_ARGS__" out-names)
(return))