-;;;; Create some circular structures.
-;;(setq circ-sym (let ((x (make-symbol "FOO"))) (list x x)))
-;;(setq circ-list (list 'a 'b (vector 1 2 3 4) 'd 'e 'f))
-;;(setcar (nthcdr 3 circ-list) circ-list)
-;;(aset (nth 2 circ-list) 2 circ-list)
-;;(setq dotted-circ-list (list 'a 'b 'c))
-;;(setcdr (cdr (cdr dotted-circ-list)) dotted-circ-list)
-;;(setq circ-vector (vector 1 2 3 4 (list 'a 'b 'c 'd) 6 7))
-;;(aset circ-vector 5 (make-symbol "-gensym-"))
-;;(setcar (cdr (aref circ-vector 4)) (aref circ-vector 5))
-
-;;(install-custom-print-funcs)
-;;;; (setq print-circle t)
-
-;;(let ((print-circle t))
-;; (or (equal (prin1-to-string circ-list) "#1=(a b [1 2 #1# 4] #1# e f)")
-;; (error "circular object with array printing")))
-
-;;(let ((print-circle t))
-;; (or (equal (prin1-to-string dotted-circ-list) "#1=(a b c . #1#)")
-;; (error "circular object with array printing")))
-
-;;(let* ((print-circle t)
-;; (x (list 'p 'q))
-;; (y (list (list 'a 'b) x 'foo x)))
-;; (setcdr (cdr (cdr (cdr y))) (cdr y))
-;; (or (equal (prin1-to-string y) "((a b) . #1=(#2=(p q) foo #2# . #1#))"
-;; )
-;; (error "circular list example from CL manual")))
-
-;;;; There's no special handling of uninterned symbols in custom-print.
-;;(let ((print-circle nil))
-;; (or (equal (prin1-to-string circ-sym) "(#:FOO #:FOO)")
-;; (error "uninterned symbols in list")))
-;;(let ((print-circle t))
-;; (or (equal (prin1-to-string circ-sym) "(#1=FOO #1#)")
-;; (error "circular uninterned symbols in list")))
-;;(uninstall-custom-print-funcs)