From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Thu, 6 Jun 2013 22:56:50 +0000 (+0200)
Subject: Move *ROOT* to toplevel.lisp because of an error.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a156c35cc2a16a67a4e2e9ff0d81860d5f55e824;p=jscl.git

Move *ROOT* to toplevel.lisp because of an error.
---

diff --git a/src/ffi.lisp b/src/ffi.lisp
index 537b2cc..be5048a 100644
--- a/src/ffi.lisp
+++ b/src/ffi.lisp
@@ -13,8 +13,6 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with JSCL.  If not, see <http://www.gnu.org/licenses/>.
 
-(defvar *root* (%js-vref "window"))
-
 (define-setf-expander oget (object key &rest keys)
   (let* ((keys (cons key keys))
          (g!object (gensym))
diff --git a/src/toplevel.lisp b/src/toplevel.lisp
index a396554..497d4a0 100644
--- a/src/toplevel.lisp
+++ b/src/toplevel.lisp
@@ -249,6 +249,8 @@
 
 (setq *package* *user-package*)
 
+(defvar *root* (%js-vref "window"))
+
 ;;; Set some external entry point to the Lisp implementation to the
 ;;; console. It would not be necessary when FFI is finished.
 (let ((*root* #j:lisp))