;;;; Comments which begin the file should have four semicolons.

;;; Comments which are toplevel should have three semicolons.
(defun read-evaluated-form ()
  ;; Comments inside forms should have two semicolons.
  (format *query-io* ; Comments at the end of code lines should have one semicolon.
          "~&;; Type a form to be evaluated:~%")
  (list (eval (read *query-io*))))