From a156c35cc2a16a67a4e2e9ff0d81860d5f55e824 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Fri, 7 Jun 2013 00:56:50 +0200 Subject: [PATCH] Move *ROOT* to toplevel.lisp because of an error. --- src/ffi.lisp | 2 -- src/toplevel.lisp | 2 ++ 2 files changed, 2 insertions(+), 2 deletions(-) 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 . -(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)) -- 1.7.10.4