Possible to conditionally bind variable?

[torys.anderson@gmail.com (Tory S. Anderson)]

I have several redundancies in the following code: 

(defun go-or-make-agenda (&optional new-frame)
  (interactive "P")
  (let ((buffer "\*Org Agenda\*"))
    (if (get-buffer buffer)
	(if new-frame
	    (switch-to-buffer-other-frame buffer)
	  (switch-to-buffer buffer))
      (if new-frame
	  (switch-to-buffer-other-frame org-agenda-list)
	(org-agenda-list)))))

I'd like to do something like the following, to chop out much of the switch-to-[other-]-buffer cruft:

(defun go-or-make-agenda (&optional new-frame)
  (interactive "P")
  (let ((buffer "\*Org Agenda\*")
	(some-other-buffer "*scratch*")
	(my-switch-function (if new-frame ;; is there some way to do this?
				'(switch-to-other-buffer)
				'(switch-to-buffer)))
    (if (get-buffer buffer)
	(my-switch-function buffer)
	(my-switch-function some-other-buffer))))) 


 I'm not sure this is possible (short of the rather daunting http://stackoverflow.com/questions/25115876/conditional-variable-binding-in-common-lisp), but I have trust that in the awesomeness of Lisp it just might be.

- Tory