anchor.diff:  
   (defun encode-integer (integer)
     "Encode an integer to a 0-padded 16-bit hexadecimal string."
  -  (format nil "~6,'0,X" integer))
  +  (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."
  
positive.code:   (with-slots (hostname port) connection
      (let ((socket (usocket:socket-connect hostname
                                            port
                                            :element-type 'character)))
        (setf (connection-socket connection) socket)))
    t)
  
  
negative.code: (defun log-message (connection format-string &rest arguments)
    "Log a message."
    (when (connection-log-p connection)
      (lem::pdebug (cons format-string arguments))
      #+(or)(apply #'format (cons (connection-logging-stream connection)
                            (cons format-string
                                  arguments)))))
  
  