(index ("uuid-v4" 0))
(def (sig (procedure "(uuid-v4 #!optional [randfn random])" (id uuid-v4))) (p "Generates a purely random UUID conforming to RFC 4122 4.4. Uniqueness is dependent on a good random function. The default uses (extras random) but can be overridden with any function conforming to the (extras random) signature.") (p "Returns a string."))
