Ticket #1024 (new defect)

Opened 23 months ago

*print-circle* in report-condition

Reported by: heller Owned by:
Priority: normal Milestone:
Component: ANSI CL Compliance Version: trunk
Keywords: Cc:

Description

This code

(let ((l (let ((x (cons nil nil))) (setf (cdr x) x))))
  (write-to-string 
   (make-condition 'simple-error 
                   :format-control "~a" :format-arguments (list l))
   :escape nil :readably nil :pretty t :circle t :length 10 :level 10))

returns "(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL ...)".

Shouldn't the result be more like "#1=(NIL . #1#)"?

Note: See TracTickets for help on using tickets.