diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-20 18:47:31 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-20 18:47:31 +0200 |
| commit | d0375fbab59dc8443345e36cbc326662fae6bdb1 (patch) | |
| tree | 36b4fdbfdfca3b53c22dcbcbd59c74ece6731606 | |
| parent | 29223c4b1b672a721504dda551689eae82f23950 (diff) | |
Make local functions shadow global macros.
| -rw-r--r-- | sb-eval2.lisp | 6 |
1 files 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) |