Changeset 317

Timestamp:

Jan 17, 2004, 7:49:32 PM (21 years ago)

Author:

Gary Byers

Message:

MAKE-STRING-OUTPUT-STREAM: no such thing as a STRING-CHAR anymore.

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-streams.lisp

@@ -1439 +1439 @@
 (defun make-string-output-stream (&key (element-type 'character element-type-p))
   (when (and element-type-p
-             (not (member element-type '(base-character character string-char
+             (not (member element-type '(base-character character
                                          standard-char))))
     (unless (subtypep element-type 'character)
@@ -1445 +1445 @@
              :element-type element-type 'character)))
   (make-instance 'string-output-stream
-                 :string (make-array 10 :element-type 'character
+                 :string (make-array 10 :element-type 'base-char
                                      :fill-pointer 0
                                      :adjustable t)))