From 2f2f13a33f1709db600db126312d9b6b9ca42909 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Tue, 3 Sep 2013 18:00:44 +0200 Subject: [PATCH] NAME is a string designator. --- src/package.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4