(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">