[ clisp-Bugs-1563223 ] pprint-logical-block :suffix only printing inside lists

[SourceForge.net <no...@so...>]

Bugs item #1563223, was opened at 2006-09-22 00:36
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1563223&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Aneil Mallavarapu (amallavarapu)
Assigned to: Bruno Haible (haible)
Summary: pprint-logical-block :suffix only printing inside lists

Initial Comment:
When printing inside a list, the :suffix argument to 
pprint-logical-block suppresses printing of other 
items in the logical-block.

Below is a print-object method which prints structures 
of type S which have a single slot A, using prefix and 
suffix square brackets as: [S slot-a]

(defstruct s a)

(defmethod print-object ((o s) stream)
  (pprint-logical-block (stream 
nil :prefix "[" :suffix "]")
    (princ "S " stream)
    (princ (s-a o) stream)))

(make-s :a 1)
=> [S 1] ; correct

(list (make-s :a 1))
=> (]) ; incorrect, should be ([S 1])

Note: This bug is dependent only on the presence of a 
non-NIL :suffix argument; the :prefix argument has no 
effect.

[21]> (lisp-implementation-version)
"2.39 (2006-07-16) (built on stnt067 [192.168.0.1])"
[22]> (machine-type)
"PC/386"
[23]> (machine-version)
"PC/686"

Running on Windows XP SP2.



----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1563223&group_id=1355