Changeset 10271 for release/1.2


Ignore:
Timestamp:
Aug 1, 2008, 11:26:06 PM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.2/source/level-1/l1-io.lisp

    r10220 r10271  
    11231123  (let* ((readtable *readtable*)
    11241124         (readcase (readtable-case readtable))
    1125          (pool *pname-buffer*)
    11261125         (outbuf-ptr -1)
    1127          (outbuf (pool.data pool))
     1126         (outbuf (make-string end))
    11281127         (word-start t)
    11291128         (offset 0))
    1130     (declare (fixnum offset outbuf-ptr))
    1131     (setf (pool.data pool) nil)
    1132     (unless (and outbuf (>= (length outbuf) end))
    1133       (setq outbuf (make-array end :element-type 'character)))  ; this  may be fat string now - do we care?
     1129    (declare (fixnum offset outbuf-ptr)
     1130             (dynamic-extent outbuf))
    11341131    (when (eq type :studly)
    11351132      (do ((i 0 (%i+ i 1)))
     
    11711168              (t (setq word-start t)))
    11721169        (setf (schar outbuf (incf outbuf-ptr)) c)))
    1173     (write-string outbuf stream :start  0 :end end)
    1174     (setf (pool.data pool) outbuf)))
     1170    (write-string outbuf stream :start  0 :end end)))
    11751171
    11761172
Note: See TracChangeset for help on using the changeset viewer.