anchor.diff:           (ht (alexandria:alist-hash-table
                 '((1 . "SOMETHING")
                   (2 . "whatever")
  -                (3 . "turds")))))
  +                (3 . "turds")) :test #'equalp)))
       (is (equal (query cxn create-keyspace) t))
       (is (equal (query cxn create-table) t))
       (is (equal (prepare cxn insert) nil))
  
positive.code: 
  (defun hash-equal (h1 h2)
    (maphash (lambda (k v)
               (is (equalp (gethash k h2) (values v t)))) h1))
  
  (test parse-options-header
    (let* ((packet (make-stream-from-byte-vector
  
negative.code:                  #'= #'uuid:uuid= #'uuid:uuid= #'string= #'=)))
        (loop for (a b f) in (mapcar #'list res expected comparitors)
           do
             (is (funcall f a b))))
      (is (equal (query cxn drop-keyspace) t))))
  