(string-to-c-str str) → c-str
Function:
(defun string-to-c-str (str) (declare (xargs :guard (stringp str))) (let ((__function__ 'string-to-c-str)) (declare (ignorable __function__)) (b* ((lst (coerce str 'list))) (chars-to-c-str lst))))
Theorem:
(defthm byte-listp-of-string-to-c-str (b* ((c-str (string-to-c-str str))) (byte-listp c-str)) :rule-classes :rewrite)