- (let ((mappings (map-mappings args :flags-int)))
- `(let ((value 0))
- (dolist (flag ,expr value)
- (setq value (logior value (second (assoc flag ',mappings)))))))))
+ (let ((mappings (map-mappings args :flags-int))
+ (value (make-symbol "VALUE")))
+ `(let ((,value 0))
+ (dolist (flag ,expr ,value)
+ (setq ,value (logior ,value (second (assoc flag ',mappings)))))))))