anchor.diff:    (clunit:run-suite 'text-format-suite :use-debugger use-debugger
                                          :signal-condition-on-fail t))
   
  -(defconstant +text-format-msg+
  +(defparameter *text-format-msg*
   "int_field: 100
   sint_field: -1
   uint_field: 1
  
positive.code: symbol_field: ':t'
  symbol_field: ':nil'")
  
  (defconstant +double-nested-message+
    (list
     "int_field: 0
  one_level_nesting {
  
negative.code: (deftest test-parse-text-format (text-format-suite)
    (let ((msg (proto:parse-text-format
                'test-pb:text-format-test
                :stream (make-string-input-stream *text-format-msg*))))
      (assert-eql 100 (test-pb:int-field msg))
      (assert-eql -1 (test-pb:sint-field msg))
      (assert-eql 1 (test-pb:uint-field msg))
  