anchor.diff:                  7))))
   
   (defun submit-daily (&key title time tags)
  -  (with-connection (db)
  -    (execute
  -     (insert-into :daily
  -                  (set= :title title
  -                        :date (get-current-day) 
  -                        :time time
  -                        :tags tags
  -                        :username "peyton")))));(gethash :username *session*))))))
  +  (if (or (null title) (null time) (null tags))
  +      nil
  +      (with-connection (db)
  +        (execute
  +         (insert-into :daily
  +           (set= :title title
  +                 :date (get-current-day) 
  +                 :time time
  +                 :tags tags
  +                 :username (gethash :username *session*)))))))
  +
  +;;
  +;; Routes
   
   (defroute "/daily" ()
     (render (absolute-path "daily.html")
             (list :dailies (mapcar #'export-daily (daily-today))
  -                :week (mapcar #'export-daily (c-daily (daily-week))))))
  +                :week (mapcar #'export-daily (condense-daily (daily-week))))))
   
   (defroute ("/daily/new" :method :GET) ()
     (with-group "dev"
  
positive.code: (in-package :peytonwww.web)
  
  (defmacro with-universal-time (&body body)
    `(multiple-value-bind (second minute hour date month year dow dst-p tz)
  
negative.code: (defun get-universal-hours ()
    (round (/ (get-universal-time) 60 60)))
  
  ;;
  ;; Daily Functions
  
  (defstruct daily 
    id
    title
    time
  