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:

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