Return a list of functions defined in a given package.

gistfile1.lisp

(defun functions-in-package (&optional (package-name (package-name *package*)))
  "Return a list of functions available in a given package."
  (let ((symbols nil))
    (do-symbols (symbol package-name)
      (when (fboundp symbol)
        (push symbol symbols)))
    symbols))

(defun functions-defined-in-package (&optional (package-name (package-name *package*)))
  "Return a list of functions that are defined in a given package."
  (loop for symbol in (functions-in-package package-name)
        if (eq (symbol-package symbol) (find-package package-name))
          collect symbol))