# Pastebin Kf7f8DGk
(defmacro clog-probe (symbol &key clog-body
                                  (title "")
                                  (time-out 600)
                                  top left
                                  (width 400) (height 300)
                                  auto-probe
                                  (modal t))
  `(let ((body (or ,clog-body
                   *clog-debug-instance*))
         (title (if (equal ,title "")
                    (format t "~s" ',symbol) 
                    ,title)))