anchor.diff:       (retrieve-all
         (select :*
           (from :daily)
  -        ,@body)
  -      :as 'daily)))
  +        ,@body))))
   
   (defun dailies-today ()
     (get-dailies
  
positive.code: 
  (defun dailies-week ()
    (get-dailies
     (order-by (:desc :id))
     (where (:>= (:- (:/ :date 60 60 24)
                     (round (/ (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 (current-day)
                              :time time
                              :tags tags
                              :username (gethash :username *session*)))))))
  
  ;;
  ;; Routes
  
  (defroute "/daily" ()
    (render "daily.html"
            (list :dailies (mapcar #'export-daily (dailies-today))
                  :week (mapcar #'export-daily (condense-daily (dailies-week))))))
  
  (defroute ("/daily/new" :method :GET) ()
    (with-group "dev"
  
negative.code: ;;
  ;; Daily Helper Functions
  
  (defun condense-daily (daily-lst)
    (labels ((title= (d1)
               (lambda (d2)
                 (and d1 d2
                    (string= (getf d1 :title) (getf d2 :title))))))
      (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 (getf d2 :time) (getf d1 :time))
            (push d1 clst)))))
  
  ;;
  