(package-error (c) (princ c))
(:no-error (&rest args) (error "(EXPORT :FOO) returned ~S" args)))
+(make-package "FOO")
+(assert (shadow #\a :foo))
+
+(defpackage :PACKAGE-DESIGNATOR-1 (:use #.(find-package :cl)))
+
+(defpackage :PACKAGE-DESIGNATOR-2
+ (:import-from #.(find-package :cl) "+"))