anchor.diff:    (format nil "potatonorthapplication-~a" key))
   
   (defmethod north:make-application ((server potato-north-server) &key name)
  -  (let ((app (make-instance 'potato-north-application :name name)))
  +  (let ((app (make-instance 'potato-north-application
  +                            :key (make-nonce)
  +                            :secret (make-nonce)
  +                            :name name)))
       (clouchdb:create-document `((:|key|    . ,(north:key app))
                                   (:|secret| . ,(north:secret app))
                                   (:|name|   . ,(north:name app))
  
positive.code:   )
  
  (defmethod north:revoke-application ((server potato-north-server) application-key)
    )
  
  (defmethod north:revoke-session ((server potato-north-server) token)
    (clouchdb:delete-document (make-potato-north-oauth-session-id token)))
  
  (defmethod north:record-nonce ((server potato-north-server) timestamp nonce)
    )
  
  (defmethod north:find-nonce ((server potato-north-server) timestamp nonce)
    )
  
  (defvar *server* (make-instance 'potato-north-server))
  
  
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)
    ())
  