Raymond Toy pushed to branch master at cmucl / cmucl

Commits: 402c0c01 by Raymond Toy at 2022-11-02T01:00:20+00:00 Fix #150: add aliases cp949 euckr

- - - - - d825aa54 by Raymond Toy at 2022-11-02T01:00:20+00:00 Merge branch 'issue-150-add-aliases-cp949-euckr' into 'master'

Fix #150: add aliases cp949 euckr

Closes #150

See merge request cmucl/cmucl!106 - - - - -

2 changed files:

- src/pcl/simple-streams/external-formats/aliases - tests/issues.lisp

Changes:

===================================== src/pcl/simple-streams/external-formats/aliases ===================================== @@ -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

===================================== tests/issues.lisp ===================================== @@ -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))))

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/d5f1aa5e51624159c61bdf0...