D'oh, forgot to initialize nullable and sequence slots to nil

git-svn-id: http://svn.internal.itasoftware.com/svn/ita/branches/qres/swm/borgify-1/qres/lisp/quux/protobufs@537223 f8382938-511b-0410-9cdd-bb47b084005c

diff --git a/define-proto.lisp b/define-proto.lisp
index a2ad3e19d916ac56ca81e01ec35be567f42029fd..045a8d8bab65eca0b0b78fd0884dc445c12f3863 100644 (file)
--- a/define-proto.lisp
+++ b/define-proto.lisp
@@ -199,7 +199,12 @@
                    (collect-slot `(,slot :type ,type
                                          :accessor ,accessor
                                          :initarg ,(kintern (symbol-name slot))
-                                         ,@(and default (list :initform default)))))
+                                         ,@(cond ((and (null default) (eq reqd :repeated))
+                                                  `(:initform ()))
+                                                 ((and (null default) (eq reqd :optional))
+                                                  `(:initform nil))
+                                                 (default
+                                                   `(:initform ,default))))))
                  (collect-field `(make-instance 'protobuf-field
                                    :name  ,(or name (slot-name->proto slot))
                                    :type  ,ptype