diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp index f85db1602..d83554597 100644 --- a/src/code/target-package.lisp +++ b/src/code/target-package.lisp @@ -985,7 +985,8 @@ error if any of PACKAGES is not a valid package designator." :package package :format-control "~@" - :format-arguments (list (package-%name package) missing))) + :format-arguments (list (package-%name package) missing)) + 'import (package-%name package)) (import missing package)) (import imports package)) diff --git a/tests/packages.impure.lisp b/tests/packages.impure.lisp index c1910eea1..b7e22b008 100644 --- a/tests/packages.impure.lisp +++ b/tests/packages.impure.lisp @@ -17,4 +17,9 @@ (assert (eq *foo* (find-package ""))) (assert (delete-package "")) +(handler-case + (export :foo) + (package-error (c) (princ c)) + (:no-error (&rest args) (error "(EXPORT :FOO) returned ~S" args))) + (sb-ext:quit :unix-status 104) diff --git a/version.lisp-expr b/version.lisp-expr index e4e7fb6ea..4c11e51bc 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.17.25" +"0.8.17.26"