once-only lisp macro, yet another implementation

Question

I am trying to learn Lisp from Peter Seibel's book "Practical Common Lisp". In chapter 8 : "Macros: Defining your own", I came across this once-only macro. At the bottom of that page, an implementation is given.

I tried implementing my own macro for the same purpose earlier, but it had a bug, as pointed out at once-only lisp macro, is my implementation correct?.

This time I have done another alternate implementation, hopefully fixing that bug. I would like to know if my implementation is correct this time around ?

(defmacro my-once-only ((&rest args) &rest body)
  (let
    ((gensyms (loop for x in args collect (gensym))))

    `(let
      (,@(loop for g in gensyms for x in args collect `(,g ,x))
       ,@(loop for x in args collect `(,x (gensym))))

      `(let
         ,`(,,@(loop for x in args for g in gensyms collect ``(,,x ,,g)))

         ,,@body))))