21.5 build failure
Vin Shelton
acs at alumni.princeton.edu
Wed May 14 21:51:41 EDT 2008
My 21.5 builds (both mule and non-mule) are failing:
Wrote /opt/src/xemacs-21.5-2008-05-14/lisp/paragraphs.elc
Compiling /opt/src/xemacs-21.5-2008-05-14/lisp/loaddefs.el...
Wrote /opt/src/xemacs-21.5-2008-05-14/lisp/loaddefs.elc
Donef error-data (signal-error (car error-data) (cdr error-data))))
(if load-user-init-file-p (maybe-migrate-user-init-file)))
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
>>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)
" (let* nil (block member* (let ((test (and (= (length keys) 2) (eq
(car keys) :test) (cl-const-expr-val (nth 1 keys))))) (cond ((eq test
(quote eq)) (list (quote memq) a list)) ((eq test (quote equal)) (list
(quote member) a list)) ((or (null keys) (eq test (quote eql))) (if
(eq (cl-const-expr-p a) t) (list (if (floatp-safe (cl-const-expr-val
a)) (quote member) (quote memq)) a list) (if (eq (cl-const-expr-p
list) t) (let ((p (cl-const-expr-val list)) (mb nil) (mq nil)) (if
(not (cdr p)) (and p (list (quote eql) a (list (quote quote) (car
p)))) (while p (if (floatp-safe (car p)) (setq mb t) (or (integerp
(car p)) (symbolp (car p)) (setq mq t))) (setq p (cdr p))) (if (not
mb) (list (quote memq) a list) (if (not mq) (list (quote member) a
list) form)))) form))) (t form)))))), 2
make[1]: *** [NEEDTODUMP] Error 1
make[1]: Leaving directory `/media/sda4/build/xemacs-21.5-2008-05-14/src'
make: *** [src] Error 2
It looks like the lisp traceback is getting munged. A subsequent
'make' is slightly clearer:
Compiling /opt/src/xemacs-21.5-2008-05-14/lisp/subr.el...
Loading byte-optimize...
While compiling add-to-list in file
/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)
" (let* nil (block member* (let ((test (and (= (length keys) 2) (eq
(car keys) :test) (cl-const-expr-val (nth 1 keys))))) (cond ((eq test
(quote eq)) (list (quote memq) a list)) ((eq test (quote equal)) (list
(quote member) a list)) ((or (null keys) (eq test (quote eql))) (if
(eq (cl-const-expr-p a) t) (list (if (floatp-safe (cl-const-expr-val
a)) (quote member) (quote memq)) a list) (if (eq (cl-const-expr-p
list) t) (let ((p (cl-const-expr-val list)) (mb nil) (mq nil)) (if
(not (cdr p)) (and p (list (quote eql) a (list (quote quote)(car p))))
(while p (if (floatp-safe (car p)) (setq mb t) (or (integerp (car p))
(symbolp(car p)) (setq mq t))) (setq p (cdr p))) (if (not mb) (list
(quote memq) a list) (if (notmq) (list (quote member) a list) form))))
form))) (t form)))))) 2))
backtrace(nil t)
# bind (error-info)
byte-compile-report-error((wrong-number-of-arguments (lambda (form a
list &rest keys) "\nCommon Lisp lambda list:\n (member* FORM A LIST
&rest KEYS)\n\n" (let* nil (block member* (let ((test (and (= (length
keys) 2) (eq (car keys) :test) (cl-const-expr-val (nth 1 keys)))))
(cond ((eq test (quote eq)) (list (quote memq) a list)) ((eq test
(quote equal)) (list (quote member) a list)) ((or (null keys) (eq test
(quote eql))) (if (eq (cl-const-expr-p a) t) (list (if (floatp-safe
(cl-const-expr-val a)) (quote member) (quote memq)) a list) (if (eq
(cl-const-expr-p list) t) (let ((p (cl-const-expr-val list)) (mb nil)
(mq nil))(if (not (cdr p)) (and p (list (quote eql) a (list (quote
quote) (car p)))) (while p (if (floatp-safe (car p)) (setq mb t) (or
(integerp (car p)) (symbolp (car p)) (setq mq t))) (setq p (cdr p)))
(if (not mb) (list (quote memq) a list) (if (not mq) (list (quote
member)a list) form)))) form))) (t form)))))) 2))
# bind (error-info)
#<compiled-function (error-info) "...(4)" [error-info
byte-compile-report-error] 2>((wrong-number-of-arguments (lambda (form
a list &rest keys) "\nCommon Lisp lambda list:\n (member* FORM A LIST
&rest KEYS)\n\n" (let* nil (block member* (let ((test (and (= (length
keys) 2) (eq (car keys) :test) (cl-const-expr-val (nth 1 keys)))))
(cond ((eq test (quote eq)) (list (quote memq) a list)) ((eq test
(quote equal)) (list (quote member) a list)) ((or (null keys) (eq test
(quote eql))) (if (eq (cl-const-expr-p a) t) (list (if
(floatp-safe(cl-const-expr-val a)) (quote member) (quote memq)) a
list) (if (eq (cl-const-expr-p list) t) (let ((p (cl-const-expr-val
list)) (mb nil) (mq nil)) (if (not (cdr p)) (and p (list (quote eql) a
(list (quote quote) (car p)))) (while p (if (floatp-safe (car p))
(setq mb t) (or (integerp (car p)) (symbolp (car p)) (setq mq t)))
(setq p (cdr p))) (if (not mb) (list (quote memq) a list) (if (not mq)
(list (quote member) a list) form)))) form))) (t form)))))) 2))
# bind (a form)
(lambda (form a list &rest keys) "\nCommon Lisp lambda list:\n
(member* FORM A LIST &rest KEYS)\n\n" (let* nil (block member* (let
((test (and (= (length keys) 2) (eq (car keys) :test)
(cl-const-expr-val (nth 1 keys))))) (cond ((eq test (quote eq)) (list
(quote memq) a list)) ((eq test (quote equal)) (list (quote member) a
list)) ((or (null keys) (eq test (quote eql))) (if (eq
(cl-const-expr-p a) t) (list (if (floatp-safe (cl-const-expr-val a))
(quote member) (quote memq)) a list) (if (eq (cl-const-expr-p list) t)
(let ((p (cl-const-expr-val list)) (mb nil) (mq nil)) (if (not (cdr
p)) (and p (list (quote eql) a (list (quote quote) (car p)))) (while p
(if (floatp-safe (car p)) (setq mb t) (or (integerp (car p)) (symbolp
(car p)) (setq mq t))) (setq p (cdr p))) (if (not mb) (list (quote
memq) a list) (if (not mq) (list (quote member) a list) form))))
form))) (t form))))))((member* (member* element (symbol-value
list-var):test (or compare-fn (function equal)))) (member* element
(symbol-value list-var) :test (or compare-fn (function equal))))
apply((lambda (form a list &rest keys) "\nCommon Lisp lambda list:\n
(member* FORM A LIST &rest KEYS)\n\n" (let* nil (block member* (let
((test (and (= (length keys) 2) (eq (car keys) :test)
(cl-const-expr-val (nth 1 keys))))) (cond ((eq test (quote eq)) (list
(quote memq) a list)) ((eq test (quote equal)) (list (quote member) a
list)) ((or (null keys) (eq test (quote eql))) (if (eq
(cl-const-expr-p a) t) (list (if (floatp-safe (cl-const-expr-val a))
(quote member) (quote memq)) a list) (if (eq (cl-const-expr-p list) t)
(let ((p (cl-const-expr-val list)) (mb nil) (mq nil)) (if (not (cdr
p)) (and p (list (quote eql) a (list (quote quote) (car p)))) (while p
(if (floatp-safe (car p)) (setq mb t) (or (integerp(car p)) (symbolp
(car p)) (setq mq t))) (setq p (cdr p))) (if (not mb) (list (quote
memq) a list) (if (not mq) (list (quote member) a list) form))))
form))) (t form)))))) (member* (member* element (symbol-value
list-var):test (or compare-fn (function equal)))) (member* element
(symbol-value list-var) :test (or compare-fn (function equal))))
(setq form (apply handler form (cdr form)))
(eq form (setq form (apply handler form (cdr form))))
(not (eq form (setq form (apply handler form (cdr form)))))
(and handler (not (eq form (setq form (apply handler form (cdr form))))))
# bind (handler func)
(let ((func (car-safe form)) (handler nil)) (while (and (symbolp
func) (not (setq handler (get func (quote cl-compiler-macro))))
(fboundp func) (or (not (eq (car-safe (symbol-function func)) (quote
autoload))) (load (nth 1 (symbol-function func))))) (setq func
(symbol-function func))) (and handler (not (eq form (setq form (apply
handler form (cdr form)))))))
(while (let ((func (car-safe form)) (handler nil)) (while (and
(symbolp func) (not (setq handler (get func (quote
cl-compiler-macro)))) (fboundp func) (or (not (eq (car-safe
(symbol-function func)) (quote autoload))) (load (nth 1
(symbol-function func))))) (setq func(symbol-function func))) (and
handler (not (eq form (setq form (apply handler form (cdr form))))))))
# bind (form)
compiler-macroexpand((member* (member* element (symbol-value
list-var):test (or compare-fn (function equal)))))
# bind (fn tmp for-effect form)
byte-optimize-form-code-walker((member* (member* element
(symbol-value list-var) :test (or compare-fn (function equal)))) nil)
# bind (for-effect form)
byte-optimize-form((member* (member* element (symbol-value list-var)
:test (or compare-fn (function equal)))) nil)
# bind (fn tmp for-effect form)
byte-optimize-form-code-walker((if (member* (member* element
(symbol-value list-var) :test (or compare-fn (function equal))))
(symbol-value list-var) (set list-var (if append (append (symbol-value
list-var) (list element)) (cons element (symbol-value list-var)))))
nil)
# bind (for-effect form)
byte-optimize-form((if (member* (member* element (symbol-value
list-var):test (or compare-fn (function equal)))) (symbol-value
list-var) (set list-var (if append (append (symbol-value list-var)
(list element)) (cons element (symbol-value list-var))))) nil)
# bind (fn tmp for-effect form)
byte-optimize-form-code-walker((progn (if (member* (member* element
(symbol-value list-var) :test (or compare-fn (function equal))))
(symbol-value list-var) (set list-var (if append (append (symbol-value
list-var) (list element)) (cons element (symbol-value list-var))))))
nil)
# bind (for-effect form)
byte-optimize-form((progn (if (member* (member* element
(symbol-value list-var) :test (or compare-fn (function equal))))
(symbol-value list-var) (set list-var (if append (append(symbol-value
list-var) (list element)) (cons element (symbol-value list-var))))))
nil)
# bind (byte-compile-constants byte-compile-variables
byte-compile-tag-number byte-compile-depth byte-compile-maxdepth
byte-compile-output output-type for-effect form)
byte-compile-top-level((progn (if (member* (member* element
(symbol-value list-var) :test (or compare-fn (function equal))))
(symbol-value list-var) (set list-var (if append (append (symbol-value
list-var) (list element)) (cons element (symbol-value list-var))))))
nil lambda)
# bind (int doc body byte-compile-bound-variables arglist fun)
byte-compile-lambda((lambda (list-var element &optional append
compare-fn) "Add to the value of LIST-VAR the element ELEMENT if it
isn't there yet.\nThe test for presence of ELEMENT is done with
COMPARE-FN; if\nCOMPARE-FN is nil, then it defaults to `equal'. If
ELEMENT is added,\nit is added at the beginning of the list, unless
the optional argument\nAPPEND is non-nil, in which case ELEMENT is
added at the end.\n\nIf you want to use `add-to-list' on a variable
that is not defined\nuntil a certain package is loaded, you should put
the call to `add-to-list'\ninto a hook function that will be run only
after loading the package.\n`eval-after-load' provides one way to do
this. In some cases\nother hooks, such asmajor mode hooks, can do the
job." (if (member* (member* element (symbol-value list-var) :test (or
compare-fn (function equal)))) (symbol-value list-var) (set list-var
(if append (append (symbol-value list-var) (list element)) (cons
element (symbol-value list-var)))))))
# bind (byte-compile-free-assignments byte-compile-free-references
that-one this-one that-kind this-kind name macrop form)
byte-compile-file-form-defmumble((defun add-to-list (list-var
element &optional append compare-fn) "Add to the value of LIST-VAR the
element ELEMENT if it isn't there yet.\nThe test for presence of
ELEMENT is done with COMPARE-FN; if\nCOMPARE-FN is nil, then it
defaults to `equal'. If ELEMENT is added,\nit is added at the
beginning of the list, unless theoptional argument\nAPPEND is non-nil,
in which case ELEMENT is added at the end.\n\nIf you want to use
`add-to-list' on a variable that is not defined\nuntil a certain
package is loaded, you should put the call to `add-to-list'\ninto a
hook function that will be run only after loading the
package.\n`eval-after-load' provides one way to do this. In some
cases\nother hooks, such as major mode hooks, can do the job." (if
(member* (member* element (symbol-value list-var) :test (or compare-fn
(function equal)))) (symbol-value list-var) (set list-var (if append
(append (symbol-value list-var) (list element)) (cons element
(symbol-value list-var)))))) nil)
# bind (form)
byte-compile-file-form-defun((defun add-to-list (list-var element
&optional append compare-fn) "Add to the value of LIST-VAR the element
ELEMENT if it isn't there yet.\nThe testfor presence of ELEMENT is
done with COMPARE-FN; if\nCOMPARE-FN is nil, then it defaults to
`equal'. If ELEMENT is added,\nit is added at the beginning of the
list, unless the optional argument\nAPPEND is non-nil, in which case
ELEMENT is added at the end.\n\nIf you want to use `add-to-list' on a
variable that is not defined\nuntil a certain package is loaded, you
should put the call to `add-to-list'\ninto a hook function that will
be run only after loading the package.\n`eval-after-load' provides one
way to do this. In some cases\nother hooks, such as major mode hooks,
can do the job." (if (member* (member* element (symbol-value list-var)
:test (or compare-fn (function equal)))) (symbol-value list-var) (set
list-var (if append (append (symbol-value list-var) (list element))
(cons element (symbol-value list-var)))))))
# bind (byte-compile-current-form handler form)
byte-compile-file-form((defun add-to-list (list-var element
&optional append compare-fn) "Add to the value of LIST-VAR the element
ELEMENT if it isn't there yet.\nThe test for presence of ELEMENT is
done with COMPARE-FN; if\nCOMPARE-FN is nil, then it defaults to
`equal'. If ELEMENT is added,\nit is added at the beginning of the
list, unless the optional argument\nAPPEND is non-nil, in which case
ELEMENT is added at the end.\n\nIf you want to use `add-to-list' on a
variable that is not defined\nuntil a certain package is loaded, you
should put the call to `add-to-list'\ninto a hook function that will
be run only after loading the package.\n`eval-after-load' provides one
way to do this. In some cases\nother hooks, such as major mode hooks,
can do the job." (if (member* (member* element (symbol-value list-var)
:test (or compare-fn (function equal)))) (symbol-value list-var) (set
list-var (if append (append (symbol-value list-var) (list element))
(cons element (symbol-value list-var)))))))
# (unwind-protect ...)
#<compiled-function nil "...(43)" [byte-compile-unresolved-functions
byte-compile-inbuffer 1 " \n
" nil looking-at ";" byte-compile-file-form read
byte-compile-flush-pending
byte-compile-warn-about-unresolved-functions] 3>()
# (unwind-protect ...)
call-with-condition-handler(#<compiled-function (error-info)
"...(4)" [error-info byte-compile-report-error] 2> #<compiled-function
nil "...(43)" [byte-compile-unresolved-functions byte-compile-inbuffer
1 " \n
" nil looking-at ";"
byte-compile-file-form read byte-compile-flush-pending
byte-compile-warn-about-unresolved-functions] 3>)
# (unwind-protect ...)
# bind (byte-compile-warnings-beginning byte-compile-point-max-prev
byte-compile-log-buffer byte-compile-macro-environment
byte-compile-function-environment byte-compile-autoload-environment
byte-compile-unresolved-functions byte-compile-bound-variables
byte-compile-free-references byte-compile-free-assignments
byte-compile-verbose byte-optimize byte-compile-emacs19-compatibility
byte-compile-dynamic byte-compile-dynamic-docstrings
byte-compile-warnings byte-compile-file-domain byte-compile-outbuffer
float-output-format case-fold-search print-length print-level
byte-compile-constants byte-compile-variables byte-compile-tag-number
byte-compile-depth byte-compile-maxdepth byte-compile-output eval
filename byte-compile-inbuffer)
byte-compile-from-buffer(#<buffer " *Compiler Input*">
"/opt/src/xemacs-21.5-2008-05-14/lisp/subr.el")
# bind (byte-compile-current-file target-file input-buffer
output-buffer byte-compile-dest-file load filename)
byte-compile-file("/opt/src/xemacs-21.5-2008-05-14/lisp/subr.el")
byte-code("..." [file byte-compile-file t] 2)
# (condition-case ... . ((error (byte-code "ÂÃ!!ÂÄ!ÅÆ!«Æ Ç\"ªÂ
@ÈN(R) @!ÉÊ A\"ÂË!Ç" [file err princ ">>Error occurred
processing " ": " fboundp display-error nil error-message mapcar
#<compiled-function (x) "...(8)" [x princ " " prin1] 2> "\n"] 3))))
# bind (file)
batch-byte-compile-1("/opt/src/xemacs-21.5-2008-05-14/lisp/subr.el")
# bind (error file-to-process)
batch-byte-compile-one-file()
# bind (error)
batch-byte-compile()
funcall(batch-byte-compile)
# bind (arg)
command-line-do-funcall("-f")
funcall(command-line-do-funcall "-f")
(cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref
arg 0) ?-) (or (assocarg command-switch-alist) (assoc (substring arg
1) command-switch-alist)))) (funcall (cdrtem) arg)) ((string-match
"\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string=
arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p
t)))
(while command-line-args-left (setq arg (pop
command-line-args-left)) (cond (end-of-options (setq file-p t)) ((setq
tem (when (eq (aref arg 0) ?-) (or (assoc arg command-switch-alist)
(assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem)
arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int
arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options
t)) (t (setq file-p t))) (when file-p (setq file-p nil) (incf
file-count) (setq arg (expand-file-name arg dir)) (cond ((= file-count
1) (find-file arg)) (noninteractive (find-file arg)) (t
(find-file-other-window arg))) (when line (goto-line line) (setq line
nil))))
# bind (tem arg file-p end-of-options line file-count dir)
(let ((dir command-line-default-directory) (file-count 0) (line nil)
(end-of-options nil) file-p arg tem) (while command-line-args-left
(setq arg (pop command-line-args-left)) (cond (end-of-options (setq
file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (assoc
argcommand-switch-alist) (assoc (substring arg 1)
command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match
"\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string=
arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p
t))) (when file-p(setq file-p nil) (incf file-count) (setq arg
(expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg))
(noninteractive (find-file arg)) (t (find-file-other-window arg)))
(when line (goto-line line) (setq line nil)))))
(cond ((null command-line-args-left) (unless noninteractive
(run-hooks (quote term-setup-hook)) (setq term-setup-hook nil) (when
(and (string= (buffer-name) "*scratch*") (not
(ask-about-user-init-file-migration-p))) (unless (or
inhibit-startup-message (input-pending-p)) (let (tmout)
(unwind-protect (catch (quote tmout) (setq tmout (add-timeout
startup-message-timeout (lambda (ignore) (condition-case nil (throw
(quote tmout) t) (error nil))) nil)) (display-splash-screen) (or nil
(goto-char (point-min))) (sit-for 0) (setq unread-command-event
(next-command-event))) (when tmout (disable-timeout tmout)))))
(with-current-buffer (get-buffer "*scratch*") (erase-buffer) (when
(stringp initial-scratch-message) (insert initial-scratch-message))
(set-buffer-modified-p nil))))) (t (let ((dir
command-line-default-directory) (file-count 0) (line nil)
(end-of-options nil) file-p arg tem) (while command-line-args-left
(setq arg (pop command-line-args-left)) (cond (end-of-options (setq
file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (assoc arg
command-switch-alist) (assoc (substring arg 1)
command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match
"\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string=
arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p
t))) (when file-p (setq file-p nil) (incf file-count) (setq arg
(expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg))
(noninteractive (find-file arg)) (t (find-file-other-window arg)))
(when line (goto-line line)(setq line nil)))))))
command-line-1()
# bind (command-line-args-left)
(let ((command-line-args-left (cdr command-line-args))) (let
((debugger (quote early-error-handler)) (debug-on-error t)) (setq
command-line-args-left (command-line-early command-line-args-left))
(when (eq system-type (quote windows-nt)) (declare-fboundp
(init-mswindows-at-startup))) (when (featurep (quote toolbar))
(init-toolbar-location)) (when (featurep(quote mule)) (declare-fboundp
(init-mule-at-startup))) (if (featurep (quote toolbar)) (if (featurep
(quote infodock)) (require (quote id-x-toolbar)) (init-toolbar)))
(when (and initial-window-system (not noninteractive)) (funcall
(intern (concat "init-" (symbol-name initial-window-system) "-win"))))
(frame-initialize)) (startup-initialize-custom-faces) (if(featurep
(quote menubar)) (init-menubar-at-startup)) (load-init-file)
(with-current-buffer (get-buffer "*scratch*") (erase-buffer)
(set-buffer-modified-p nil) (when (eq major-mode (quote
fundamental-mode)) (funcall initial-major-mode))
(font-lock-set-defaults)) (when (and (eq (quote tty) (console-type))
(not (noninteractive))) (load-terminal-library)) (command-line-1)
(setq inhibit-warning-display nil) (when (noninteractive) (kill-emacs
t)))
command-line()
(if (noninteractive) (command-line) (condition-case data
(command-line) (t (setq error-data data))))
# bind (error-data)
(let (error-data) (if (noninteractive) (command-line)
(condition-case data (command-line) (t (setq error-data data)))) (setq
default-directory (abbreviate-file-name default-directory)) (if
auto-save-list-file-prefix (setq auto-save-list-file-name
(expand-file-name (format "%s%d-%s" auto-save-list-file-prefix
(emacs-pid) (system-name))))) (run-hooks (quoteemacs-startup-hook))
(and term-setup-hook (run-hooks (quote term-setup-hook))) (setq
term-setup-hook nil) (frame-notice-user-settings) (when
window-setup-hook (run-hooks (quote window-setup-hook))) (setq
window-setup-hook nil) (if error-data (signal-error (car error-data)
(cdr error-data))))
(if command-line-processed (message "Back to top level.") (setq
command-line-processed t) (when (getenv "XEMACSDEBUG") (eval (read
(getenv "XEMACSDEBUG")))) (let ((value (user-home-directory))) (if
(and value (< (length value) (length default-directory)) (equal
(file-attributes default-directory) (file-attributes value))) (setq
default-directory (file-name-as-directory value)))) (setq
default-directory (abbreviate-file-name
default-directory))(initialize-xemacs-paths)
(startup-set-invocation-environment) (startup-setup-paths
(cond(inhibit-all-packages t) (inhibit-early-packages (quote (early)))
(t nil)) nil) (startup-setup-paths-warning) (startup-load-autoloads)
(let (error-data) (if (noninteractive) (command-line) (condition-case
data (command-line) (t (setq error-data data)))) (setq
default-directory (abbreviate-file-name default-directory)) (if
auto-save-list-file-prefix (setq auto-save-list-file-name
(expand-file-name (format "%s%d-%s" auto-save-list-file-prefix
(emacs-pid) (system-name))))) (run-hooks (quote emacs-startup-hook))
(and term-setup-hook (run-hooks (quote term-setup-hook))) (setq
term-setup-hook nil) (frame-notice-user-settings) (when
window-setup-hook (run-hooks (quote window-setup-hook))) (setq
window-setup-hook nil)(if error-data (signal-error (car error-data)
(cdr error-data)))) (if load-user-init-file-p
(maybe-migrate-user-init-file)))
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
>>Error occurred processing /opt/src/xemacs-21.5-2008-05-14/lisp/subr.el: Wrong number ofarguments: (lambda (form a list &rest keys) "
Common Lisp lambda list:
(member* FORM A LIST &rest KEYS)
" (let* nil (block member* (let ((test (and (= (length keys) 2) (eq
(car keys) :test) (cl-const-expr-val (nth 1 keys))))) (cond ((eq test
(quote eq)) (list (quote memq) a list)) ((eq test (quote equal)) (list
(quote member) a list)) ((or (null keys) (eq test (quote eql))) (if
(eq (cl-const-expr-p a) t) (list (if (floatp-safe (cl-const-expr-val
a)) (quote member) (quote memq)) a list) (if (eq (cl-const-expr-p
list) t) (let ((p (cl-const-expr-val list)) (mb nil) (mq nil)) (if
(not (cdr p)) (and p (list (quote eql) a (list (quote quote)(car p))))
(while p (if (floatp-safe (car p)) (setq mb t) (or (integerp (car p))
(symbolp(car p)) (setq mq t))) (setq p (cdr p))) (if (not mb) (list
(quote memq) a list) (if (notmq) (list (quote member) a list) form))))
form))) (t form)))))), 2
Done
make[1]: *** [NEEDTODUMP] Error 1
make[1]: Leaving directory `/media/sda4/build/xemacs-21.5-2008-05-14/src'
make: *** [src] Error 2
Here are the contents of my Installation file:
uname -a: Linux samwise 2.6.24-16-generic #1 SMP Thu Apr 10 13:23:42
UTC 2008 i686 GNU/Linux
../../src/xemacs-21.5-2008-05-14/configure
'--prefix=/opt/xemacs-21.5-2008-05-14' '--with-cflags= -Os -ip'
'--with-site-prefixes=/opt' '--with-infopath=/opt/info'
'--disable-dialogs' '--disable-widgets' '--with-sound=native'
'--with-package-path=/opt/site-packages::/opt/xemacs-packages'
'--disable-pdump' '--enable-bignum=gmp' '--with-default-eol-detection'
'--with-optimization' '--disable-debug' '--disable-assertions'
'--disable-error-checking' '--with-cflags-warning='
'--with-cflags-optimization=' '--with-cflags-debugging='
'--disable-mule' 'CC=icc'
XEmacs 21.5-b28 "fuki" configured for `i686-pc-linux'.
Compilation Environment and Installation Defaults:
Source code location: /opt/src/xemacs-21.5-2008-05-14
Installation prefix: /opt/xemacs-21.5-2008-05-14
Additional prefixes: /opt
Operating system description file: `s/linux.h'
Machine description file: `m/intel386.h'
Compiler version: Intel(R) C Compiler for
applications running on IA-32, Version 10.0 Build 20070809 Package
ID: l_cc_c_10.0.026
- Compiler command: icc -Os -ip
libc version: GNU libc 2.7-10ubuntu3 (Debian)
Relocating allocator for buffers: no
GNU version of malloc: yes
- Using Doug Lea's new malloc from the GNU C Library.
Linking with `-z nocombreloc'.
- Consider configuring with --enable-pdump.
Window System:
Compiling in support for the X window system:
- X Windows headers location:
- X Windows libraries location:
- Handling WM_COMMAND properly.
Using Lucid menubars.
Using Lucid scrollbars.
TTY:
Compiling in support for ncurses.
Images:
Compiling in support for GIF images (builtin).
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Compiling in support for TIFF images.
Sound:
Compiling in support for sound (native).
Databases:
Internationalization:
Mail:
Compiling in support for "file" mail spool file locking method.
Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for dynamic shared object modules.
Compiling in support for more number types using the GNU MP library.
Using the new GC mark algorithms (KKCC).
WARNING: ---------------------------------------------------------
WARNING: The new algorithms are experimental. They are enabled by
WARNING: default for this release. Use `--disable-kkcc' to
WARNING: turn it off.
WARNING: ---------------------------------------------------------
HTH,
Vin
More information about the XEmacs-Beta
mailing list