src/: Abolish the distinction between different kinds of initializers.

[sod] / src / builtin.lisp

diff --git a/src/builtin.lisp b/src/builtin.lisp
index ea72d662999a5244e315feac9aae815848727848..e4b42de7665ce27bf9d64e637af15b0699b4470c 100644 (file)
--- a/src/builtin.lisp
+++ b/src/builtin.lisp
@@ -143,18 +143,10 @@ (define-class-slot "init" (class stream)
                     (format stream "  {~%    ")
                     (pprint-c-type (sod-slot-type dslot) stream
                                    *sod-tmp-val*)
-                    (format stream " =")
-                    (ecase (sod-initializer-value-kind init)
-                      (:simple (write (sod-initializer-value-form init)
-                                      :stream stream
-                                      :pretty nil :escape nil)
-                               (format stream ";~%"))
-                      (:compound (format stream " {")
-                                 (write (sod-initializer-value-form init)
-                                        :stream stream
-                                        :pretty nil :escape nil)
-                                 (format stream "    };~%")))
-                    (format stream "    ~A.~A = ~A;~%  }~%"
+                    (format stream " = ~A;~%    ~
+                                      ~A.~A = ~A;~%  ~
+                                    }~%"
+                            (sod-initializer-value init)
                             isl (sod-slot-name dslot)
                             *sod-tmp-val*))))))))))
     (unless used