Changeset 13387
- Timestamp:
- Jan 14, 2010, 8:49:15 AM (11 years ago)
- Location:
- release/1.4/source
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.4/source/level-1/l1-readloop-lds.lisp
r13159 r13387 555 555 (*print-right-margin* nil) 556 556 (*signal-printing-errors* nil) 557 (s (make-indenting-string-output-stream prefixchar nil))) 557 (s (make-indenting-string-output-stream prefixchar nil)) 558 (sub (make-string-output-stream)) 559 (indent 0)) 558 560 (format s "~A ~A: " prefixchar msg) 559 (setf (indenting-string-output-stream-indent s) (column s)) 561 (setf (indenting-string-output-stream-indent s) (setq indent (column s))) 562 (decf (stream-line-length sub) indent) 560 563 ;(format s "~A" condition) ; evil if circle 561 (report-condition condition s) 564 (report-condition condition sub) 565 (format s "~A" (get-output-stream-string sub)) 562 566 (if (not (and (typep condition 'simple-program-error) 563 567 (simple-program-error-context condition))) -
release/1.4/source/level-1/l1-streams.lisp
r13159 r13387 2474 2474 (if (eq b :eof) 2475 2475 (return (- i start))) 2476 (setf ( uvref vector i) b)2476 (setf (aref vector i) b) 2477 2477 (incf i) 2478 2478 (decf need) … … 4236 4236 (defstruct (string-output-stream-ioblock (:include string-stream-ioblock)) 4237 4237 (index 0) 4238 freelist) 4238 freelist 4239 (line-length 80)) 4239 4240 4240 4241 (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)) 4254 4255 nil) 4256 4257 (defmethod stream-line-length ((s string-output-stream)) 4258 (let* ((ioblock (basic-stream-ioblock s))) 4259 (string-output-stream-ioblock-line-length ioblock))) 4260 4261 (defmethod (setf stream-line-length) (newlen (s string-output-stream)) 4262 (let* ((ioblock (basic-stream-ioblock s))) 4263 (setf (string-output-stream-ioblock-line-length ioblock) newlen))) 4264 4255 4265 4256 4266 ;;; Should only be used for a stream whose class is exactly … … 4290 4300 (ioblock-device data) -1 4291 4301 (ioblock-charpos data) 0 4292 (string-output-stream-ioblock-index data) 0)) 4302 (string-output-stream-ioblock-index data) 0 4303 (string-output-stream-ioblock-line-length data) 80)) 4293 4304 data))))) 4294 4305 (or recycled (apply #'make-string-output-stream-ioblock keys)))) -
release/1.4/source/lib/streams.lisp
r13075 r13387 131 131 132 132 (defun line-length (stream) 133 (declare (ignore stream)) 134 80) 133 (or (stream-line-length stream) 80)) 135 134 136 135 (defun write-byte (byte stream)
Note: See TracChangeset
for help on using the changeset viewer.