Changeset 10271 for release

Timestamp:

Aug 1, 2008, 4:26:06 PM (16 years ago)

Author:

Gary Byers

Message:

Don't use *PNAME-BUFFER* in WRITE-PERVERTED-STRING.

File:

• release/1.2/source/level-1/l1-io.lisp (modified) (2 diffs)

release/1.2/source/level-1/l1-io.lisp

@@ -1123 +1123 @@
   (let* ((readtable *readtable*)
          (readcase (readtable-case readtable))
-         (pool *pname-buffer*)
          (outbuf-ptr -1)
-         (outbuf (pool.data pool))
+         (outbuf (make-string end))
          (word-start t)
          (offset 0))
-    (declare (fixnum offset outbuf-ptr))
-    (setf (pool.data pool) nil)
-    (unless (and outbuf (>= (length outbuf) end))
-      (setq outbuf (make-array end :element-type 'character)))  ; this  may be fat string now - do we care?
+    (declare (fixnum offset outbuf-ptr)
+             (dynamic-extent outbuf))
     (when (eq type :studly)
       (do ((i 0 (%i+ i 1)))
@@ -1171 +1168 @@
               (t (setq word-start t)))
         (setf (schar outbuf (incf outbuf-ptr)) c)))
-    (write-string outbuf stream :start  0 :end end)
-    (setf (pool.data pool) outbuf)))
+    (write-string outbuf stream :start  0 :end end)))