git-svn-id: http://svn.internal.itasoftware.com/svn/ita/trunk/qres/lisp/quux/protobufs@542733
f8382938-511b-0410-9cdd-
bb47b084005c
"$WIRE-TYPE-VARINT"
"$WIRE-TYPE-64BIT"
"$WIRE-TYPE-STRING"
+ "$WIRE-TYPE-START-GROUP"
+ "$WIRE-TYPE-END-GROUP"
"$WIRE-TYPE-32BIT"
"MAKE-TAG"
"ENCODE-UINT32"
;;; Utilities
+(eval-when (:compile-toplevel :load-toplevel :execute)
+
(defconstant $wire-type-varint 0)
(defconstant $wire-type-64bit 1)
(defconstant $wire-type-string 2)
(defconstant $wire-type-end-group 4) ;supposedly obsolete
(defconstant $wire-type-32bit 5)
+) ;eval-when
+
+
(defun make-tag (type index)
"Given a wire type or the name of a Protobufs type and a field index,
return the tag that encodes both of them."