Plaster

common-lisp
(defpackage foo (:use cl)) (defpackage bar (:use cl)) (in-package foo) (defun foo () #.*package*) (in-package bar) (defun foo () #.*package*) (in-package foo) (print (bar::foo)) ;=> #<PACKAGE "BAR">