ste5.lisp

(defun decide-next-step ()
  "Decide what to do next based on the current character"
  (let ((c (read-char stream nil)))
    (cond ((not c) (add-char-to-out #\newline) out-paragraph)
          ((char= #\% c) (throw-away-until-newline))
          ((char= #\\ c) (check-for-frame-title))
          (t (decide-next-step)))))