This is the mail archive of the
kawa@sourceware.org
mailing list for the Kawa project.
*print-right-margin* ineffective for write
- From: Taylor Venable <venablet at ipfw dot edu>
- To: kawa at sourceware dot org
- Date: Wed, 30 Nov 2011 15:13:09 -0500
- Subject: *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