Custom Query (1030 matches)

SLSIA. This crash occurs only with an active selection in the listener, not when the cursor is on a close paren, and not when there is an active selection in an editor window.

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

To reproduce:

• open clozure cl
• in the listener type (ccl::choose-file-dialog
• drag any file in the dialogs main view
• notice that the application crashes and the following error is reported in the console:

  > Error: FLOATING-POINT-INVALID-OPERATION detected
  > While executing: (:INTERNAL GUI::|-[LispApplication sendEvent:]|), in process Initial(0).