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

#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.'.

}}}