anchor.diff:            (progn
               (format t "~&checksum received: ~X~%checksum computed: ~X~%" checksum computed-cksm)
               (signal 'invalid-msg :bad-checksum))
  -          (format t "checksum checks out!"))
  +          ;(format t "checksum checks out!")
  +          )
         (with-slots (handshaken) remote
           (cond ((string= command "verack")
                  (format t "~&got a verack!")
  
positive.code:                (send-msg remote (prep-msg (make-instance 'msg-verack)))
                 (format t "~&handshaken: ~d~%" handshaken))
                ((string= command "inv")
                 (format t "~&got some inventory!")
                 (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
  
negative.code:                                                               :inv-vectors interesting-inventory)))))))
                ((string= command "tx")
                 (format t "~&got a tx! ")
                 ;; (with-slots (bty::version bty::lock-time) (slot-value message 'tx)
                 ;;  (format t "version: ~a~%nLockTime: ~a~%" bty::version bty::lock-time))
                 (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)))
                (t (format t "~&received message of unknown type: ~s~%" command)))))))
  
  (defun start-peer (remote)
    (as:with-event-loop (:catch-app-errors nil)
  