anchor.diff:  (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+))))
  +              :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))
  
positive.code:                        'test-pb:text-format-test
                         :stream (make-string-input-stream text))))
        (assert-equality #'proto:proto-equal msg msg-parse)
        (assert-equality #'string= text (second +double-nested-message+)))))
  
  
  
  
negative.code:   (clunit:run-suite 'text-format-suite :use-debugger use-debugger
                                         :signal-condition-on-fail t))
  
  (defparameter *text-format-msg*
  "int_field: 100
  sint_field: -1
  uint_field: 1
  