NAME is a string designator.

[jscl.git] / src / package.lisp

diff --git a/src/package.lisp b/src/package.lisp
index b93fe02..30170ed 100644 (file)
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -23,7 +23,7 @@
 (defun make-package (name &key use)
   (let ((package (new))
         (use (mapcar #'find-package-or-fail use)))
-    (setf (oget package "packageName") name)
+    (setf (oget package "packageName") (string name))
     (setf (oget package "symbols") (new))
     (setf (oget package "exports") (new))
     (setf (oget package "use") use)
@@ -76,7 +76,7 @@
 (defvar *package* *common-lisp-package*)
 
 (defmacro in-package (string-designator)
-  `(eval-when-compile
+  `(eval-when (:compile-toplevel :load-toplevel :execute)
      (setq *package* (find-package-or-fail ',string-designator))))
 
 ;; This function is used internally to initialize the CL package