Opened 4 years ago

Closed 4 years ago

#1372 closed defect (notabug)

pprint-logical-block not making use of *print-right-margin* value

Reported by: clanning Owned by:
Priority: normal Milestone:
Component: other Version: 1.11
Keywords: Cc:

Description

the code

(let ((stream *standard-output*) (*print-right-margin* 20))
  (pprint-logical-block (stream (list "item01" "item02" "item03" "item04")
                                :prefix "[" :suffix "]")
       (loop (princ (pprint-pop) stream)
         (pprint-exit-if-list-exhausted)
         (princ ", " stream) (pprint-newline :linear stream)))
  (terpri stream))

outputs: [item01, item02, item03, item04] which exceeds the right margin of 20. It should have output:

[item01, 
 item02, 
 item03, 
 item04]

instead.

Change History (1)

comment:1 Changed 4 years ago by rme

  • Resolution set to notabug
  • Status changed from new to closed

Please ensure that you set or bind *print-pretty* to t, and your example will work as expected.

Note: See TracTickets for help on using tickets.