;;; (load "load-print" :print t) to test

(defvar foo 'no)
(setq foo 'yes)

;;; if it works, should