anchor.diff:    (is (typep
          (with-input-from-sequence
              (in (with-output-to-sequence (out)
  -                 (write-stop-not-ok-response out)))
  +                 (write-message out (make-stop-not-ok-response))))
            (read-stop-response in))
          'stop-not-ok-response))
     )
  
positive.code:   (is (typep
         (with-input-from-sequence
             (in (with-output-to-sequence (out)
                   (write-names-response out 3456 "hello world")))
           (read-names-response in))
         'names-response))
    )
  
negative.code:   (is (typep
         (with-input-from-sequence
             (in (with-output-to-sequence (out)
                   (write-message out (make-kill-request))))
           (read-request in))
         'kill-request))
    )
  