Raymond Toy pushed to branch issue-139-set-filename-encoding-to-utf8 at cmucl / cmucl

Commits:

• d12d1153
  by Raymond Toy at 2022-12-11T09:22:51-08:00

  Workaround for test issue.25c
  
  Load the `:utf16-be` format before opening the file with an external
  format of `:utf16-be`.  Added comment on the underlying issue.
  

1 changed file:

• tests/issues.lisp

Changes:

 					   #\greek_small_letter_beta)))

 	 (expected (stream:string-encode in-string :utf16-be))

 	 (path #p"issue25c.txt"))

+    ;; Get the external format before opening the file.  See issue

+    ;; #161 (https://gitlab.common-lisp.net/cmucl/cmucl/-/issues/161).

+    (stream::find-external-format :utf16-be)

     (with-open-file (s path :direction :output :if-exists :supersede :external-format :utf16-be)

       (write-string in-string s)

       (force-output s)