diff options
| -rw-r--r-- | sb-eval2.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index c7799e8..3290de8 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -83,14 +83,14 @@ (cons tag forms))))) (defun context-var-lexical-p (context var) (member var (context-lexicals context))) -(defun context-add-lexical (context var) - (context-add-lexicals context (list var))) (defun context-add-lexicals (context vars) (let ((new-context (make-context context))) (with-slots (lexicals) new-context (setq lexicals (append vars lexicals))) new-context)) +(defun context-add-lexical (context var) + (context-add-lexicals context (list var))) (defun prepare-ref (var context) (if (context-var-lexical-p context var) |