From 9640581d24ea89420c16d92e02d10bad5b4de3f8 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; typo. --- src/package.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/package.lisp b/src/package.lisp index 6fd379b..60d00f6 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -22,12 +22,12 @@ (defun %make-package (name use) (let ((package (new))) - (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) (if (find name *package-list* :key (lambda (s) (oget s "packageName")) :test #'equal) - (error "A package namded `~a' already exists." name) + (error "A package named `~a' already exists." name) (push package *package-list*)) package)) -- 1.7.10.4