4:03 a.m.
I can't build current CVS. Make says:
Bootstrapping from temacs...
Loading bytecomp...
Loading /usr/src/xemacs/build-21.5/lisp/auto-autoloads...
Loading /usr/src/xemacs/build-21.5/lisp/mule/auto-autoloads... # bind
(stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)
# (unwind-protect ...)
signal(error ("Already loaded"))
(cond ((stringp datum) (signal (quote error) (list (apply (quote format) datum args))))
((defined-error-p datum) (signal datum args)) (t (error (quote invalid-argument)
"datum not string or error symbol" datum)))
# bind (args datum)
cerror("Already loaded")
apply(cerror "Already loaded" nil)
(while t (apply (quote cerror) datum args))
# bind (args datum)
error("Already loaded")
byte-code("..." [featurep src-autoloads error "Already loaded"] 2)
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("/usr/src/xemacs/build-21.5/lisp/mule/auto-autoloads" nil t nil
binary)
(if (and (> (length filename) 0) (setq path (locate-file filename load-path (and (not
nosuffix) (quote (".elc" ".el" "")))))) (load-internal file
noerror nomessage nosuffix (let ((elc (equalp ".elc" (substring path -4)))) (or
(and (not elc) coding-system-for-read) (let ((codesys
(find-coding-system-magic-cookie-in-file path))) (when codesys (setq codesys (intern
codesys)) (if (find-coding-system codesys) codesys))) (if elc (quote binary) (or
(find-file-coding-system-for-read-from-filename path)
buffer-file-coding-system-for-read))))) (if (and (> (length filename) 0) (locate-file
filename module-load-path (and (not nosuffix) (quote (".ell" ".dll"
".so" ""))))) (if (featurep (quote modules)) (let
((load-modules-quietly nomessage)) (declare-fboundp (load-module filename))) (signal
(quote file-error) (quote ("This XEmacs does not support modules")))) (and (null
noerror) (signal (quote file-error) (list "Cannot open load file" filename)))))
(if handler (funcall handler (quote load) filename noerror nomessage nosuffix) (if (and
(> (length filename) 0) (setq path (locate-file filename load-path (and (not nosuffix)
(quote (".elc" ".el" "")))))) (load-internal file noerror
nomessage nosuffix (let ((elc (equalp ".elc" (substring path -4)))) (or (and
(not elc) coding-system-for-read) (let ((codesys (find-coding-system-magic-cookie-in-file
path))) (when codesys (setq codesys (intern codesys)) (if (find-coding-system codesys)
codesys))) (if elc (quote binary) (or (find-file-coding-system-for-read-from-filename
path) buffer-file-coding-system-for-read))))) (if (and (> (length filename) 0)
(locate-file filename module-load-path (and (not nosuffix) (quote (".ell"
".dll" ".so" ""))))) (if (featurep (quote modules)) (let
((load-modules-quietly nomessage)) (declare-fboundp (load-module filename))) (signal
(quote file-error) (quote ("This XEmacs does not support modules")))) (and (null
noerror) (signal (quote file-error) (l!
ist "Cannot open load file" filename))))))
# bind (path handler filename)
(let* ((filename (substitute-in-file-name file)) (handler (find-file-name-handler
filename (quote load))) (path nil)) (if handler (funcall handler (quote load) filename
noerror nomessage nosuffix) (if (and (> (length filename) 0) (setq path (locate-file
filename load-path (and (not nosuffix) (quote (".elc" ".el"
"")))))) (load-internal file noerror nomessage nosuffix (let ((elc (equalp
".elc" (substring path -4)))) (or (and (not elc) coding-system-for-read) (let
((codesys (find-coding-system-magic-cookie-in-file path))) (when codesys (setq codesys
(intern codesys)) (if (find-coding-system codesys) codesys))) (if elc (quote binary) (or
(find-file-coding-system-for-read-from-filename path)
buffer-file-coding-system-for-read))))) (if (and (> (length filename) 0) (locate-file
filename module-load-path (and (not nosuffix) (quote (".ell" ".dll"
".so" ""))))) (if (featurep (quote modules)) (let
((load-modules-quietly nomessage)) (declare-fboundp (load-module filename))) (signal (!
quote file-error) (quote ("This XEmacs does not support modules")))) (and (null
noerror) (signal (quote file-error) (list "Cannot open load file"
filename)))))))
# bind (nosuffix nomessage noerror file)
load("/usr/src/xemacs/build-21.5/lisp/mule/auto-autoloads" nil t)
(if (featurep (quote mule)) (load (expand-file-name (file-name-sans-extension
autoload-file-name) (file-name-as-directory (expand-file-name "mule"
lisp-directory))) nil t))
(when (featurep (quote mule)) (load (expand-file-name (file-name-sans-extension
autoload-file-name) (file-name-as-directory (expand-file-name "mule"
lisp-directory))) nil t))
(progn (load (expand-file-name (file-name-sans-extension autoload-file-name)
lisp-directory) nil t) (when (featurep (quote mule)) (load (expand-file-name
(file-name-sans-extension autoload-file-name) (file-name-as-directory (expand-file-name
"mule" lisp-directory))) nil t)))
(if (and (not inhibit-autoloads) lisp-directory) (progn (load (expand-file-name
(file-name-sans-extension autoload-file-name) lisp-directory) nil t) (when (featurep
(quote mule)) (load (expand-file-name (file-name-sans-extension autoload-file-name)
(file-name-as-directory (expand-file-name "mule" lisp-directory))) nil t))))
(when (and (not inhibit-autoloads) lisp-directory) (load (expand-file-name
(file-name-sans-extension autoload-file-name) lisp-directory) nil t) (when (featurep
(quote mule)) (load (expand-file-name (file-name-sans-extension autoload-file-name)
(file-name-as-directory (expand-file-name "mule" lisp-directory))) nil t)))
startup-load-autoloads()
funcall(startup-load-autoloads)
# 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 (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)))
(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
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)))))
(cond ((null command-line-args-left) (unless noninteractive (run-hooks (quote
term-setup-hook)) (setq term-setup-hook nil) (when (string= (buffer-name)
"*scratch*") (unless (or inhibit-startup-message (input-pending-p)) (let (tmout
circ-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)) (setq circ-tmout (display-splash-frame)) (or nil (goto-char
(point-min))) (sit-for 0) (setq unread-command-event (next-command-event))) (when tmout
(disable-timeout tmout)) (when circ-tmout (disable-timeout circ-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))
(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)) (if (featurep (quote mule)) (declare-fboundp
(init-mule-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))) (when (and (eq (quote tty)
(conso!
le-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 (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 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) (let ((debug-paths (or debug-paths (and (getenv
"EMACSDEBUGPATHS") t)))) (setq emacs-roots (paths-find-emacs-roots
invocation-directory invocation-name (function paths-emacs-root-p))) (setq
emacs-data-roots (paths-find-emacs-roots invocation-directory invocation-name (function
paths-emacs-data-root-p))) (if debug-paths (princ (format "emacs-roots:\n%S\n"
emacs-roots) (quote external-debugging-output))) (if (null emacs-roots)
(startup-find-roots-warning)) (startup-setup-pa!
ths emacs-roots emacs-data-roots user-init-directory (cond (inhibit-all-packages t)
(inhibit-early-packages (quote (early))) (t nil)) inhibit-site-lisp debug-paths nil)
(startup-setup-paths-warning)) (startup-load-autoloads) (let (error-data) (if (noninter
xemacs exiting.
active) (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 ...)
Already loadedmake[1]: *** [update-elc.stamp] Error 255
make[1]: Leaving directory `/usr/src/xemacs/build-21.5/src'
make: *** [src] Error 2
I configured with these options, on a Pentium IV running RedHat 7.3:
--prefix=/usr/local/test
--mail-locking=flock
--with-pop
--with-mule
--with-xfs
--with-dialogs=athena
--with-widgets=athena
--pdump
--with-wmcommand
--debug
--error-checking=all
--use-kkcc
--cflags="-march=i686 -O2 -g -pipe"
Is this a known problem?
--
Jerry James
http://www.ittc.ku.edu/~james/