+(defun string-to-c-string (string external-format)
+ (declare (type simple-string string))
+ (locally
+ (declare (optimize (speed 3) (safety 0)))
+ (let ((func (sb!impl::get-external-format-function external-format 10)))
+ (unless func
+ (error "Undefined external-format ~A.~%" external-format))
+ (funcall (symbol-function func) string))))
+
+(defun c-string-to-string (sap external-format element-type)