+(defmethod print-object ((initarg sod-user-initarg) stream)
+ (maybe-print-unreadable-object (initarg stream :type t)
+ (pprint-c-type (sod-initarg-type initarg) stream
+ (sod-initarg-name initarg))
+ (awhen (sod-initarg-default initarg)
+ (format stream " = ~A" it))))
+
+(export '(sod-slot-initarg sod-initarg-slot))