whole_func_string: function sc_assoc(o, al) {
      while (al !== null) {
  	if (sc_isEqual(al.car.car, o))
  	    return al.car;
  	al = al.cdr;
      }
      return false;
  }
func_code_string: function sc_assoc(o, al) {
      while (al !== null) {
  	if (sc_isEqual(al.car.car, o))
  	    return al.car;
  	al = al.cdr;
      }
      return false;
  }
func_documentation_string: * META ((export #t))