実用common lispのp.427の

(with-open-file (out "foo.html" :direction output)
(with-html-output (out :pretty t)
(emit-html *some-foo-expression*)))

のoutputは:outputの誤表記でしょうか？