From 64e5f06b85a5f3add27da0136076a41c5924d6ce Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 1 Dec 2013 19:41:09 +0000 Subject: [PATCH] `make-package' signals error if package exists --- src/package.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/package.lisp b/src/package.lisp index 7449f84..6fd379b 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -26,7 +26,9 @@ (setf (oget package "symbols") (new)) (setf (oget package "exports") (new)) (setf (oget package "use") use) - (push package *package-list*) + (if (find name *package-list* :key (lambda (s) (oget s "packageName")) :test #'equal) + (error "A package namded `~a' already exists." name) + (push package *package-list*)) package)) (defun resolve-package-list (packages) -- 1.7.10.4