eval-when for top-levels (defuns...)