[Gcl-devel] Something wrong in the printer?

[Wolfgang Polak]

Here is an sexpr that somehow won't print.  I noticed the problem in gcl 2.4.2 
and
it also shows up in 2.5.3.  Here is a script that shows it all.  There is no
.init, it's a virgin new installation of 2.5.3.


address@hidden polak]$ uname -a
Linux darwin.fxpal.com 2.4.18-6mdk #1 Fri Mar 15 02:59:08 CET 2002 i686 unknown
address@hidden polak]$ gcl
GCL (GNU Common Lisp)  (2.5.3) Wed Jan 14 16:04:00 PST 2004
Licensed under GNU Library General Public License
Dedicated to the memory of W. Schelter

Use (help) to get some basic information on how to use GCL.

>(setf a '(((S) ((C) B) ((S) I) I) ((C) B) ((S) I) I))

(((S) ((C) B) ((S) I) I) ((C) B) ((S) I) I)

>(setf b '(((BB) (S) (((CC) IF) ((C) <) 1) 1) (S) *))

(((BB) (S) (((CC) IF) ((C) <) 1) 1) (S) *)

>(setf c (list a b))


Error: Can't pretty-print.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by SYSTEM:TOP-LEVEL.
Broken at PRIN1.  Type :H for Help.
>>:q

Top level.
>c


Error: Can't pretty-print.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by SYSTEM:TOP-LEVEL.
Broken at PRIN1.  Type :H for Help.
>>:q

Top level.
>(car c)

(((S) ((C) B) ((S) I) I) ((C) B) ((S) I) I)

>(cadr c)

(((BB) (S) (((CC) IF) ((C) <) 1) 1) (S) *)

>(setf *print-circle* t)

T

>c


Error: Can't pretty-print.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by SYSTEM:TOP-LEVEL.
Broken at PRIN1.  Type :H for Help.
address@hidden polak]$ exit