#754 pprint-linear is implemented incorrectly

[Andre Alexandre Gomes]

Consider the following:

(loop for i from 0 upto 11
      :do (let ((*print-pretty* t)
                (*print-escape* nil)
                (*print-right-margin* i))
            (format t "foo ~/pprint-linear/~&" (list "bar" "baz"))))

The expected output at standard-output is:

foo bar
    baz
foo bar
    baz
foo bar
    baz
foo bar
    baz
foo bar
    baz
foo bar
    baz
foo bar
    baz
foo bar
    baz
foo bar
    baz
foo bar
    baz
foo bar
    baz
foo bar baz

But CLISP yiels:

foo bar 
baz
foo bar 
baz
foo bar 
baz
foo bar 
baz
foo 
bar 
baz
foo 
bar 
baz
foo 
bar 
baz
foo 
bar baz
foo 
bar baz
foo 
bar baz
foo 
bar baz
foo bar baz