Circular structures overflow the stack even though there's a print-object method
(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.'.
Change History
(18)
| Cc: |
stassats@… added
|
| Summary: |
Circularl structures overflow the stack even though there's a print-object method → Circular structures overflow the stack even though there's a print-object method
|
| Milestone: |
→ 1.3.0
|
| Version: |
→ 1.3.0-dev
|
Ticket retargeted after milestone closed