anchor.diff:  (defun parse-error-packet (stream)
     (let* ((error-code (read-int stream))
            (error-msg (parse-string stream)))
  -    (print error-msg)
  -    (error 'error-response :code error-code :msg error-msg)))
  +    (make-instance 'error-response :code error-code :msg error-msg)))
   
   (defun row-flag-set? (flags flag)
     (gethash flag
  
positive.code:    (query-id     :accessor qid :initarg :qid)
     (col-specs    :accessor cs  :initarg :cs)))
  
  (defmethod print-object ((pq prepared-query) stream)
    (format stream "#<PREPARED-QUERY> {~A}" (uuid:byte-array-to-uuid (qid pq))))
  
  
negative.code: (in-package :cqlcl)
  
  
  (defclass header ()
    ((ptype       :accessor ptype       :initarg :ptype       :initform +request+)
  