(multiple-value-setq vars value-form)
(multiple-value-list value-form)
(defun read-new-value () (format t "Enter a new value: ") (let ((foo (list (car (multiple-value-list (read-line)))))) foo))
(multiple-value-call fun &rest args)
(multiple-value-bind vars value-form &body body)
(defun now () "This function returns (hour minute second) for right now." (multiple-value-bind (second minute hour) (get-decoded-time) (values hour minute second)))
(multiple-value-prog1 values-form &rest forms)