(in-package #:smoke)

 (defun read-new-value ()
   (format *query-io* "Enter a new value: ")
   (multiple-value-list (eval (read *query-io*))))