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