[Push new subobjects onto <list> slots in the proper order
clinton@unknownlamer.org**20090502044106
 Ignore-this: a1eb5c61943d44dbac844a069dbf0453
] hunk ./src/serializer-class.lisp 29
-     (push subobject
-	   (slot-value object (c2mop:slot-definition-name slot-definition))))
+     (setf (slot-value object (c2mop:slot-definition-name slot-definition))
+	   (nconc
+	    (slot-value object (c2mop:slot-definition-name slot-definition))
+	    (list subobject))))