Changeset 13387 for release/1.4/source/level-1/l1-streams.lisp

Timestamp:

Jan 14, 2010, 8:49:15 AM (11 years ago)

Author:

gb

Message:

Propagate r13368 to 1.4. See ticket:642 .

File:

• release/1.4/source/level-1/l1-streams.lisp (modified) (4 diffs)

release/1.4/source/level-1/l1-streams.lisp

@@ -2474 +2474 @@
       (if (eq b :eof)
         (return (- i start)))
-      (setf (uvref vector i) b)
+      (setf (aref vector i) b)
       (incf i)
       (decf need)
@@ -4236 +4236 @@
 (defstruct (string-output-stream-ioblock (:include string-stream-ioblock))
   (index 0)
-  freelist)
+  freelist
+  (line-length 80))
 
 (defstatic *string-output-stream-class* (make-built-in-class 'string-output-stream 'string-stream 'basic-character-output-stream))
@@ -4253 +4254 @@
 (defmethod stream-clear-output ((s string-output-stream))
   nil)
+
+(defmethod stream-line-length ((s string-output-stream))
+  (let* ((ioblock (basic-stream-ioblock s)))
+    (string-output-stream-ioblock-line-length ioblock)))
+
+(defmethod (setf stream-line-length) (newlen (s string-output-stream))
+  (let* ((ioblock (basic-stream-ioblock s)))
+    (setf (string-output-stream-ioblock-line-length ioblock) newlen)))
+
 
 ;;; Should only be used for a stream whose class is exactly
@@ -4290 +4300 @@
                                    (ioblock-device data) -1
                                    (ioblock-charpos data) 0
-                                   (string-output-stream-ioblock-index data) 0))
+                                   (string-output-stream-ioblock-index data) 0
+                                   (string-output-stream-ioblock-line-length data) 80))
                            data)))))
     (or recycled (apply #'make-string-output-stream-ioblock keys))))