Dear all,
say after loading some file (which loads a lot of other files) I
find symbol x in two packages p1 and p2. However, I want that
only package p1 contains x. So I am probably missing some
(usepackage p1) somewhere.
How can I find out the source code line that is responsible for
creating p2::x?
I tried to redefine intern like
(setf (symbol-function 'old-intern) (symbol-function 'intern))
(defun intern (name &optional (package *package*))
(multiple-value-bind (sym info) (old-intern name package)
(if (not info)
(format t "NEW: ~a::~a~%" name (package-name package))
)
(values sym info)))
However, this does not work, probably because the reader is not
calling intern.
Thanks for all suggestions,
Hendrik Tews
