[ clisp-Bugs-1835520 ] pprint-logical-block ignores print-pprint-dispatch-table

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Bugs item #1835520, was opened at 2007-11-20 20:39
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1835520&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: lisp error
>Status: Closed
>Resolution: Fixed
Priority: 5
Private: No
Submitted By: Aneil Mallavarapu (amallavarapu)
>Assigned to: Sam Steingold (sds)
Summary: pprint-logical-block ignores *print-pprint-dispatch-table*

Initial Comment:
1. Description:
PPRINT-LOGICAL-BLOCK causes the pretty printing system to ignore the current *PRINT-PPRINT-DISPATCH* table.

2. Example:
;; define a printer for lists beginning with 
;;  the keyword :bracket

[1]> (defun bracket-list-printer (stream blist)
  (format stream "[~{~S~^ ~}]" (rest blist)))
BRACKET-LIST-PRINTER

[2]> (set-pprint-dispatch '(cons (eql :bracket)) 'bracket-list-printer)
NIL

;; it works (including recursive invocation):
[3]> '(:bracket 1 2 (:bracket 3 4))
[1 2 [3 4]]

[4]> (prin1 '(:bracket 1 2 (:bracket 3 4)))
[1 2 [3 4]]
[1 2 [3 4]]

;; but not inside a pprint-logical-block:
[5]> (pprint-logical-block (*standard-output* ())
       (prin1 '(:bracket 1 2 (:bracket 3 4)) 
              *standard-output*))
(:BRACKET 1 2 (:BRACKET 3 4))
NIL

3. Platforms:
Linux hedwig 2.6.22-14-generic #1 SMP Sun Oct 14 23:05:12 GMT 2007 i686 GNU/Linux

(also tried on Win32 2.42 release with same results)

4. Clisp version
Built from fresh CVS checkout and new sources of supporting libraries (libsegv, etc) -- all obtained today (Tuesday Nov 20, 2007).

clisp --version:
GNU CLISP 2.43 (2007-11-18) (built 3404595764) (memory 3404595914)
Software: GNU C 4.1.3 20070929 (prerelease) (Ubuntu 4.1.2-16ubuntu2) 
gcc -g -O2 -Igllib -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations -Wno-sign-compare -O2 -fexpensive-optimizations -falign-functions=4 -DUNICODE -DNO_TERMCAP_NCURSES -DDYNAMIC_FFI -I. -x none libavcall.a libcallback.a -ldl   -L/usr/local/lib -lsigsegv -lc 
SAFETY=0 HEAPCODES LINUX_NOEXEC_HEAPCODES GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.5
Features: 
(REGEXP SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP ANSI-CL COMMON-LISP LISP=CL
 INTERPRETER SOCKETS GENERIC-STREAMS LOGICAL-PATHNAMES FFI GETTEXT UNICODE
 BASE-CHAR=CHARACTER PC386 UNIX)
C Modules: (clisp i18n syscalls regexp)
Installation directory: /home/aneil/code/clisp/build/
User language: ENGLISH
Machine: I686 (I686) hedwig [127.0.1.1]

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

Comment By: Sam Steingold (sds)
Date: 2007-11-21 16:29

Message:
Logged In: YES 
user_id=5735
Originator: NO

thank you for your bug report.
the bug has been fixed in the CVS tree.
you can either wait for the next release (recommended)
or check out the current CVS tree (see http://clisp.cons.org)
and build CLISP from the sources (be advised that between
releases the CVS tree is very unstable and may not even build
on your platform).

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

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

[ clisp-Bugs-1835520 ] pprint-logical-block ignores *print-pprint-dispatch-table*