;; -*- mode: lisp-data -*-
(fset 'test (lambda () (print print-circular)))
(print print-circular)
(let ((print-circular nil))
(test))
