- (destructuring-bind (lisp-type lisp-el-name c-type c-el-name) e
- (format stream "printf(\"(sb-grovel::define-c-accessor ~A-~A ~A ~A \");~%"
+ (destructuring-bind (lisp-type lisp-el-name c-type c-el-name &key distrust-length) e
+ ;; FIXME: this format string doesn't actually guarantee
+ ;; non-multilined-string-constantness, it just makes it more
+ ;; likely. Sort out the required behaviour (and maybe make
+ ;; the generated C more readable, while we're at it...) --
+ ;; CSR, 2003-05-27
+ (format stream "printf(\"(sb-grovel::define-c-accessor ~A-~A\\n\\~% ~
+ ~A ~A \");~%"