(get-latin-bytes #'identity :cp437 string pos end))
(defun string->cp437 (string sstart send null-padding)
(declare (optimize speed (safety 0))
(get-latin-bytes #'identity :cp437 string pos end))
(defun string->cp437 (string sstart send null-padding)
(declare (optimize speed (safety 0))