Celebrate Macro

#|
  This file is a part of Shinmera's daily life
  (c) 2013 TymoonNET/NexT http://tymoon.eu (shinmera@tymoon.eu)
  Author: Nicolas Hafner <shinmera@tymoon.eu>
  License: WTFPL
|#

(defmacro celebrate (&rest what)
  (let ((string (string-downcase (format NIL "~{~A ~}" what))))
    `(progn
       (format T "It's time to celebrate ~a!~%~%" ,string)
       (loop for i upto 20 do (format T "GOOD JOB TO YOU! "))
       (format T "~%~%Now on to the next thing!~%"))))