anchor.diff:          (encoding (column-definition-encoding column-definition)))
       (labels ((to-string (octets)
                  (if encoding
  -                 (babel:octets-to-string octets :encoding encoding)
  -                 octets))
  +                   (decode-octets-to-string octets encoding)
  +                   octets))
                (parse-binary-integer (length)
                  (read-fixed-length-integer
                   length stream
  
positive.code:             collect row)))
      (coerce rows result-type)))
  
  (defun parse-text-protocol-result-column-as-text (octets column-definition)
    "Refrain from parsing data into lisp types, some application will only use
     the text form anyway"
  
negative.code:                              +mysql-cs-coll-binary+))
                 octets
                 (let ((encoding (column-definition-encoding column-definition)))
                   (decode-octets-to-string octets encoding))))
  
            (t
             (let ((encoding (column-definition-encoding column-definition)))
               (decode-octets-to-string octets encoding))))))
  
  (defun parse-text-protocol-result-column (octets column-definition)
    (let ((column-type (column-definition-type column-definition))
          str)
      (labels ((str ()
                 (unless str (setf str (decode-octets-to-string octets)))
                 str)
               (parse-float (&optional (float-format 'single-float))
                 ;; Look into replacing this with a library, or moving it to utilities.lisp.
  