author | Alan Dipert
<alan@dipert.org> 2020-01-06 14:27:32 UTC |
committer | Alan Dipert
<alan@dipert.org> 2020-01-06 14:27:32 UTC |
parent | fb21db8ede8857bb5a503de7c7612feae0b34f7d |
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)) +