git » jacl.git » commit 6bc5738

Switch to cl-user in boot.lisp

author Alan Dipert
2020-01-06 14:27:32 UTC
committer Alan Dipert
2020-01-06 14:27:32 UTC
parent fb21db8ede8857bb5a503de7c7612feae0b34f7d

Switch to cl-user in boot.lisp

boot.lisp +7 -0

diff --git a/boot.lisp b/boot.lisp
index 1b257b1..c7e7e15 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -27,6 +27,13 @@
        (jacl:%lambda ,params ,@body))
      ',name))
 
+(\. cl:*package* (|exportSymbol| (\. "SET" (|toString|))))
 (defun set (symbol value)
   (%js "(~{}.value = ~{})" symbol value))
 
+;; Use COMMON-LISP from COMMON-LISP-USER and switch to
+;; COMMON-LISP-USER
+(%let ((cl-user-pkg (\. (%js "Package") (|get| "COMMON-LISP-USER"))))
+  (\. cl-user-pkg (|usePackage| cl:*package*))
+  (%setq cl:*package* cl-user-pkg))
+