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

(let ((print-quoted nil))
  (prin1 '(quote a))
  (write-byte ?\n))
(prin1 '(quote a))
(write-byte ?\n)