From afdd5b9831e51de0ffff19d06f4302693900a2e3 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 15 Feb 2009 18:58:23 +0100 Subject: [PATCH] Small typo. --- src/cmp/cmpcall.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp index edf304c52..631c80c56 100644 --- a/src/cmp/cmpcall.lsp +++ b/src/cmp/cmpcall.lsp @@ -53,7 +53,7 @@ ;; (FUNCALL macro-expression ...) ((let ((name (first fun))) (setq fd (and (symbolp name) - ;; We do not want to macroexpad 'THE + ;; We do not want to macroexpand 'THE (not (eq name 'THE)) (cmp-macro-function name)))) (c1funcall (list* (cmp-expand-macro fd fun) arguments)))