(require 'stdlib) ;; TODO ;; - print fixme-text or not, depending on debug mode ;; - add more types: note, xxx, todo, bug -> generalize: ;; (defmacro (annotate type text #!rest forms) ;; ...) ;; (defmacro (fixme text #!rest forms) ;; (annotate 'fixme text forms)) ;; &c for todo, xxx (defmacro fixme (text #!rest forms) (printf "FIXME: %s\n" text) (printf "forms: %s\n" forms) `(progn ,@forms)) (fixme "oops?" (/ 1 2)) (fixme "roundoff error?" (puts "jaja") (* 3 4)))