adlai

(defgeneric rehome-class (class new-home)
  (:method ((class symbol) new-home)
    (rehome-class (find-class class) (find-package new-home)))
  (:method ((class class) (new-home package))
    (let ((old-home (symbol-package (class-name class)))
          (symbols (list* (class-name class)
                          (mapcar 'sb-mop:slot-definition-name
                                  (sb-mop:class-direct-slots class)))))
      (mapc (lambda (symbol) (unintern symbol old-home)) symbols)
      (import symbols new-home)