repos
/
smoke
/ headblob
summary
|
shortlog
|
log
|
tree
|
annotate
|
headblob
|
filehistory
plain
/
src
/
utils
/
/src/utils/get-value.lisp
1
(in-package #:smoke)
2
3
(defun read-new-value ()
4
(format *query-io* "Enter a new value: ")
5
(multiple-value-list (eval (read *query-io*))))