diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-19 01:05:06 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-19 01:05:06 +0200 |
| commit | b5aa0256cce638fc1abdf76cfa471cab3a4681c8 (patch) | |
| tree | a4643ec7e934aafd0e0e347fa58e3e89a1319d8c | |
| parent | 04101f15880d5198e8de4bb71f67b63b3c7cc13a (diff) | |
Update MAYBE-CLOSES-OVER-P call sites.
| -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 1a26aec..0a8ba5d 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -444,7 +444,7 @@ (aux-num (length aux)) (varnum (length argvars)) (envp (or (> varnum +stack-max+) - (maybe-closes-over-p `(progn ,@body) argvars))) + (maybe-closes-over-p context `(progn ,@body) argvars))) (default-values (append (mapcar #'lambda-binding-default optional) (mapcar #'lambda-binding-default keys) (mapcar #'lambda-binding-default aux))) @@ -729,7 +729,7 @@ (vars (mapcar #'car real-bindings)) (varnum (length vars)) (envp (or (> varnum +stack-max+) - (maybe-closes-over-p `(progn ,@body) vars))) + (maybe-closes-over-p context `(progn ,@body) vars))) (new-context (context-add-env-lexicals context (list))) srav-laiceps) @@ -790,7 +790,7 @@ (vars (mapcar #'car real-bindings)) (varnum (length vars)) (envp (or (> varnum +stack-max+) - (maybe-closes-over-p `(progn ,@body) vars))) + (maybe-closes-over-p context `(progn ,@body) vars))) (new-context (context-add-env-lexicals context (list))) lexical-values* |