Function: NEW-RANDOM-KEY

Source

(defun new-random-key (hash-table key-length)
  (loop
     for key = (random-string key-length)
     while (gethash key hash-table)
     finally (return key)))