(c-function-keywords type))))
(when keys
(format stream "struct ~A {~%~
- ~{ unsigned ~A : 1;~%~}~
+ ~{ unsigned ~A: 1;~%~}~
};~2%"
(direct-method-suppliedp-struct-tag method)
(mapcar #'argument-name keys))))))))
class)
(format stream "~&struct ~A {~%"
(effective-method-keyword-struct-tag method))
- (format stream "~{ unsigned ~A__suppliedp : 1;~%~}"
+ (format stream "~{ unsigned ~A__suppliedp: 1;~%~}"
(mapcar #'argument-name keys))
(dolist (key keys)
(write-string " " stream)
(let ((dslot (effective-slot-direct-slot slot)))
(or (some (lambda (super)
(find dslot (sod-class-class-initializers super)
- :test #'sod-initializer-slot))
+ :key #'sod-initializer-slot))
(sod-class-precedence-list class))
(effective-slot-initializer slot)))))