anchor.diff:        (multiple-value-bind (validp errors)
             (validate-new-account email display-name password confirmation)
           (if validp
  -            (let ((salt (map-into (make-array 32 :element-type '(unsigned-byte 8))
  -                                  (curry #'random 256))))
  +            (let ((salt (gensalt)))
                 (make-dao 'account
                           :email email
                           :display-name display-name
  
positive.code:    salt
     *key-derivation-iterations*
     *key-length*))
  
  ;;;
  ;;; DB
  
negative.code: 
  (defun valid-password-p (password)
    (and (>= (length password) 6)
         (every #'standard-char-p password)))
  
  (defun valid-display-name-p (display-name)
    (when (and (>= (length display-name) 4)
  