(defun lookup-foreign-encoding (normalized)
(cdr (assoc normalized *foreign-encoding-mapping* :test 'eql)))
(defun lookup-foreign-encoding (normalized)
(cdr (assoc normalized *foreign-encoding-mapping* :test 'eql)))
(declare (ignorable encoding))
#-(or allegro lispworks openmcl sbcl)
(map-into (make-array (length str) :element-type '(unsigned-byte 8))
(declare (ignorable encoding))
#-(or allegro lispworks openmcl sbcl)
(map-into (make-array (length str) :element-type '(unsigned-byte 8))
(,ife (when ,fe (lookup-foreign-encoding ,fe)))
(,s ,str))
(values
(,ife (when ,fe (lookup-foreign-encoding ,fe)))
(,s ,str))
(values
(,ife (when ,fe (lookup-foreign-encoding ,fe)))
(,s ,str))
(if ,ife
(,ife (when ,fe (lookup-foreign-encoding ,fe)))
(,s ,str))
(if ,ife
"Converts a vector of octets to a Lisp string."
(declare (ignorable encoding))
#-(or allegro lispworks openmcl sbcl)
"Converts a vector of octets to a Lisp string."
(declare (ignorable encoding))
#-(or allegro lispworks openmcl sbcl)
(,ife (when ,fe (lookup-foreign-encoding ,fe)))
(,oct ,octets))
(values
(,ife (when ,fe (lookup-foreign-encoding ,fe)))
(,oct ,octets))
(values
(,ife (when ,fe (lookup-foreign-encoding ,fe)))
(,oct ,octets))
(if ,ife
(,ife (when ,fe (lookup-foreign-encoding ,fe)))
(,oct ,octets))
(if ,ife
"Returns the octets required to represent the string when passed to a ~
foreign function."
(declare (ignorable encoding))
"Returns the octets required to represent the string when passed to a ~
foreign function."
(declare (ignorable encoding))