Sanity Check

Bad idea?
(defmacro letret (return-binding bindings &body body)
  `(let ,(cons return-binding bindings)
     ,@body
     ,(first return-binding)))

(defmacro letret* (return-binding bindings &body body)
  `(let* ,(cons return-binding bindings)
     ,@body
     ,(first return-binding)))

>>33
You know that that quote before the backquote breaks this macro right?

(defmacro prog-list (&body body)
  ``(,,@body))

might be closer to what you want, but why do this at all?


CL-USER> (prog-list 1 2 3)
(1 2 3)
CL-USER> '(1 2 3)
(1 2 3)