diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-11 16:12:59 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-11 16:12:59 +0200 |
| commit | 0b500b929a38d0bd911f1ce211c1b41f0a967743 (patch) | |
| tree | b92a299d2f948be0142e01a4b070c689ca922d0e | |
| parent | 73afd7d97d388962be4f272fcf476041f18e2e62 (diff) | |
Reorder functions to make sb-eval2.lisp LOADable without warnings.
| -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) |