anchor.diff:         (get-decoded-time)
        ,@body))
   
  -(defun get-current-day ()
  +(defun current-day ()
     (with-universal-time
  -    (declare (ignore second minute hour dow dst-p))
  +      (declare (ignore second minute hour dow dst-p))
       (encode-universal-time 0 0 0 date month year tz)))
   
  -(defun get-current-week ()
  +(defun current-week ()
     (with-universal-time
  -    (declare (ignore second minute hour dst-p))
  +      (declare (ignore second minute hour dst-p))
       (encode-universal-time 0 0 0 (- date dow) month year tz)))
   
  -(defun get-universal-hours ()
  +(defun universal-hour ()
     (round (/ (get-universal-time) 60 60)))
   
   ;;
  
positive.code: (defun dailies-today ()
    (get-dailies
      (order-by (:desc :id))
      (where (:<= (:- (get-universal-hours)
                      (:/ :date 60 60))
                  24))))
  
  (defun dailies-week ()
    (get-dailies
      (order-by (:desc :id))
      (where (:>= (:- (:/ :date 60 60 24)
                      (round (/ (get-current-week) 60 60 24)))
                  0))))
  
  (defun submit-daily (&key title time tags)
    (if (and title time tags)
        (with-connection (db)
          (execute
           (insert-into :daily
             (set= :title title
                   :date (get-current-day)
                   :time time
                   :tags tags
                   :username (gethash :username *session*)))))))
  
  ;;
  ;; Routes
  
negative.code:   tags
    username)
  
  (defun export-daily (d)
    (list :title (daily-title d) :time (daily-time d)))
  
  (defun condense-daily (daily-lst)
    (labels ((title= (d1)
               (lambda (d2)
                 (and d1 d2
                      (string= (daily-title d1) (daily-title d2))))))
      (do* ((lst daily-lst (cdr lst))
            (clst nil)
            (d1 (first lst) (first lst))
            (d2 nil (find-if (title= d1) clst)))
           ((null lst) clst)
        (if (and d2 d1)
            (incf (daily-time d2) (daily-time d1))
            (push d1 clst)))))
  
  ;;
  ;; Database calls
  