JavaScript風の代入

特に意味はありません。　むしゃくしゃしてやった。

(defmacro var (name dummy= v)
  (when (not (eq '= dummy=)) (error "!!!"))
  `(setf ,name ,v) )

(var a = 256)
(var b = (expt 2 8))