Changeset 11461
- Timestamp:
- 12/20/08 21:53:59 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r11455 r11461 2644 2644 (defknown process-args (t) t) 2645 2645 (defun process-args (args) 2646 "" 2646 "Compiles forms specified as function call arguments. 2647 2648 The results are either accumulated on the stack or in an array 2649 in order to call the relevant `execute' form. The function call 2650 itself is *not* compiled by this function." 2647 2651 (when args 2648 2652 (let ((numargs (length args))) … … 2751 2755 2752 2756 (defun compile-call (args) 2757 "Compiles a function call. 2758 2759 Depending on the `*speed*' and `*debug*' settings, a stack frame 2760 is registered (or not)." 2753 2761 (let ((numargs (length args))) 2754 2762 (cond ((> *speed* *debug*) … … 2880 2888 (defknown compile-local-function-call (t t t) t) 2881 2889 (defun compile-local-function-call (form target representation) 2890 "Compiles a call to a function marked as `*child-p*'; a local function. 2891 2892 Functions this applies to can be FLET, LABELS, LAMBDA or NAMED-LAMBDA. 2893 Note: DEFUN implies a named lambda." 2882 2894 (let* ((compiland *current-compiland*) 2883 2895 (op (car form))
Note: See TracChangeset
for help on using the changeset viewer.