Raymond Toy pushed to branch master at cmucl / cmucl

Commits: c19db71b by Raymond Toy at 2024-08-21T02:34:33+00:00 Fix #339: Add alias for "646" external format for Solaris

- - - - - 4683b241 by Raymond Toy at 2024-08-21T02:34:34+00:00 Merge branch 'issue-339-add-alias-for-646-codeset' into 'master'

Fix #339: Add alias for "646" external format for Solaris

Closes #339

See merge request cmucl/cmucl!246 - - - - -

2 changed files:

- src/pcl/simple-streams/external-formats/aliases - tests/issues.lisp

Changes:

===================================== src/pcl/simple-streams/external-formats/aliases ===================================== @@ -177,6 +177,7 @@ iso-ir-6 ascii ansi_x3.4-1986 ascii iso_646.irv:1991 ascii iso646-us ascii +\646 iso646-us us-ascii ascii us ascii ibm367 ascii

===================================== tests/issues.lisp ===================================== @@ -1118,3 +1118,11 @@ (assert-error 'file-error (load "unknown.lisp" :if-does-not-exist t)) (assert-false (load "unknown.lisp" :if-does-not-exist nil))) + +(define-test issue.339.646-external-format + (:tag :issues) + ;; Just verify that the external format :646 exists and is the same + ;; as :iso646-us. + (assert-true (stream::find-external-format :646 nil)) + (assert-true (eq (stream::find-external-format :646 nil) + (stream::find-external-format :iso646-us nil))))

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a0debef256a185238c2b2cd...