X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/1622ed8e30b05ba9025520cde3e68d186c8c7e50..a888e3acc123993fa6fca9338f291b306aa131e2:/src/class-output.lisp

diff --git a/src/class-output.lisp b/src/class-output.lisp
index abe5132..a59bda0 100644
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -675,13 +675,9 @@ (defgeneric output-class-initializer (slot instance stream)
   (:method ((slot effective-slot) (instance sod-class) stream)
     (let ((init (find-class-initializer slot instance))
 	  (direct-slot (effective-slot-direct-slot slot)))
-      (ecase (sod-initializer-value-kind init)
-	(:simple (format stream "        /* ~15@A = */ ~A,~%"
-			 (sod-slot-name direct-slot)
-			 (sod-initializer-value-form init)))
-	(:compound (format stream "        /* ~15@A = */ ~@<{ ~;~A~; },~:>~%"
-			   (sod-slot-name direct-slot)
-			   (sod-initializer-value-form init)))))))
+      (format stream "        /* ~15@A = */ ~A,~%"
+	      (sod-slot-name direct-slot)
+	      (sod-initializer-value init)))))
 
 (defmethod hook-output progn
     ((slot sod-class-effective-slot) (reason (eql 'class)) sequencer)