(eval-when (compile)
  (format t "~&Compiling choice 1"))
(eval-when (eval load)
  (format t "~&Loading choice 1"))