(define-alien-type char (integer 8))
(define-alien-type short (integer 16))
(define-alien-type int (integer 32))
(define-alien-type char (integer 8))
(define-alien-type short (integer 16))
(define-alien-type int (integer 32))
(define-alien-type long-long (integer 64))
(define-alien-type unsigned-char (unsigned 8))
(define-alien-type unsigned-short (unsigned 16))
(define-alien-type unsigned-int (unsigned 32))
(define-alien-type long-long (integer 64))
(define-alien-type unsigned-char (unsigned 8))
(define-alien-type unsigned-short (unsigned 16))
(define-alien-type unsigned-int (unsigned 32))
(declare (optimize (speed 3) (safety 0)))
(let ((external-format (sb!impl::get-external-format-or-lose external-format)))
(funcall (sb!impl::ef-read-c-string-fun external-format) sap element-type))))
(declare (optimize (speed 3) (safety 0)))
(let ((external-format (sb!impl::get-external-format-or-lose external-format)))
(funcall (sb!impl::ef-read-c-string-fun external-format) sap element-type))))