Lisp HUG Maillist Archive

PPRINT-LOGICAL-BLOCK: am I missing something?

This is in LWM

CL-USER 23 > (let ((foo #(1 2 3)))
                (pprint-logical-block (*standard-output* foo 
:per-line-prefix ">>>> ")
                  (pprint-indent :block 4)
                  (loop for x across foo do
                        (format *standard-output* "~D~%" x))))
#(1 2 3)
NIL

It is not what I expected.  What am I missing?  Is it a bug?

Cheers


--
Marco Antoniotti					http://bioinformatics.nyu.edu
NYU Courant Bioinformatics Group		tel. +1 - 212 - 998 3488
715 Broadway 10th FL				fax. +1 - 212 - 998 3484
New York, NY, 10003, U.S.A.


Re: PPRINT-LOGICAL-BLOCK: am I missing something?

BTW.

tried the same on LWW.  No changes.  Letting *PRINT-PRETTY* to be T 
does not help either.

Cheers

Marco




On Friday, Feb 13, 2004, at 19:40 America/New_York, Marco Antoniotti 
wrote:

> This is in LWM
>
> CL-USER 23 > (let ((foo #(1 2 3)))
>                (pprint-logical-block (*standard-output* foo 
> :per-line-prefix ">>>> ")
>                  (pprint-indent :block 4)
>                  (loop for x across foo do
>                        (format *standard-output* "~D~%" x))))
> #(1 2 3)
> NIL
>
> It is not what I expected.  What am I missing?  Is it a bug?
>
> Cheers
>
>
> --
> Marco Antoniotti					http://bioinformatics.nyu.edu
> NYU Courant Bioinformatics Group		tel. +1 - 212 - 998 3488
> 715 Broadway 10th FL				fax. +1 - 212 - 998 3484
> New York, NY, 10003, U.S.A.
>
--
Marco Antoniotti					http://bioinformatics.nyu.edu
NYU Courant Bioinformatics Group		tel. +1 - 212 - 998 3488
715 Broadway 10th FL				fax. +1 - 212 - 998 3484
New York, NY, 10003, U.S.A.


Re: PPRINT-LOGICAL-BLOCK: am I missing something?

Thanks to all who answered.

I did not read the CLHS too carefully.  To achieve what I expected I 
needed to do


	(pprint-logical-block (*standard-output* NIL .....) .....)

This will make PPRINT-LOGICAL-BLOCK bypass the standard behavior and 
allows you to actually print things in a very nice way.

Cheers

Marco






On Friday, Feb 13, 2004, at 19:45 America/New_York, Marco Antoniotti 
wrote:

> BTW.
>
> tried the same on LWW.  No changes.  Letting *PRINT-PRETTY* to be T 
> does not help either.
>
> Cheers
>
> Marco
>
>
>
>
> On Friday, Feb 13, 2004, at 19:40 America/New_York, Marco Antoniotti 
> wrote:
>
>> This is in LWM
>>
>> CL-USER 23 > (let ((foo #(1 2 3)))
>>                (pprint-logical-block (*standard-output* foo 
>> :per-line-prefix ">>>> ")
>>                  (pprint-indent :block 4)
>>                  (loop for x across foo do
>>                        (format *standard-output* "~D~%" x))))
>> #(1 2 3)
>> NIL
>>
>> It is not what I expected.  What am I missing?  Is it a bug?
>>
>> Cheers
>>
>>
>> --
>> Marco Antoniotti					http://bioinformatics.nyu.edu
>> NYU Courant Bioinformatics Group		tel. +1 - 212 - 998 3488
>> 715 Broadway 10th FL				fax. +1 - 212 - 998 3484
>> New York, NY, 10003, U.S.A.
>>
> --
> Marco Antoniotti					http://bioinformatics.nyu.edu
> NYU Courant Bioinformatics Group		tel. +1 - 212 - 998 3488
> 715 Broadway 10th FL				fax. +1 - 212 - 998 3484
> New York, NY, 10003, U.S.A.
>
--
Marco Antoniotti					http://bioinformatics.nyu.edu
NYU Courant Bioinformatics Group		tel. +1 - 212 - 998 3488
715 Broadway 10th FL				fax. +1 - 212 - 998 3484
New York, NY, 10003, U.S.A.


Updated at: 2020-12-10 08:57 UTC