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:

 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

       (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))))