anchor.diff:          (str (comment-button url))
           " &middot; "
           (str (flag-button url))
  -        (str (activity-icons :hearts hearts :comments comments))))))
  +        (str (activity-icons :hearts hearts :comments comments :url (s+ url "/comments")))))))
   
   (defun offer-activity-item (&key time user-name user-id offer-id next-url hearts comments text)
     (activity-item :url (s+ "/offers/" offer-id)
  
positive.code:   (finish-output stream)
    (sb-posix:fsync (sb-posix:file-descriptor stream)))
  
  (define-constant earth-radius 6372.8) ; km
  
  (defun air-distance (lat1 long1 lat2 long2)
  
negative.code:                    (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
  