cl-user> (defun move-symbol-to-package (s new-home-package) (unintern s (symbol-package s)) (import s new-home-package) s)
MOVE-SYMBOL-TO-PACKAGE
cl-user> (defpackage "FOO" (:intern "X") (:use))
#<Package "FOO">
cl-user> (defpackage "BAR" (:use))
#<Package "BAR">
cl-user> (move-symbol-to-package 'foo::x :bar)
BAR::X
cl-user>