bug#65680: cl-print-to-string-with-limit erroneously imposes a maximum print-length of 50

[Michael Heerdegen]

Hello Alan,

in 01229fe0096 "Stop truncating strings too much in
cl-print-string-with-limit" there is an error: the first `cond'
condition will error when limit is nil (`zerop' expects a number):

| @@ -557,6 +572,11 @@ cl-print-to-string-with-limit
|                          ((null limit) nil)
|                          ((eq limit t) print-level)
|                          (t (min 8 (truncate (log limit))))))
| +         (cl-print-string-length
| +          (cond
| +           ((or (null limit) (zerop limit)) nil)
| +           ((eq limit t) cl-print-string-length)
| +           (t (max 0 (- limit 3)))))

TIA,

Michael.