(defun foo ()
  (when (bar)
    (print "inject")))

(defun bar ()
  t)