From c795da47d7c8d38d5f39facc243853fa0221ccdb Mon Sep 17 00:00:00 2001 From: Christophe Rhodes <csr21@cantab.net> Date: Tue, 4 Dec 2001 18:11:18 +0000 Subject: [PATCH] added some docstrings --- asdf.lisp | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index acdef743..a00c6074 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -84,7 +84,7 @@ ;; because quite often that's not what we actually use it for) (pathname :initarg :pathname))) -(defmethod string-unix-common-casify (string &key (start 0) end) +(defun string-unix-common-casify (string &key (start 0) end) "Converts a string assumed local to a Unix filesystem into its :common :case partner." (unless end @@ -97,6 +97,8 @@ (nstring-upcase result :start start :end end)) (t result)))) +(defgeneric component-pathname (component) + (:documentation "Extracts the pathname applicable for a particular component.")) (defmethod component-pathname ((component component)) (let ((*default-pathname-defaults* *component-parent-pathname*)) @@ -128,6 +130,11 @@ (make-pathname :directory `(:relative ,(component-name component)) :host (pathname-host *component-parent-pathname*))) +(defgeneric find-component (module name) + (:documentation "Finds the component with name NAME present in the +MODULE module; if MODULE is nil, then the component is assumed to be a +system.")) + (defmethod find-component ((module module) name) (if (slot-boundp module 'components) (find name (module-components module) @@ -426,11 +433,13 @@ if b append b into bindings finally (return (values initargs bindings)))) -;;; process-option returns as its first value a list of initargs that -;;; eventually gets appended to a call to reinitialize instance; its -;;; optional second value is a list of binding clauses suitable for a -;;; let that may be referred to in the initargs. -(defmethod process-option (option value) +(defgeneric process-option (option value) + (:documentation "returns as its first value a list of initargs that +eventually gets appended to a call to reinitialize instance; its +optional second value is a list of binding clauses suitable for a let +that may be referred to in the initargs.")) + +(defmethod process-option (option value) (list option value)) #| -- GitLab