[Git][cmucl/cmucl][issue-150-add-aliases-cp949-euckr] Fix #150: Add aliases for cp949 and euckr

[Raymond Toy (@rtoy)]

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/cf5111ea89421f8be2bd35a25347e3a1736fac72

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cf5111ea89421f8be2bd35a25347e3a1736fac72
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20221102/f132e936/attachment-0001.html>