ひきこもる

(with-unlocked-packages (:common-lisp)
  (loop for x being the external-symbol in :common-lisp
        do (unexport x :common-lisp)))
;; => NIL