[Openmcl-devel] Format bug?

[Pascal J. Bourguignon]

Waldek Hebisch <hebisch at math.uni.wroc.pl> writes:

> $ scripts/ccl64
> Welcome to Clozure Common Lisp Version 1.8-dev-r15159M-trunk  (LinuxX8664)!
> ? (setf *print-circle* t)
> T
> ? (setf ll '(#1="PrimeField" #2="(" #1# #2# "x" ")" ")"))
> (#1="PrimeField" #2="(" #1# #2# "x" ")" ")")
> ? (FORMAT nil "~{~A~}" ll)
> "#1=PrimeField#2=(#1##2#x))"
> ? 
>
> HypeSpec says that ~A should just use string "as is", so this
> looks like a bug.

Allegro has that bug too.

$ clall -r '(let ((*print-circle* t) (ll (quote (#1="PrimeField" #2="(" #1# #2# "x" ")" ")")))) (FORMAT nil "~{~A~}" ll))'

International Allegro CL Free Express Edition --> "#1=PrimeField#2=(#1##2#x))"
Clozure Common Lisp            --> "#1=PrimeField#2=(#1##2#x))"
CLISP                          --> "PrimeField(PrimeField(x))"
CMU Common Lisp                --> "PrimeField(PrimeField(x))"
SBCL                           --> "PrimeField(PrimeField(x))"

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/
A bad day in () is better than a good day in {}.