anchor.diff:  (in-package :btcl-net)
   
  -;;; draws heavily on github.com/CodeShark/CoinClasses
  +(defparameter *debug* t)
   
   (defclass peer-connection ()
     ((host :initarg :host)
  
positive.code:       (when *debug*
          (format t "ev: ~a (~a)~%" (type-of ev) ev)))))
  
  (defun make-event-cb (remote)
    (lambda (socket stream)
      (let ((msg (bindata:read-value p2p-msg stream)))
        (with-slots (command handshaken) msg
          (cond ((string= command "verack")
                 (setf handshaken (boole boole-ior handshaken #b10)))
                ((string= command "version")
                 (setf handshaken (boole boole-ior handshaken #b01))
                 (send-verack remote)))))))
  
  
negative.code:                         :relay 1)))
      (multiple-value-bind (cksm len) (checksum-payload msg)
        (setf (slot-value msg 'checksum) cksm)
        (setf (slot-value msg 'len) len)
        (bindata:write-value 'msg-version (slot-value remote 'tcp-socket) msg))))
  
  (defun send-verack (remote)
  