Skip to content
Snippets Groups Projects
Commit 3471a130 authored by rtoy's avatar rtoy
Browse files

Weak pointers can also be circular, so check for that too.

Bug noted by Bruno Haible, cmucl-imp, 2004-10-07.
parent becd4055
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.98 2004/09/27 21:54:53 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.99 2004/10/14 16:32:44 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -487,12 +487,13 @@
((or *circularity-hash-table*
(consp object)
(%instancep object)
(typep object '(array t *)))
;; If we have already started circularity detection, this object
;; might be a sharded reference. If we have not, then if it is
;; a cons, a instance, or an array of element type t it might
;; contain a circular reference to itself or multiple shared
;; references.
(typep object '(array t *))
(typep object 'weak-pointer))
;; If we have already started circularity detection, this
;; object might be a shared reference. If we have not,
;; then if it is a cons, a instance, an array of element
;; type t, or a weak-pointer it might contain a circular
;; reference to itself or multiple shared references.
(check-it stream))
(t
(print-it stream)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment