Changeset 10227


Ignore:
Timestamp:
Jul 28, 2008, 1:05:15 PM (11 years ago)
Author:
gb
Message:

WRITE-PERVERTED-STRING also used *PNAME-BUFFER*.

File:
1 edited

Legend:

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

    r10217 r10227  
    11341134  (let* ((readtable *readtable*)
    11351135         (readcase (readtable-case readtable))
    1136          (pool *pname-buffer*)
    11371136         (outbuf-ptr -1)
    1138          (outbuf (pool.data pool))
     1137         (outbuf (make-string end))
    11391138         (word-start t)
    11401139         (offset 0))
    1141     (declare (fixnum offset outbuf-ptr))
    1142     (setf (pool.data pool) nil)
    1143     (unless (and outbuf (>= (length outbuf) end))
    1144       (setq outbuf (make-array end :element-type 'character)))  ; this  may be fat string now - do we care?
     1140    (declare (fixnum offset outbuf-ptr)
     1141             (dynamic-extent outbuf))
    11451142    (when (eq type :studly)
    11461143      (do ((i 0 (%i+ i 1)))
     
    11821179              (t (setq word-start t)))
    11831180        (setf (schar outbuf (incf outbuf-ptr)) c)))
    1184     (write-string outbuf stream :start  0 :end end)
    1185     (setf (pool.data pool) outbuf)))
     1181    (write-string outbuf stream :start  0 :end end)))
    11861182
    11871183
Note: See TracChangeset for help on using the changeset viewer.