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/