The Unicode database is shipped in DOS CR+LF format

This commit is contained in:
Juan Jose Garcia Ripoll 2009-01-11 20:11:50 +01:00
parent ba16e548a3
commit 02a44ebdcd

View file

@ -103,7 +103,7 @@
(with-open-file (*standard-input*
(make-pathname :name "UnicodeData" :type "txt"
:defaults *extension-directory*)
:direction :input)
:direction :input :external-format '(:utf-8 :crlf))
(loop for line = (read-line nil nil)
while line
do (slurp-ucd-line line)))