anchor.diff:    (cyclic-find-if (lambda (c)
   		    (= (des-context-nickname c) nickname))
   		  *des-contexts*))
  +
  
positive.code: 							(or window 0))
  						  v))))))))
  
  
  
  (defvar *des-private-key* nil
    "The server's private key.")
  
  (defun des-init (secret)
    (setf *des-private-key* secret))
  
  ;; need a database of public keys. Only clients which have an entry in this list may be authenticated
  
negative.code:     key))
  
  (defun dh-secret-key ()
    "Generate a random secret key"
    (do ((secret 0)
         (i 0 (1+ i)))
        ((= i 8) secret)
  