From 2a0832c8acaaa79a4e52ef01f1e0bed304b00506 Mon Sep 17 00:00:00 2001
From: Scott McKay <swm@google.com>
Date: Mon, 7 May 2012 17:49:27 +0000
Subject: [PATCH] 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
---
 proto-pkgdcl.lisp | 2 ++
 wire-format.lisp  | 5 +++++
 2 files changed, 7 insertions(+)

diff --git a/proto-pkgdcl.lisp b/proto-pkgdcl.lisp
index 05facc7..bd95f1e 100644
--- 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 e59bedc..9c0186f 100644
--- 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."
-- 
2.45.2