gistfile1.clj

(defsyntax-rules plet
  (plet [& var rhs] & body)
  ((fn [& var] & body) & rhs))

(plet [a 1 b 2] (+ a b)) ;=> 3

;;; Implementation of defsyntax-rules
; Using defmacro:
(defmacro defsyntax-rules
  [name & rt-pairs]
  (let [rules (take-nth 2 rt-pairs)
        templates (take-nth 2 (rest rt-pairs))]
    `(let [ar# (make-apply-rules '~rules '~templates)]
     (defmacro ~name
       [& forms#]
       (ar# (cons '~name forms#))))))

; Using defsyntax-rules:
(defsyntax-rules defsyntax-rules
  (defsyntax-rules name & rule template)
  (let [ar (make-apply-rules '(& rule) '(& template))]
    (defmacro name
      [(+literal &) forms]
      (ar (cons 'name forms)))))