dbg

(defmacro dbg (form)
  (let ((res (make-symbol "res"))
        (dbg-str (make-symbol "dbg-str")))
    `(progn
       (let ((,res ,form))
         (let ((,dbg-str (concat
                          (prin1-to-string "Debugging--> ")
                          (prin1-to-string ',form)
                          (prin1-to-string "\n = ")
                          (prin1-to-string ,res))))
           (message ,dbg-str)
           ,res)))))


(dbg (+ 1 1))

-> 2

*Messages*
"Debugging--> "(+ 1 1)"
 = "2