This is the mail archive of the kawa@sourceware.org mailing list for the Kawa project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

*print-right-margin* ineffective for write


Hi there. I've hit what looks like it might be a problem with *print-right-margin* and display vs write. It doesn't seem that setting *print-right-margin* is effective for write -- but it becomes effective once it's used for display. An example is best:

#|kawa:2|# (fluid-let ((*print-right-margin* 20)) (write (seq 0 20)))
(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20)
#|kawa:3|# (fluid-let ((*print-right-margin* 20)) (display (seq 0 20)))
(0 1 2 3 4 5 6 7 8
 9 10 11 12 13 14
 15 16 17 18 19 20)
#|kawa:4|# (fluid-let ((*print-right-margin* 80)) (write (seq 0 20)))
(0 1 2 3 4 5 6 7 8
 9 10 11 12 13 14
 15 16 17 18 19 20)
#|kawa:5|# (fluid-let ((*print-right-margin* 80)) (write (seq 0 20)))
(0 1 2 3 4 5 6 7 8
 9 10 11 12 13 14
 15 16 17 18 19 20)

Setting *print-right-margin* is effective for display, and subsequent calls to write. I'm using r7092 from Subversion trunk. Thanks!

--
Taylor ChriÅtopher Venable
Senior Programmer/Analyst
IPFW IT Services KT 204K / 209A
2101 E. Coliseum Blvd.
Fort Wayne, IN 46805
260-481-0720


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]