X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefstruct.lisp;h=52880e82bfc9eea219b5b3762d378bfefe04ac76;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=2f86b39b3d646a5295c765f0f9adf38ae0c5747f;hpb=95a6db7329b91dd90d165dd4057b9b5098d34aa2;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 2f86b39..52880e8 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -150,7 +150,7 @@
   (intern (string (dsd-%name dsd))
 	  (if (dsd-accessor dsd)
 	      (symbol-package (dsd-accessor dsd))
-	      *package*)))
+	      (sane-package))))
 
 ;;;; typed (non-class) structures
 
@@ -590,7 +590,7 @@
 	spec))
 
     (when (find name (dd-slots defstruct) :test #'string= :key #'dsd-%name)
-      (error 'program-error
+      (error 'simple-program-error
 	     :format-control "duplicate slot name ~S"
 	     :format-arguments (list name)))
     (setf (dsd-%name islot) (string name))