Nicolas Goaziou <mail@nicolasgoaziou.fr> wrote:
>> -    (if (not (and (integerp n) (> n 0)))
>> +    (if (not (and (integerp n) (>= n 0)))
>>  	(user-error "Invalid number of replications %s" n))
>
> Nitpick: (unless (wholenump n) (user-error ...))

Thanks. Updated.