あー、もう

(without-package-locks
  (dolist (p (package-used-by-list :common-lisp))
    (unuse-package :common-lisp p))
  (delete-package :common-lisp))

な感じだよ。