Plaster

common-lisp
CL-USER(1): (defpackage #:a.1 (:nicknames #:a.2)) #<The A.1 package> CL-USER(2): (delete-package '#:a.1) T CL-USER(3): (find-package '#:a.2) #<The deleted package that was named A.1>