comparison src/symbols.c @ 280:7df0dd720c89 r21-0b38

Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents c5d627a313b1
children 558f606b08ae
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
2886 for obsolescence support. */ 2886 for obsolescence support. */
2887 return call5 (bfwd->handler[htype], sym, Flist (nargs, args), funsym, 2887 return call5 (bfwd->handler[htype], sym, Flist (nargs, args), funsym,
2888 bfwd->harg[htype], Qnil); 2888 bfwd->harg[htype], Qnil);
2889 } 2889 }
2890 2890
2891 DEFUN ("dontusethis-set-symbol-value-handler", 2891 DEFUN ("dontusethis-set-symbol-value-handler", Fdontusethis_set_symbol_value_handler,
2892 Fdontusethis_set_symbol_value_handler, 3, 5, 0, /* 2892 3, 5, 0, /*
2893 Don't you dare use this. 2893 Don't you dare use this.
2894 If you do, suffer the wrath of Ben, who is likely to rename 2894 If you do, suffer the wrath of Ben, who is likely to rename
2895 this function (or change the semantics of its arguments) without 2895 this function (or change the semantics of its arguments) without
2896 pity, thereby invalidating your code. 2896 pity, thereby invalidating your code.
2897 */ 2897 */