diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-25 21:47:20 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-25 21:47:20 +0200 |
| commit | e35d73b0c576e3bf5c821cf26c00da2f34e1caa7 (patch) | |
| tree | 73ceeada80151118a51ba5fedd25736bfda4f27d | |
| parent | bd1733291371dc7b309c907a7a816b8ae5f45e0c (diff) | |
Move the definition of *MODE* to the top of the file.
| -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 67e6207..5274c5a 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -10,6 +10,8 @@ (defconstant +stack-max+ 8) +(defvar *mode* :not-compile-time) + (defmacro specialize (var value possible-values &body body) `(ecase ,value ,@(loop for x in (cl:eval possible-values) @@ -742,8 +744,6 @@ (when (globally-constant-p var) (warn "~S is a constant and thus can't be set." var))) -(defvar *mode* :not-compile-time) - (declaim (ftype (function (* context &optional symbol) eval-closure) prepare-form)) (defun prepare-form (form context &optional (mode *mode*) &aux (*mode* :execute)) ;;(declare (optimize speed (safety 0) (space 1) (debug 0))) |