From 2cf1cd0c96342f9899fdc92e6c0985abbcf78fd9 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Sat, 4 Jan 2014 14:27:28 -0600 Subject: [PATCH] Add some docstrings. --- package-system.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/package-system.lisp b/package-system.lisp index 961e5dff..5184ee63 100644 --- a/package-system.lisp +++ b/package-system.lisp @@ -36,10 +36,14 @@ :return form)) (defun file-defpackage-form (file) + "Return the first DEFPACKAGE form in FILE." (with-input-file (f file) (stream-defpackage-form f))) (defun package-dependencies (defpackage-form) + "Return a list of packages depended on by the package +defined in DEFPACKAGE-FORM. A package is depended upon if +the DEFPACKAGE-FORM imports a symbol from it." (assert (defpackage-form-p defpackage-form)) (remove-duplicates (while-collecting (dep) @@ -59,11 +63,14 @@ (symbol (string package)))) (defun register-system-packages (system packages) + "Register SYSTEM as providing PACKAGES." (let ((name (or (eq system t) (coerce-name system)))) (dolist (p (ensure-list packages)) (setf (gethash (package-designator-name p) *package-systems*) name)))) (defun package-name-system (package-name) + "Return the name of the SYSTEM providing PACKAGE-NAME, if such exists, +otherwise return a default system name computed from PACKAGE-NAME." (check-type package-name string) (if-let ((system-name (gethash package-name *package-systems*))) system-name -- GitLab