(setq &whole source &rest things)
(defun clear-db () (setq *db* nil))
(multiple-value-setq vars value-form)