anchor.diff:  
   #-(or (and sbcl sb-unicode) (and clisp unicode))
   (progn
  +  (defun %encoding-keyword-to-native (encoding)
  +    encoding)
  +  
     (defun %string-to-octets (string encoding)
       (declare (ignore encoding))
       (map-into (make-array (length string) :element-type 'unsigned-byte)
  
positive.code: pass that. On SBCL we simply pass the keyword."
    (%string-to-octets string encoding))
  
  (defun octets-to-string (octets encoding)
    (%octets-to-string octets encoding))
  
  ;;;; *** CLISP
  
  #+(and clisp unicode)
  (progn
    (defun encoding-keyword-to-native (encoding)
      (ext:make-encoding
       :charset (case encoding
                  (:utf-8    charset:utf-8)
  
negative.code: 
  #+(and sbcl sb-unicode)
  (progn
    (defun %encoding-keyword-to-native (encoding)
      (case encoding
        (:utf-8 :utf8)
        (:utf-16 :utf16)
  