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