(defmacro StartStopMacro (x)
  ( let ( ;declare gensyms
          (s (gensym))
          (m (gensym))
          (h (gensym)))
    `(multiple-value-bind (,s ,m ,h) (get-decoded-time)
        (progn
        (format t "Time Started is ~A:~A:~A~%" ,h ,m ,s)
        ,x
        (multiple-value-bind (,s ,m ,h) (get-decoded-time)
          (format t "Time Stopped is ~A:~A:~A~%" ,h ,m ,s)))
)))