Function: get-accessible-wethods

Documentation

Gets all the wethods that are named by a symbol that is accessible in the current package.

Source

(defun get-accessible-wethods (&optional (package *package*))
  "Gets all the wethods that are named by a symbol that is accessible in the current package."
  (let ((packages (mapcar #'^keyword (cons package (package-use-list package)))))
    (mappend (fn (package) (filter #'accessible? (get-direct-wethods package)))
	     packages)))