(defun 1.9-lisp-test (exp)
  (prog ()
    (setq exp (import exp))
    (advise 'prompt&read 'before 'first (list 'return (kwote exp)))
    (advise 'prompt&print 'before 'first '(error!))
    (printout nil (dostats '(ersetq (1.9-lisp-kernel))) t)
    (unadvise prompt&read prompt&print)))