APPROVE COMMIT 21.5 Vin Shelton writes: > >>Error occurred processing /opt/src/xemacs-21.5-2008-05-14/lisp/subr.el: Wrong number of arguments: (lambda (form a list &rest keys) " > Common Lisp lambda list: > (member* FORM A LIST &rest KEYS) *sigh* This patch fixes the build and `make check' passes. I believe it implements the desired semantics. diff -r 34b42224a066 lisp/ChangeLog --- a/lisp/ChangeLog Wed May 14 23:55:13 2008 +0200 +++ b/lisp/ChangeLog Wed May 14 21:56:11 2008 -0700 ＠＠ -0,0 +1,4 ＠＠ +2008-05-14 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * subr.el (add-to-list): Fix Aidan's last commit. + diff -r 34b42224a066 lisp/subr.el --- a/lisp/subr.el Wed May 14 23:55:13 2008 +0200 +++ b/lisp/subr.el Wed May 14 21:56:12 2008 -0700 ＠＠ -402,8 +402,7 ＠＠ into a hook function that will be run only after loading the package. `eval-after-load' provides one way to do this. In some cases other hooks, such as major mode hooks, can do the job." - (if (member* (member* element (symbol-value list-var) - :test (or compare-fn #'equal))) + (if (member* element (symbol-value list-var) :test (or compare-fn #'equal)) (symbol-value list-var) (set list-var (if append