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