gistfile1.clj

(defmacro pandoriclet (letargs &rest body)
  (let [letargs (cons '(this) (let-binding-transform letargs))]
    `(let (,@letargs)
       (setq this ,@(last body))
       ,@(butlast body)
       (dlambda
         (:pandoric-get (sym)
           ,(pandoriclet-get letargs))
         (:pandoric-set (sym val)
           ,(pandoriclet-set letargs))
         (t (&rest args)
           (apply this args))))))