Plaster

(cl:in-package #:cl-user) (defmacro foo (s) (format *debug-io* "~&FOO-whatever (~A)~%" s) (eval-when (:compile-toplevel) (format *debug-io* "~&FOO-compile (~A)~%" s)) (eval-when (:load-toplevel) (format *debug-io* "~&FOO-load (~A)~%" s)) (eval-when (:execute) (format *debug-io* "~&FOO-execute (~A)~%" s)) (eval-when (:compile-toplevel :load-toplevel) (format *debug-io* "~&FOO-compile-load NOT execute (~A)~%" s) (eval-when (:execute) (format *debug-io* "~&FOO-compile-load NOT execute then execute! (~A)~%" s))) `(progn (eval-when (:compile-toplevel :load-toplevel :execute) (format *debug-io* "~&GENERATED-compile-load-execute (~A)~%" ,s)) (format *debug-io* "~&GENERATED body. ~A~%" ,s)))