(write-line string &optional (stream *standard-output*) &key (start 0) end)
(ql-util:write-line-to-file string file)
(write-char character &optional (stream *standard-output*))
(defun emit-newline (ip) (write-char #\Newline (out ip)) (setf (beginning-of-line-p ip) t))
(write-byte integer stream)
(defun output-type-code (code stream) (declare (type ub32 code)) (write-byte (ldb (byte 8 0) code) stream))
(write-string string &optional (stream *standard-output*) &key (start 0) end)