From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Tue, 3 Sep 2013 16:00:44 +0000 (+0200)
Subject: NAME is a string designator.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=2f2f13a33f1709db600db126312d9b6b9ca42909

NAME is a string designator.
---

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