Various, style: Generally prefer `: ' over ` : '.

[sod] / src / class-output.lisp

diff --git a/src/class-output.lisp b/src/class-output.lisp
index 2d1c222635d945b94911f39b5a69e68c718a3d5f..806de356886f423dbab797e68fe925970b1bfd35 100644 (file)
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -299,7 +299,7 @@ (defmethod hook-output progn
                         (c-function-keywords type))))
         (when keys
           (format stream "struct ~A {~%~
                         (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))))))))
                           };~2%"
                   (direct-method-suppliedp-struct-tag method)
                   (mapcar #'argument-name keys))))))))


@@ -511,7 +511,7 @@ (defmethod hook-output progn
                                  class)
           (format stream "~&struct ~A {~%"
                   (effective-method-keyword-struct-tag method))
                                  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)
                   (mapcar #'argument-name keys))
           (dolist (key keys)
             (write-string "  " stream)