anchor.diff:    (with-slots (hostname port) connection
       (let ((socket (usocket:socket-connect hostname
                                             port
  -                                          :element-type 'character)))
  +                                          :element-type '(unsigned-byte 8))))
         (setf (connection-socket connection) socket)))
     t)
   
  
positive.code: (defun log-message (connection format-string &rest arguments)
    "Log a message."
    (when (connection-log-p connection)
      (apply #'format (cons (connection-logging-stream connection)
                            (cons format-string
                                  arguments)))))
  
  
negative.code: 
  (defun encode-integer (integer)
    "Encode an integer to a 0-padded 16-bit hexadecimal string."
    (babel:string-to-octets (format nil "~6,'0,X" integer)))
  
  (defun decode-integer (string)
    "Decode a string representing a 0-padded 16-bit hex string to an integer."
  