Circular structures overflow the stack even though there's a print-object method
|Reported by:||sboukarev||Owned by:||somebody|
(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 (6)
comment:1 Changed 4 years ago by sboukarev
- Cc stassats@… added
- Summary changed from Circularl structures overflow the stack even though there's a print-object method to Circular structures overflow the stack even though there's a print-object method
comment:2 Changed 4 years ago by https://www.google.com/accounts/o8/id?id=AItOawkYnNNEAO_K40Gp0xROhyjOPgjvIskQ48M
- Milestone set to 1.3.0
- Version set to 1.3.0-dev
Note: See TracTickets for help on using tickets.