anchor.diff:  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)
  +  (defun %encoding-keyword-to-native (encoding)
       (ext:make-encoding
        :charset (case encoding
                   (:utf-8    charset:utf-8)
  
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: 
  ;;;; ** Converting strings to/from foreign encodings
  
  (declaim (inline string-to-octets))
  (defun string-to-octets (string encoding)
    "Convert STRING, a list string, a vector of bytes according to ENCODING.
  
  