anchor.diff:    (finish-output stream)
     (sb-posix:fsync (sb-posix:file-descriptor stream)))
   
  +;;; {{{ geo stuff
   (define-constant earth-radius 6372.8) ; km
   
   (defun air-distance (lat1 long1 lat2 long2)
  
positive.code:       (:input :type "hidden" :name "next" :value next-url)
        (:input :type "submit" :value "Flag"))))
  
  (defun activity-icons (&key hearts comments)
    (html
      (:div :class "icons"
        (when hearts
          (htm
            (:img :src "/media/icons/heart16.png") 
            (str hearts))) 
        (when comments
          (htm
            (:img :src "/media/icons/comment16.png") 
            (str comments))))))
  
  (defun activity-item (&key url content time next-url hearts comments)
    (html
      (:div :class "item resource"
        (str (timestamp time))
        (str content)
        (:div :class "actions"
  
negative.code:                        :direction :output
                         :if-exists :supersede)
      (with-standard-io-syntax
        (prin1 data out))
      (fsync out))
    (rename-file (s+ +db-path+ "users/" username "-tmp") username))
  
  (defun run ()
    (load-users)
    (load-tokens)
    (start *acceptor*))
  
  (defmacro json (&rest properties)
    `(progn
  