Darn, forgot to save a buffer. Sorry for the build errors.

git-svn-id: http://svn.internal.itasoftware.com/svn/ita/trunk/qres/lisp/quux/protobufs@542733 f8382938-511b-0410-9cdd-bb47b084005c

diff --git a/proto-pkgdcl.lisp b/proto-pkgdcl.lisp
index 05facc7c91380ba7fa4ebae62e17c937e159406b..bd95f1e98dca9868436e1a7a915986de4a0a7080 100644 (file)
--- a/proto-pkgdcl.lisp
+++ b/proto-pkgdcl.lisp
@@ -178,6 +178,8 @@
    "$WIRE-TYPE-VARINT"
    "$WIRE-TYPE-64BIT"
    "$WIRE-TYPE-STRING"
+   "$WIRE-TYPE-START-GROUP"
+   "$WIRE-TYPE-END-GROUP"
    "$WIRE-TYPE-32BIT"
    "MAKE-TAG"
    "ENCODE-UINT32"

diff --git a/wire-format.lisp b/wire-format.lisp
index e59bedcdd78cce88d831814a863448b5bfc491cd..9c0186fa4ff15ef1b7f88c9dded5e2c061153af4 100644 (file)
--- a/wire-format.lisp
+++ b/wire-format.lisp
@@ -15,6 +15,8 @@
 
 ;;; Utilities
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+
 (defconstant $wire-type-varint 0)
 (defconstant $wire-type-64bit  1)
 (defconstant $wire-type-string 2)
@@ -22,6 +24,9 @@
 (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."