[AC21.5] 21.5 build failure

[Stephen J. Turnbull]

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 at xemacs.org>
+
+	* 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