(eval-when (:compile-toplevel)
  (print 'toplevel/compile-toplevel))
(eval-when (:load-toplevel)
  (print 'toplevel/load-toplevel))
(eval-when (:execute)
  (print 'toplevel/execute))

(defun foo ()
  (list (eval-when (:compile-toplevel)
          (print 'foo/compile-toplevel))
        (eval-when (:load-toplevel)
          (print 'foo/load-toplevel))
        (eval-when (:execute)
          (print 'foo/execute))))

(print (foo))


;; cl-user> (load (compile-file "/tmp/e.lisp" :verbose t :print t) :verbose t :print t)
;; ;Compiling "/private/tmp/e.lisp"...
;;  Toplevel Forms...
;;  Toplevel Forms...  (Compiletime)
;;
;; toplevel/compile-toplevel
;;  Toplevel Forms...
;;  Toplevel Forms...
;;  Toplevel Forms...
;;  foo
;;  Toplevel Forms...
;; ;Loading #P"/private/tmp/e.dx64fsl"...
;; toplevel/load-toplevel
;; foo
;;
;; foo/execute
;; (nil nil foo/execute)
;; #P"/private/tmp/e.dx64fsl"
;; cl-user> (load "/tmp/e.lisp" :verbose t :print t)
;; ;Loading #P"/tmp/e.lisp"...
;; nil
;; nil
;;
;; toplevel/execute
;; toplevel/execute
;; foo
;;
;; foo/execute
;; (nil nil foo/execute)
;; (nil nil foo/execute)
;; #P"/private/tmp/e.lisp"
;; cl-user>