plus
(1+ number)
(defun tomorrow (parsed-values) (set-current-value parsed-values :date t :zone t) (setf (decoded-time-day parsed-values) (1+ (decoded-time-day parsed-values))))