;; -*- mode: lisp-data -*-

(fset 'test (lambda () (print print-circular)))

(print print-circular)

(let ((print-circular nil))
  (test))

(print print-circular)