diff --git a/code/package.lisp b/code/package.lisp index 2734b2cd68aaebd3d6cc5a730122e8e4c1a0f3e5..b50a8cf288a5446adc54a10e40ed248162fdbcd2 100644 --- a/code/package.lisp +++ b/code/package.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.64 2003/04/30 16:48:50 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.65 2003/05/09 14:15:55 emarsden Exp $") ;;; ;;; ********************************************************************** ;;; @@ -39,7 +39,7 @@ to MAKE-PACKAGE or other package creation forms.") ;;; INTERNAL conditions -(define-condition simple-package-error (simple-condition package-error)()) +(define-condition simple-package-error (simple-condition package-error) ()) (defstruct (package (:constructor internal-make-package) @@ -187,9 +187,15 @@ (cond (dot-position (let ((parent (subseq child 0 dot-position))) (or (package-name-to-package parent) - (error "The parent of ~a does not exist." child)))) + (error 'simple-package-error + :name child + :format-control "The parent of ~a does not exist." + :format-arguments (list child))))) (t - (error "There is no parent of ~a." child)))))) + (error 'simple-package-error + :name child + :format-control "There is no parent of ~a." + :format-arguments (list child))))))) ;;; package-children -- Internal. @@ -278,7 +284,10 @@ (declare (fixnum i)) (setq tmp (package-parent package)) (unless tmp - (error "The parent of ~a does not exist." package)) + (error 'simple-package-error + :name (string package) + :format-control "The parent of ~a does not exist." + :format-arguments (list package))) (setq package tmp)) (relative-to package name))))))))