Plaster

common-lisp
(defmacro mac (x &environment e) (unless (cltl2:function-information x e) (warn "~s appears to be unbound!" x)) `(,x 1)) (mac print) ; no warning (mac preent) ; warning (flet ((x (n) (+ n 2))) (mac x)) ; no warning