;;; -*- Mode:LISP; Package:ZWEI; Base:10; Fonts:(MEDFNT MEDFNB TR12); Readtable:ZL -*-
1;;;Test the multi-font stuff - getting rid of art-q-list*
;1;;This is in font 1.
;;;This is in font 1* But this is in font 0.
;;How does it all look?
2;;This is in font 3 - how does that look?*

(defun test (&optional (fl "dj:keith;ftest.lisp#>") (out *standard-output*) &aux ch)
  (with-open-stream (in (open-editor-stream :pathname fl
					    :hack-fonts t
					    :load-p t
					    :start :beginning :end :end))
    (do-forever
      (setq ch (send in :tyi nil))
      (if (null ch) (return))
      (format out "~C" ch))))