Plaster
New
List
Login
common-lisp
default
anonymous
2019.08.25 17:33:10
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>
Raw
Annotate
Repaste
Edit