Lines Matching defs:table
434 (defvar circle-table)
444 ;; circle-table will be non-nil if anything is circular.
445 (circle-table (and print-circle
453 circle-table
462 (if circle-table 'cust-print-print-circular 'cust-print-low-level-prin))
485 (let ((tag (assq object circle-table)))
525 (not (assq list circle-table)))
530 ;; cdr is not a list, or it is in circle-table.
572 ;; Fill up the table.
576 ;; The id-number is generated after the entire table has been computed.
577 ;; During walk through, the real circle-table lives in the cdr so we
580 (circle-table (list nil)))
583 ;; Reverse table so it is in the order that the objects will be printed.
585 ;; table with setcdr in walk-circle-tree.
586 (setcdr circle-table (nreverse (cdr circle-table)))
588 ;; Walk through the table, assigning id-numbers to those
591 (let ((rest circle-table)
603 (cdr circle-table)
617 (assq object (cdr circle-table))))
624 (setcdr circle-table
626 (cdr circle-table)))))