diff options
| -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) |