MAKE-STRING-OUTPUT-STREAM now checks the validity of the :ELEMENT-TYPE.

src/CHANGELOG

@@ -36,6 +36,8 @@ ECL 1.0
   - In the compiled code, special declarations affected the expressions in
     the binding forms as well.
 
+  - MAKE-STRING-OUTPUT-STREAM now checks the validity of the :ELEMENT-TYPE.
+
 * Visible changes:
 
   - SI:MKSTEMP now accepts and returns pathnames.

src/c/file.d

@@ -2395,6 +2395,10 @@ for the string ~S.",
 
 @(defun make-string-output-stream (&key (element_type @'base-char'))
 @
+	if (Null(cl_subtypep(element_type, @'character'))) {
+		FEerror("In MAKE-STRING-OUTPUT-STREAM, the argument :ELEMENT-TYPE (~A) must be a subtype of character",
+			1, element_type);
+	}
 	@(return make_string_output_stream(128))
 @)
 

src/lsp/iolib.lsp

@@ -46,7 +46,7 @@ Evaluates FORMs with VAR bound to a string output stream to the string that is
 the value of STRING-FORM.  If STRING-FORM is not given, a new string is used.
 The stream is automatically closed on exit and the string is returned."
   (if string
-      `(LET ((,var (MAKE-STRING-OUTPUT-STREAM-FROM-STRING ,string)))
+      `(LET ((,var (MAKE-STRING-OUTPUT-STREAM-FROM-STRING ,string ,@r)))
          ,@body)
       `(LET ((,var (MAKE-STRING-OUTPUT-STREAM ,@r)))
          ,@body