From d0375fbab59dc8443345e36cbc326662fae6bdb1 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sat, 20 Jul 2013 18:47:31 +0200 Subject: Make local functions shadow global macros. --- sb-eval2.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/sb-eval2.lisp b/sb-eval2.lisp index bc2081d..6deec92 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -1124,6 +1124,8 @@ form (context->native-environment context)) context))) + ((local-function-p context f) + (prepare-local-call f args context)) (global-macro? (prepare-form (funcall global-macro? form (context->native-environment context)) context)) ((and (listp f) @@ -1131,9 +1133,7 @@ (let ((lambda-fn (prepare-lambda (rest f) context))) (prepare-direct-call lambda-fn args context))) (t - (if (local-function-p context f) - (prepare-local-call f args context) - (prepare-global-call f args context)))))))))))) + (prepare-global-call f args context))))))))))) t)) (defun eval (form) -- cgit v1.2.3