This is a reproducible script.----(defpackage unexport-test(:export :a))(eval-when (:compile-toplevel :load-toplevel :execute)(when (find-package :unexport-test)(do-symbols (symbol :unexport-test)(unexport symbol :unexport-test))))(defpackage unexport-test(:export :a))(prin1 (nth-value 1 (intern (string :a) :unexport-test)))
If the new definition is at variance with the current state of that package, the consequences are undefined; an implementation might choose to modify the existing package to reflect the new definition. (see http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/Body/mac_defpackage.html, third sentence in the Description section)