(defun bar () 3) (defvar *the-fn* #'bar) (defvar *the-sym* 'bar) (defun foo () (funcall *the-fn*)) (defun baz () (funcall *the-sym*))
CL-USER> (values (baz) (foo)) 3 3 CL-USER> (defun bar () 2) WARNING: redefining COMMON-LISP-USER::BAR in DEFUN BAR CL-USER> (values (baz) (foo)) 2 3