anchor.diff:                     (setf long (+ long 1024))))
                   (collect (+ (ash lat 10) long))))))))
   
  +; }}}
  +
  +(defun load-tokens ()
  +  (with-mutex (*make-token-lock*)
  +    (setf *auth-tokens*
  +          (append *auth-tokens*
  +                  (with-open-file (in (s+ +db-path+ "tokens") :if-does-not-exist nil)
  +                    (when in
  +                      (with-standard-io-syntax
  +                        (read in))))))))
  +
  +(defun save-tokens ()
  +  (with-open-file (out (s+ +db-path+ "tokens-tmp")
  +                       :direction :output
  +                       :if-exists :supersede)
  +    (with-standard-io-syntax
  +      (prin1 *auth-tokens* out))
  +    (fsync out))
  +  (rename-file (s+ +db-path+ "tokens-tmp") "tokens"))
  +
   (defun load-user (username)
     (with-open-file (in (s+ +db-path+ "users/" username) :if-does-not-exist nil)
       (when in
  
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: 
  
  (defun timestamp (time)
    (html (:h3 :class "timestamp" :data-time time (str (humanize-universal-time time)))))
  
  (defun love-button (url)
    (html
  