[armedbear-ticket] [armedbear] #287: Circularl structures overflow the stack even though there's a print-object method

[armedbear]

#287: Circularl structures overflow the stack even though there's a print-object
method
-----------------------+----------------------------------------------------
 Reporter:  sboukarev  |       Owner:  somebody
     Type:  defect     |      Status:  new     
 Priority:  major      |   Milestone:          
Component:  other      |     Version:          
 Keywords:             |  
-----------------------+----------------------------------------------------
 {{{
 (defstruct watch
   parent)

 (defmethod print-object ((watch watch) stream)
   (print-unreadable-object (watch stream :type t)
     (format stream "a")))

 (defstruct inotify
   children)

 (defun test ()
   (let* ((inotify (make-inotify))
          (watch (make-watch :parent inotify)))
     (setf (inotify-children inotify) watch)
     (write inotify :circle t)
     (terpri)
     (write inotify)))

 (test)

 }}}


 {{{
 #S(INOTIFY :CHILDREN #<WATCH a>)

 Maximum error depth exceeded (18 nested errors) with 'Stack overflow.'.

 }}}

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/287>
armedbear <http://common-lisp.net/project/armedbear>
armedbear