16 Mar
2005
16 Mar
'05
9:56 p.m.
Antonio Menezes Leitao aml@gia.ist.utl.pt writes:
But that would affect all output. I've been using the following patch:
I introduced a new variable *macroexpand-printer-bindings* instead and print-circle is now nil by default.
Given the fact that *swank-pprint-bindings* is an alist, it would be better to just rebind *swank-pprint-bindings* with (acons '*print-circle* 'nil *swank-pprint-bindings*) but that would only work if call-with-bindings reversed the alist before the progv.
I also reversed the order so that the first element in the alist is bound last. This also means that (push '(var . val) alist) can be used to change a default.
Helmut.