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

Fix #150: Add aliases for cp949 and euckr

Add alias for cp949 which is the same as euc-kr, which we already
support.  As a convenience make euckr be an alias of euc-kr too.

Add a simple test for this tha just verifies that the
`stream::find-external-format` doesn't fail for these formats.
parent d5f1aa5e
No related branches found
No related tags found
1 merge request!106Fix #150: add aliases cp949 euckr
Pipeline #7330 passed
......@@ -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.
Please register or to comment