anchor.diff:    (is (typep
          (with-input-from-sequence
              (in (with-output-to-sequence (out)
  -                 (write-port2-null-response out)))
  +                 (write-message out (make-port2-null-response))))
            (read-port2-response in))
          'port2-response))
   
     (is (typep
          (with-input-from-sequence
              (in (with-output-to-sequence (out)
  -                 (write-port2-node-info-response out "test@example" 3456)))
  +                 (write-message out (make-port2-node-info-response
  +                                     "test@example" 3456))))
            (read-port2-response in))
          'port2-response))
     )
  
positive.code:   (is (typep
         (with-input-from-sequence
             (in (with-output-to-sequence (out)
                   (write-dump-response out 3456 "hello world")))
           (read-dump-response in))
         'dump-response))
    )
  
negative.code:   (is (typep
         (with-input-from-sequence
             (in (with-output-to-sequence (out)
                   (write-message out (make-names-request))))
           (read-request in))
         'names-request))
    )
  