gistfile1.cl

;;; setf'able な PLACE を一時的に変更して BODY を評価する
(defmacro letf (bindings &body body)
  (let ((originals (mapcar (lambda (x) (gensym)) bindings)))
    `(let (,@(mapcar (lambda (sym x) `(,sym ,(car x)))
               originals
               bindings))
       (unwind-protect
           (progn
             (setf ,@(mapcan #'identity bindings))
             ,@body)
         (setf ,@(mapcan (lambda (b o)
                           `(,(car b) ,o))
                   bindings
                   originals))))))

let と let* 的な意味で psetf の方がいいかも
let みたいに値を省略してカッコ外すのはできない。下の (ACC-2 X) が PLACE なのか (PLACE VALUE) なのか判断できないんで。

(letf (((ACC-1 X) VALUE-1)
       (ACC-2 X))
  ...)