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:

 ansi_x3.4-1986	ascii

 iso_646.irv\:1991	ascii

 iso646-us	ascii

+\646		iso646-us

 us-ascii	ascii

 us		ascii

 ibm367		ascii

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