anchor.diff:  
   #+(and sbcl sb-unicode)
   (progn
  -  (defun encoding-keyword-to-native (encoding)
  +  (defun %encoding-keyword-to-native (encoding)
       (case encoding
         (:utf-8 :utf8)
         (:utf-16 :utf16)
  
positive.code: 
  #-(or (and sbcl sb-unicode) (and clisp unicode))
  (progn
    (defun %string-to-octets (string encoding)
      (declare (ignore encoding))
      (map-into (make-array (length string) :element-type 'unsigned-byte)
  
negative.code: pass that. On SBCL we simply pass the keyword."
    (%string-to-octets string encoding))
  
  (declaim (inline octets-to-string))
  (defun octets-to-string (octets encoding)
    (%octets-to-string octets encoding))
  
  (declaim (inline encoding-keyword-to-native))
  (defun encoding-keyword-to-native (encoding)
    "Convert ENCODING, a keyword, to an object the native list
  accepts as an encoding.
  
  ENCODING can be: :UTF-8, :UTF-16, or :US-ASCII and specify the
  corresponding encodings. Any other keyword is passed, as is, to
  the underlying lisp."
    (%encoding-keyword-to-native encoding))
  
  ;;;; *** CLISP
  
  #+(and clisp unicode)
  (progn
    (defun %encoding-keyword-to-native (encoding)
      (ext:make-encoding
       :charset (case encoding
                  (:utf-8    charset:utf-8)
  