id,summary,reporter,owner,description,type,status,priority,milestone,component,version,resolution,keywords,cc
732,small unicode problem,kmorgan,,"I'm doing an experiment in formatting some files that use Devanagari unicode characters. The input file is utf8, and it's my intention to produce a utf8 output file. The following function reads a sexp, and for each correctly prints a Devanagari word to the screen, and apparently writes the same word as garbage to the output file. Can you please tell me the right stream parameters? Thanks.

{{{
(defun format-dict ()
  (let ((fi ""/Users/kmorgan/documents/yoga/sanskrit/roots/roots.txt"")
        (fo ""/Users/kmorgan/documents/yoga/sanskrit/roots/dict.txt""))
    (with-open-file (si fi :external-format :utf-8)
      (with-open-file (so fo  :direction :output :if-exists :supersede :external-format :utf-8)
        (let ((*print-miser-width* 120))
          (do ((x (read si nil nil) (read si nil nil))) 
              ((null x))
            (princ (second (second x)) so)
            (princ (second (second x)))
            ;(print-entry so x)
            ))))))
}}}
",defect,closed,normal,,IDE,1.4,worksforme,,