[Git][cmucl/cmucl][master] 2 commits: Fix #150: add aliases cp949 euckr

[Raymond Toy (@rtoy)]

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/d5f1aa5e51624159c61bdf049cbcc69b4be0c1e3...d825aa540a894949e252d778b7afd37d680247cc

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/d5f1aa5e51624159c61bdf049cbcc69b4be0c1e3...d825aa540a894949e252d778b7afd37d680247cc
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/8451e975/attachment-0001.html>