summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2013-07-11 16:12:59 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2013-07-11 16:12:59 +0200
commit0b500b929a38d0bd911f1ce211c1b41f0a967743 (patch)
treeb92a299d2f948be0142e01a4b070c689ca922d0e
parent73afd7d97d388962be4f272fcf476041f18e2e62 (diff)
Reorder functions to make sb-eval2.lisp LOADable without warnings.
-rw-r--r--sb-eval2.lisp4
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)