Commit dcfc987d authored by Marius Gerbershagen's avatar Marius Gerbershagen

fix wrong encodings reported by ext:all-encodings

    :UCS-4LE was not in the list of basic encodings and the keywords
    for other encodings were mistakenly interned in lower
    case. Reported and fixed by Robert Dodier. Fixes #435.
parent 7bfa7e37
......@@ -278,7 +278,7 @@ the one used internally by ECL compiled files."
(let* ((basic-encodings
#+unicode
'(:UTF-8 :UCS-2 :UCS-2BE :UCS-2LE :UCS-4 :UCS-4BE
'(:UTF-8 :UCS-2 :UCS-2BE :UCS-2LE :UCS-4 :UCS-4BE :UCS-4LE
:ISO-8859-1 :LATIN-1 :US-ASCII :DEFAULT)
#-unicode
'(:DEFAULT))
......@@ -289,7 +289,7 @@ the one used internally by ECL compiled files."
(setf all-encodings basic-encodings)
#+unicode
(dolist (i (directory "sys:encodings;*"))
(push (intern (pathname-name i) "KEYWORD") all-encodings))
(push (intern (string-upcase (pathname-name i)) "KEYWORD") all-encodings))
all-encodings))))
(defun ext:load-encoding (name)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment