In TXR Lisp, I seem to have nearly double that in the analogous public library package called usr:

  1> (len (keep-if [orf boundp mboundp fboundp] (package-symbols 'usr)))
  1713

That's just a one-man project coming up to ten years two months hence.

That doesn't count any structure types or their slot names, FFI types, and local macros involved in syntaxes like awk and such.

I would say that Common Lisp shows amazing restraint, given its scope and number of people involved.