[Openmcl-devel] bug+fix: misspelled name of encoding in STREAM-EXTERNAL-FORMAT

[Boris Smilga]

Dear maintainers,

the method STREAM-EXTERNAL-FORMAT (CHARACTER-STREAM) in level-1/l1- 
streams.lisp has the names of the encodings misspelled (relative to  
their definition in level-1/l1-unicode.lisp).  This causes an error  
to be signalled every time this GF is called, e. g., with any  
ordinary file stream as an argument.  The patch is quite simple:

---------- BEGIN PATCH ----------
Index: level-1/l1-streams.lisp
===================================================================
--- level-1/l1-streams.lisp     (revision 12881)
+++ level-1/l1-streams.lisp     (working copy)
@@ -3420,7 +3420,7 @@
      ())

  (defmethod stream-external-format ((s character-stream))
-  (make-external-format :character-encoding #+big-endian- 
target :utf32-be #+little-endian-target :utf32-le :line- 
termination :unix))
+  (make-external-format :character-encoding #+big-endian- 
target :utf-32be #+little-endian-target :utf-32le :line- 
termination :unix))


  (defmethod (setf stream-external-format) (new (s character-stream))
---------- END PATCH ----------

Sincerely,
  - B. Smilga.