Skip to content
Snippets Groups Projects
Commit 402c0c01 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix #150: add aliases cp949 euckr

parent d5f1aa5e
No related branches found
No related tags found
No related merge requests found
......@@ -223,6 +223,8 @@ windows-cp1252 cp1252
windows-latin1 cp1252
ms-ansi cp1252
euckr euc-kr
cp949 euc-kr
;; These are not yet implemented
;;iso-2022-jp iso2022-jp
;;iso2022jp iso2022-jp
......
......@@ -745,3 +745,10 @@
(assert-equal (map 'list #'char-name string)
(map 'list #'char-name (read-line s))))))
(define-test issue.150
(:tag :issues)
(let ((ext:*gc-verbose* nil)
(*compile-print* nil))
(assert-true (stream::find-external-format :euckr))
(assert-true (stream::find-external-format :cp949))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment