Raymond Toy pushed to branch issue-150-add-aliases-cp949-euckr at cmucl / cmucl Commits: cf5111ea by Raymond Toy at 2022-11-01T17:26:19-07:00 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. - - - - - 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/-/commit/cf5111ea89421f8be2bd35a2... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cf5111ea89421f8be2bd35a2... You're receiving this email because of your account on gitlab.common-lisp.net.