package hackery for moving classes between packages

rehome-class.lisp

(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 `(,(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)
      (import symbols old-home))))

;;; `(,'car ,@'(cadr caddr)) = (list* 'car '(cadr caddr))

rehome-symbol.lisp

(defun rehome-symbol
    (symbol new-home &aux (old-home (symbol-package symbol)))
  (unintern symbol old-home)
  (import (list symbol) new-home)
  (import (list symbol) old-home))

;;; try to avoid triggering `C-u M-q' and `C-x f' within lisp

updated to import instead of intern