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... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a0debef256a185238c2b2cd... You're receiving this email because of your account on gitlab.common-lisp.net.