tests/print.lisp

   1 (dolist (s '(foo fo\o 1..2 \1 \-10 \.\.\. 1E \1E+2 1E+))
   2   (test (let ((x (read-from-string (prin1-to-string s))))
   3           (and (symbolp x) (equal (symbol-name x) (symbol-name s))))))