X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/1622ed8e30b05ba9025520cde3e68d186c8c7e50..a888e3acc123993fa6fca9338f291b306aa131e2:/src/builtin.lisp

diff --git a/src/builtin.lisp b/src/builtin.lisp
index ea72d66..e4b42de 100644
--- a/src/builtin.lisp
+++ b/src/builtin.lisp
@@ -143,18 +143,10 @@ static void *~A__init(void *p)~%{~%" class)
 		     (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