Write each object in a list to a character output channel.
General Form: (fms!-lst list channel state)
where list is an arbitrary list that is null-terminated — that is,
satisfies true-listp —
(defun fms!-lst (lst chan state) (declare (xargs :stobjs state :guard (and (open-output-channel-p chan :character state) (true-listp lst)))) (cond ((endp lst) state) (t (pprogn (fms! "~X01" (list (cons #\0 (car lst)) (cons #\1 nil)) chan state nil) (fms!-lst (cdr lst) chan state)))))