Changeset 5152

Timestamp:

Sep 6, 2006, 5:36:34 PM (18 years ago)

Author:

Gary Byers

Message:

GET-OUTPUT-STREAM-STRING: use ENSURE-SIMPLE-STRING rather than horrible
COERCE nonsense.

File:

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

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

@@ -2123 +2123 @@
     (report-bad-arg s 'string-output-stream))
   (let* ((string (string-stream-string s)))
-    (prog1 (coerce string 'simple-string)
+    (prog1 (ensure-simple-string string)
       (setf (fill-pointer string) 0))))