From fffb57cc2aa89e419742e560a252efff2f326daf Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 15 Feb 2009 19:39:23 +0100 Subject: [PATCH] Small comment on call-global c1forms --- src/cmp/cmpeval.lsp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/cmp/cmpeval.lsp b/src/cmp/cmpeval.lsp index d1774fe52..67c11e333 100644 --- a/src/cmp/cmpeval.lsp +++ b/src/cmp/cmpeval.lsp @@ -105,7 +105,9 @@ (make-c1form* 'CALL-GLOBAL :sp-change (function-may-change-sp fname) :type return-type - :args fname forms)))))) + :args fname forms + ;; loc and type are filled by c2expr + )))))) (defun c2expr (form &aux (name (c1form-name form)) (args (c1form-args form))) (if (eq name 'CALL-GLOBAL)