Custom Query (1030 matches)

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)
            ))))))

Building Clozure CL from sources using the standard procedure on Windows 7 64-bit (msys/mingw-w4) fails with:

Error: File exists : "c:/Docume~1/gdr/" While executing: CREATE-DIRECTORY, in process listener(1).

When I launch wx86cl64 (version 1.11-r16635 (WindowsX8664)) I get the usual CL prompt, but when I (quit) the command line is not restored to a prompt (i.e. >). I can't input any other keyboard commands after exiting, it appears that the prompt is frozen.