NAME is a string designator.

[jscl.git] / src / package.lisp

diff --git a/src/package.lisp b/src/package.lisp
index 3ee5105..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)