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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Dec 20 21:53:59 2008
New Revision: 11461

Log:
Document some functions.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Sat Dec 20 21:53:59 2008
@@ -2643,7 +2643,11 @@
 
 (defknown process-args (t) t)
 (defun process-args (args)
-  ""
+  "Compiles forms specified as function call arguments.
+
+The results are either accumulated on the stack or in an array
+in order to call the relevant `execute' form. The function call
+itself is *not* compiled by this function."
   (when args
     (let ((numargs (length args)))
       (let ((must-clear-values nil))
@@ -2750,6 +2754,10 @@
       (emit-move-from-stack target representation))))
 
 (defun compile-call (args)
+  "Compiles a function call.
+
+Depending on the `*speed*' and `*debug*' settings, a stack frame
+is registered (or not)."
   (let ((numargs (length args)))
     (cond ((> *speed* *debug*)
            (process-args args)
@@ -2879,6 +2887,10 @@
 
 (defknown compile-local-function-call (t t t) t)
 (defun compile-local-function-call (form target representation)
+  "Compiles a call to a function marked as `*child-p*'; a local function.
+
+Functions this applies to can be FLET, LABELS, LAMBDA or NAMED-LAMBDA.
+Note: DEFUN implies a named lambda."
   (let* ((compiland *current-compiland*)
          (op (car form))
          (args (cdr form))