get a list of uncalled functions in package

uncalled.lisp

(defun uncalled (package)
  (loop for s being the present-symbols of package
        for ss = `(setf ,s)
        when (and (fboundp s) (not (macro-function s)) (not (special-operator-p s)) (null (ext:who-calls s)))
          collect s
        when (and (fboundp ss) (null (ext:who-calls ss)))
          collect ss))

;; (uncalled :alexandria) => (alexandria::racons alexandria:hash-table-alist ...)