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:                (send-msg remote (prep-msg (make-instance 'msg-verack)))
                 (format t "~&handshaken: ~d~%" handshaken))
                ((string= command "inv")
                 (format t "~&got an inv notification!")
                 (with-slots (magic command len checksum cnt inv-vectors) (slot-value message 'header)
                   (with-slots (cnt inv-vectors) message
                    ;(format t "~&magic: ~X~%command: ~s~%len: ~d~%checksum: ~X" magic command len checksum)
                    (let ((interesting-inventory (loop for inv in inv-vectors
                                                    for objtype = (slot-value inv 'bty::obj-type)
                                                    for hsh = (slot-value inv 'bty::hash)
                                                    ;; do (format t "~&~tcount: ~d~%~tobj_type: ~d~%~thash: ~X~%"
                                                    ;;            cnt objtype hsh)
                                                    when (or (= objtype 1) (= objtype 2))
                                                    collect inv)))
                      (send-msg remote (prep-msg (make-instance 'msg-getdata
  