anchor.diff:  
   (defmethod north:make-session ((server potato-north-server) application callback &key (access nil access-set-p))
     (let ((session (apply #'make-instance 'oauth-session
  -                        :key (north:key application) :callback callback
  +                        :token (make-nonce)
  +                        :token-secret (make-nonce)
  +                        :verifier (potato.common:make-random-name 10)
  +                        :key (north:key application)
  +                        :callback callback
                           (if access-set-p (list :access access)))))
       (clouchdb:create-document `((:|token|        . ,(north:token session))
                                   (:|token_secret| . ,(north:token-secret session))
  
positive.code:   (format nil "potatonorthapplication-~a" key))
  
  (defmethod north:make-application ((server potato-north-server) &key name)
    (let ((app (make-instance 'potato-north-application :name name)))
      (clouchdb:create-document `((:|key|    . ,(north:key app))
                                  (:|secret| . ,(north:secret app))
                                  (:|name|   . ,(north:name app))
  
negative.code: (in-package :potato.oauth-north)
  
  (declaim #.potato.common::*compile-decl*)
  
  (defun make-nonce ()
    (potato.common:make-random-name 40))
  
  (defclass potato-north-server (north:server)
    ())
  