code: function sc_mapBang(proc, l1) {
      if (l1 === undefined)
  	return null;
      // else
      var l1_orig = l1;
      var nbApplyArgs = arguments.length - 1;
      var applyArgs = new Array(nbApplyArgs);
      while (l1 !== null) {
  	var tmp = l1;
  	for (var i = 0; i < nbApplyArgs; i++) {
  	    applyArgs[i] = arguments[i + 1].car;
  	    arguments[i + 1] = arguments[i + 1].cdr;
  	}
  	tmp.car = proc.apply(null, applyArgs);
      }
      return l1_orig;
  }
docs: * META ((export #t))