Lines Matching defs:circular
40 ;; If the results of your expressions contain circular references to
43 ;; "Apparently circular structure being printed". If you only use cdr
44 ;; circular lists (where cdrs of lists point back; what is the right
46 ;; print-length. But car circular lists and circular vectors generate
49 ;; print representation of circular and shared structures; the print-circle
65 ;; circular list rather than an array, aref calls error directly which
66 ;; will jump to the top level instead of printing the circular list.
141 `Apparently circular structure being printed.'
157 \"Apparently circular structure being printed.\" Also see
444 ;; circle-table will be non-nil if anything is circular.
462 (if circle-table 'cust-print-print-circular 'cust-print-low-level-prin))
480 (defun cust-print-print-circular (object)
481 ;; Printer for `prin1' and `princ' that handles circular structures.
655 ;; Create some circular structures.
672 (error "circular object with array printing")))
676 (error "circular object with array printing")))
684 (error "circular list example from CL manual")))
693 (error "circular uninterned symbols in list")))