Changeset 11461

Timestamp:

12/20/08 21:53:59 (12 years ago)

Author:

ehuelsmann

Message:

Document some functions.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (3 diffs)

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

@@ -2644 +2644 @@
 (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)))
@@ -2751 +2755 @@
 
 (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*)
@@ -2880 +2888 @@
 (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))