[armedbear-cvs] r13208 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Feb  8 13:01:19 2011
New Revision: 13208

Log:
Add documentation.

Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Tue Feb  8 13:01:19 2011
@@ -2560,6 +2560,11 @@
 ;; 7.1.2
 
 (defun check-initargs (gf-list args instance shared-initialize-param initargs)
+  "Checks the validity of `initargs' for the generic functions in `gf-list' when
+called with `args' by calculating the applicable methods for each gf.
+The applicable methods for SHARED-INITIALIZE based on `instance',
+`shared-initialize-param' and `initargs' are added to the list of
+applicable methods."
   (when (oddp (length initargs))
     (error 'program-error
            :format-control "Odd number of keyword arguments."))