anchor.diff:  (in-package :btcl-wire)
  +
  +;;; TODO: all commented out (format)s need to be wrapped in a shim that allows
  +;;; them to be easily enabled/disabled
   
   (defparameter *debug* t)
   
  
positive.code:                                                               :inv-vectors interesting-inventory)))))))
                ((string= command "tx")
                 (format t "~&got a tx! ")
                 (btcl-web:notify-tx (slot-value message 'tx) msg-hash))
                ((string= command "block")
                 (format t "~&got a block!~%")
                 (btcl-web:notify-blk (slot-value message 'blk)))
  
  (defun start-peer (remote)
    (as:with-event-loop (:catch-app-errors nil)
  
negative.code:           (progn
              (format t "~&checksum received: ~X~%checksum computed: ~X~%" checksum computed-cksm)
              (signal 'invalid-msg :bad-checksum))
            ;(format t "checksum checks out!")
            )
        (with-slots (handshaken) remote
          (cond ((string= command "verack")
                 (format t "~&got a verack!")
  