anchor.diff:  
   (defun valid-password-p (password)
     (and (>= (length password) 6)
  -       (not (find-if-not #'standard-char-p password))))
  +       (every #'standard-char-p password)))
   
   (defun valid-display-name-p (display-name)
     (when (and (>= (length display-name) 4)
  
positive.code:    salt
     *key-derivation-iterations*
     *key-length*))
  
  ;;;
  ;;; DB
  
negative.code:       (multiple-value-bind (validp errors)
            (validate-new-account email display-name password confirmation)
          (if validp
              (let ((salt (gensalt)))
                (make-dao 'account
                          :email email
                          :display-name display-name
  