Barry Margolin <······@genuity.net> writes:
> In article <·························@typhoon.tampabay.rr.com>,
> Coby Beck <·····@mercury.bc.ca> wrote:
> >But LW returns: [...]
> >
> >which I don't understand.
>
> Set *PRINT-CIRCLE* to NIL and look again.
I several print-circle bugs in LW 4.1.20 in the past few months, so
that may be vexing Coby, too. If it turns out to be that, and if you
have a commercial copy, you might check with Xanalys web site to see
if they've posted a fix, or talk to their support people...
"Barry Margolin" <······@genuity.net> wrote in message
·······················@burlma1-snr2...
> In article <·························@typhoon.tampabay.rr.com>,
> Coby Beck <·····@mercury.bc.ca> wrote:
> >But LW returns:
> >
> >(DEFMETHOD CONSUME-RECORD
> > ((BLUEPRINT GRAMMAR) (STREAM STREAM))
> > (HANDLER-CASE (LET #7=(#1=#1# #2=#2# #4=#4# #6=#6#)
> > (SETF #1# (CONSUME-FLOAT BLUEPRINT STREAM))
> > #3=(READ-CHAR STREAM)
> > (SETF #2# (CONSUME-DATE . #5=(BLUEPRINT
STREAM)))
> > #3#
> > (SETF #4# (CONSUME-STRING . #5#))
> > #3#
> > (SETF #6# (CONSUME-INTEGER . #5#))
> > (LIST . #7#))
> > (END-OF-FILE NIL NIL)))
> >
> >which I don't understand.
>
> Set *PRINT-CIRCLE* to NIL and look again.
>
Thank you, I can now see it is the same thing. The HyperSpec says the
"initial" value should be nil anyway. Is this non-conformance that it was
not? I never knowingly set it, are there certain printer or reader
operations that have the side effect of changing this?
There are a number of these printer variables that I have never
investigated, maybe there are some one needs to take control of..? (Of
course in this case the only significant difference was some minor pain in
the eyeballs.)
Coby
"Coby Beck" <·····@mercury.bc.ca> wrote in message
······························@typhoon.tampabay.rr.com...
> "Barry Margolin" <······@genuity.net> wrote in message
> ·······················@burlma1-snr2...
[snip]
> > Set *PRINT-CIRCLE* to NIL and look again.
> >
>
> Thank you, I can now see it is the same thing. The HyperSpec says
> the
> "initial" value should be nil anyway. Is this non-conformance that
> it was
> not? I never knowingly set it, are there certain printer or reader
> operations that have the side effect of changing this?
I'm running LW for Windows 4.1.20, and *PRINT-CIRCLE* has the correct
initial value, NIL.
The difference that you are seeing depends on whether you have
*PRINT-CIRCLE* set or not. Apparently ACL defaults the value to NIL and
LispWorks to T. In the Lispworks output you are seeing syntax used by
Lisp to allow the proper reading of circular and shared structure. For
details, you need to look up the documentation associated with
*print-circle* and the way printing of circular structures are handled.
Note that just because the circular structure printing is used, doesn't
mean that you necessarily have circular structures.
--
Thomas A. Russ, USC/Information Sciences Institute ···@isi.edu
"Thomas A. Russ" <···@sevak.isi.edu> wrote in message
····················@sevak.isi.edu...
>
> The difference that you are seeing depends on whether you have
> *PRINT-CIRCLE* set or not. Apparently ACL defaults the value to NIL and
> LispWorks to T. In the Lispworks output you are seeing syntax used by
> Lisp to allow the proper reading of circular and shared structure. For
> details, you need to look up the documentation associated with
> *print-circle* and the way printing of circular structures are handled.
>
> Note that just because the circular structure printing is used, doesn't
> mean that you necessarily have circular structures.
>
Yes, I did realize at some point that it was in fact the same structure
though it looked very different.
FWIW, Lispworks does default *print-circle* to nil, I guess something
happened in my session that left things altered.
cb