From 0b500b929a38d0bd911f1ce211c1b41f0a967743 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 11 Jul 2013 16:12:59 +0200 Subject: Reorder functions to make sb-eval2.lisp LOADable without warnings. --- sb-eval2.lisp | 4 ++-- 1 file 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) -- cgit v1.2.3