[Failure] XEmacs 21.5-b20 "cilantro" (+CVS-20050311) i586-pc-win32

Failing to build due to this: Bootstrapping from temacs... Loading bytecomp.el... Compiling c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\bytecomp.el... Loading byte-optimize.el... Wrote c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\bytecomp.elc Compiling c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\byte-optimize.el... KKCC backtrace overflow, adjust KKCC_BT_STACK_SIZE. Maybe it is a loop? Fatal error: assertion failed, file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\alloc.c, line 3382, ABORT() Fatal error. Your files have been auto-saved. Use `M-x recover-session' to recover them. Your version of XEmacs was distributed with a PROBLEMS file that may describe your crash, and with luck a workaround. Please check it first, but do report the crash anyway. Please report this bug by invoking M-x report-emacs-bug, or by selecting `Send Bug Report' from the Help menu. If that won't work, send ordinary email to `crashes(a)xemacs.org&#39;. *MAKE SURE* to include this entire output from this crash, especially including the Lisp backtrace, as well as the XEmacs configuration from M-x describe-installation (or equivalently, the file `Installation' in the top of the build tree). If you are fortunate enough to have some sort of debugging aid installed on your system, for example Visual C++, and you can get a C stack backtrace, *please* include it, as it will make our life far easier. Lisp backtrace follows: # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) ("(in garbage collection)" "[internal]") # bind (form) byte-compile-file-form((defun byte-compile-log-lap-1 (format &rest args) (if (aref byte-code-vector 0) (error "The old version of the disassembler is loaded. Reload new-bytecomp as well.")) (byte-compile-log-1 (apply (quote format) format (let (c a) (mapcar (function (lambda (arg) (if (not (consp arg)) (if (and (symbolp arg) (string-match "^byte-" (symbol-name arg))) (intern (substring (symbol-name arg) 5)) arg) (if (integerp (setq c (car arg))) (error "non-symbolic byte-op %s" c)) (if (eq c (quote TAG)) (setq c arg) (setq a (cond ((memq c byte-goto-ops) (car (cdr (cdr arg)))) ((memq c byte-constref-ops) (car (cdr arg))) (t (cdr arg)))) (setq c (symbol-name c)) (if (string-match "^byte-." c) (setq c (intern (substring c 5))))) (if (eq c (quote constant)) (setq c (quote const))) (if (and (eq (cdr arg) 0) (not (memq c (quote (unbind call const))))) c (format "(%s %s)" c a))))) args)))))) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) # (unwind-protect ...) (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)) (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))))() # (unwind-protect ...) call-with-condition-handler((lambda (error-info) (byte-compile-report-error error-info)) (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))))) # (unwind-protect ...) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-forward "\n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-c! ompile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1)))))))) # bind (byte-compile-warnings-beginning) (let ((byte-compile-warnings-beginning (if (boundp (quote byte-compile-warnings-beginning)) byte-compile-warnings-beginning (point-max byte-compile-log-buffer)))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-forward "\n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to! -buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-compile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1))))))))) # bind (byte-compile-point-max-prev byte-compile-log-buffer) (let* ((byte-compile-log-buffer (get-buffer-create "*Compile-Log*")) (byte-compile-point-max-prev (point-max byte-compile-log-buffer))) (byte-compile-log-file) (defvar byte-compile-warnings-beginning) (let ((byte-compile-warnings-beginning (if (boundp (quote byte-compile-warnings-beginning)) byte-compile-warnings-beginning (point-max byte-compile-log-buffer)))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-fo! rward "\n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-compile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1)))))))))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (prog1 (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (memq (quote unused-vars) byte-compile-warnings) (byte-compile-warn-about-unused-variables))) # bind (byte-compile-file-domain byte-compile-warnings byte-compile-dynamic-docstrings byte-compile-dynamic byte-compile-emacs19-compatibility byte-optimize byte-compile-verbose byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-unresolved-functions byte-compile-autoload-environment byte-compile-function-environment byte-compile-macro-environment) (let ((byte-compile-macro-environment (copy-alist byte-compile-initial-macro-environment)) (byte-compile-function-environment nil) (byte-compile-autoload-environment nil) (byte-compile-unresolved-functions nil) (byte-compile-bound-variables nil) (byte-compile-free-references nil) (byte-compile-free-assignments nil) (byte-compile-verbose byte-compile-verbose) (byte-optimize byte-optimize) (byte-compile-emacs19-compatibility byte-compile-emacs19-compatibility) (byte-compile-dynamic byte-compile-dynamic) (byte-compile-dynamic-docstrings byte-compile-dynamic-docstrings) (byte-compile-warnings (if (eq byte-compile-warnings t) byte-compile-default-warnings byte-compile-warnings)) (byte-compile-file-domain nil)) (prog1 (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq ! overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (memq (quote unused-vars) byte-compile-warnings) (byte-compile-warn-about-unused-variables)))) (byte-compile-close-variables (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) # bind (byte-compile-output byte-compile-maxdepth byte-compile-depth byte-compile-tag-number byte-compile-variables byte-compile-constants print-level print-length case-fold-search float-output-format byte-compile-outbuffer) (let (byte-compile-outbuffer (float-output-format nil) (case-fold-search nil) (print-length nil) (print-level nil) (byte-compile-constants nil) (byte-compile-variables nil) (byte-compile-tag-number 0) (byte-compile-depth 0) (byte-compile-maxdepth 0) (byte-compile-output nil)) (byte-compile-close-variables (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-function! s nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (not eval) byte-compile-outbuffer (let (form) (while (condition-case nil (progn (setq form (read byte-compile-outbuffer)) t) (end-of-file nil)) (eval form))) (kill-buffer byte-compile-outbuffer) nil)) # bind (eval filename byte-compile-inbuffer) byte-compile-from-buffer(#<buffer " *Compiler Input*"> "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean\\lisp\\byte-optimize.el") (setq output-buffer (byte-compile-from-buffer input-buffer filename)) # bind (byte-compile-dest-file output-buffer input-buffer target-file byte-compile-current-file) (let ((byte-compile-current-file filename) target-file input-buffer output-buffer byte-compile-dest-file) (setq target-file (byte-compile-dest-file filename)) (setq byte-compile-dest-file target-file) (save-excursion (setq input-buffer (get-buffer-create " *Compiler Input*")) (set-buffer input-buffer) (erase-buffer) (insert-file-contents filename) (let ((buffer-file-name filename) (default-major-mode (quote emacs-lisp-mode)) (enable-local-eval nil)) (normal-mode) (setq filename buffer-file-name))) (setq byte-compiler-error-flag nil) (setq output-buffer (byte-compile-from-buffer input-buffer filename)) (if byte-compiler-error-flag nil (if byte-compile-verbose (message "Compiling %s...done" filename)) (kill-buffer input-buffer) (save-excursion (set-buffer output-buffer) (goto-char (point-max)) (insert "\n") (setq target-file (byte-compile-dest-file filename)) (unless byte-compile-overwrite-file (ignore-file-errors (delete-file target-file))) (if (file-writable-p target-file)! (write-region 1 (point-max) target-file) (signal (quote file-error) (list "Opening output file" (if (file-exists-p target-file) "cannot overwrite file" "directory not writable or nonexistent") target-file))) (or byte-compile-overwrite-file (condition-case nil (set-file-modes target-file (file-modes filename)) (error nil))) (kill-buffer (current-buffer))) (if (and byte-compile-generate-call-tree (or (eq t byte-compile-generate-call-tree) (y-or-n-p (format "Report call tree for %s? " filename)))) (save-excursion (display-call-tree filename))) (if load (load target-file)) t)) # bind (load filename) byte-compile-file("c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean\\lisp\\byte-optimize.el") (progn (byte-compile-file file) t) # (condition-case ... . ((error (princ ">>Error occurred processing ") (princ file) (princ ": ") (if (fboundp (quote display-error)) (display-error err nil) (princ (or (get (car err) (quote error-message)) (car err))) (mapcar (function (lambda (x) (princ " ") (prin1 x))) (cdr err))) (princ "\n") nil))) (condition-case err (progn (byte-compile-file file) t) (error (princ ">>Error occurred processing ") (princ file) (princ ": ") (if (fboundp (quote display-error)) (display-error err nil) (princ (or (get (car err) (quote error-message)) (car err))) (mapcar (function (lambda (x) (princ " ") (prin1 x))) (cdr err))) (princ "\n") nil)) # bind (file) batch-byte-compile-1("c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean\\lisp\\byte-optimize.el") (if (file-directory-p (expand-file-name file-to-process)) (let ((files (directory-files file-to-process)) source dest) (while files (if (and (string-match emacs-lisp-file-regexp (car files)) (not (auto-save-file-name-p (car files))) (setq source (expand-file-name (car files) file-to-process)) (setq dest (byte-compile-dest-file source)) (file-exists-p dest) (file-newer-than-file-p source dest)) (if (null (batch-byte-compile-1 source)) (setq error t))) (setq files (cdr files))) (null error)) (batch-byte-compile-1 file-to-process)) # bind (file-to-process error) (let (error (file-to-process (car command-line-args-left))) (setq command-line-args-left (cdr command-line-args-left)) (if (file-directory-p (expand-file-name file-to-process)) (let ((files (directory-files file-to-process)) source dest) (while files (if (and (string-match emacs-lisp-file-regexp (car files)) (not (auto-save-file-name-p (car files))) (setq source (expand-file-name (car files) file-to-process)) (setq dest (byte-compile-dest-file source)) (file-exists-p dest) (file-newer-than-file-p source dest)) (if (null (batch-byte-compile-1 source)) (setq error t))) (setq files (cdr files))) (null error)) (batch-byte-compile-1 file-to-process))) batch-byte-compile-one-file() funcall(batch-byte-compile-one-file) # 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) (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)) (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) (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 (ema! cs-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 ...) NMAKE: fatal error U1077: '"c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src\i"' : return code '0xc0000005' Stop. Compilation exited abnormally with code 2 at Sat Mar 12 10:31:04 Below follows the usual build-report stuff. Best regards, Adrian OS version: Microsoft Windows XP [Version 5.1.2600] OS: Windows_NT XEmacs 21.5-b20 "cilantro" (+CVS-20050311) configured for `i586-pc-win32'. Building XEmacs using "NMAKE". Building XEmacs using make flags " ". Building XEmacs in source tree "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean". For src, using compiler "cl -nologo -W3 -DSTRICT -Zi -O2 -G5 -Ob2 -MDd -c -TP -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\inc -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src -I"c:\Hacking\libs4xemacs\xpm-3.4k" -I"c:\Hacking\libs4xemacs\xpm-3.4k\lib" -I"c:\Hacking\libs4xemacs\libpng-1.0.2" -I"c:\Hacking\libs4xemacs\zlib" -I"c:\Hacking\libs4xemacs\tiff-v3.4\libtiff" -I"c:\Hacking\libs4xemacs\jpeg-6b" -I"c:\Hacking\libs4xemacs\compface" -I"c:\Hacking\libs4xemacs\zlib" -DHAVE_MS_WINDOWS -DHAVE_XPM -DFOR_MSW -DHAVE_GIF -DHAVE_PNG -DHAVE_TIFF -DHAVE_JPEG -DHAVE_XFACE -DHAVE_ZLIB -DHAVE_MENUBARS -DHAVE_SCROLLBARS -DHAVE_TOOLBARS -DHAVE_WIDGETS -DHAVE_DIALOGS -DHAVE_NATIVE_SOUND -DMULE -DUSE_UNION_TYPE -DPDUMP -DUSE_KKCC -DSYSTEM_MALLOC -DERROR_CHECK_ALL -DDEBUG_XEMACS -D_DEBUG -DWIN32_LEAN_AND_MEAN -DWIN32_NATIVE -Demacs -DHAVE_CONFIG_H -DPATH_VERSION=\"21.5-b20\" -DPATH_PROGNAME=\"xemacs\" -DEMACS_VERSION=\"21.5-b20\" -DEMACS_PROGNAME=\"xemacs! \" -DSTACK_TRACE_EYE_CATCHER=xemacs_21_5_b20_i586_pc_win32 -DPATH_PREFIX=\"..\" -DEMACS_MAJOR_VERSION=21 -DEMACS_MINOR_VERSION=5 -DEMACS_BETA_VERSION=20 -DXEMACS_CODENAME=\""cilantro"\" -DXEMACS_EXTRA_NAME=\"(+CVS-20050311)\" -DEMACS_CONFIGURATION=\"i586-pc-win32\" -DPATH_PACKAGEPATH=\""~\\.xemacs;;c:\\Program Files\\XEmacs\\site-packages;c:\\Program Files\\XEmacs\\mule-packages;c:\\Program Files\\XEmacs\\xemacs-packages"\"". For lib-src, using compiler "cl -nologo -W3 -DSTRICT -Zi -O2 -G5 -Ob2 -MDd -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src -DHAVE_CONFIG_H -DWIN32_NATIVE". Compiling as C++. Installing XEmacs in "c:\\Program Files\\XEmacs\\XEmacs-21.5-b20". Package path is "~\\.xemacs;;c:\\Program Files\\XEmacs\\site-packages;c:\\Program Files\\XEmacs\\mule-packages;c:\\Program Files\\XEmacs\\xemacs-packages". Compiling in support for Microsoft Windows native GUI. Compiling in international (MULE) support. Compiling in support for XPM images. Compiling in support for GIF images. Compiling in support for PNG images. Compiling in support for TIFF images. Compiling in support for JPEG images. Compiling in support for X-Face message headers. Compiling in support for GZIP compression/decompression. Compiling in support for toolbars. Compiling in support for dialogs. Compiling in support for widgets. Compiling in support for native sounds. Using union type for Lisp object storage. NOTE: --------------------------------------------------------- NOTE: This tends to trigger compiler bugs, especially when combined NOTE: with MULE and ERROR_CHECKING. Crashes in pdump have recently NOTE: been observed using Visual C++ in combination with union type, NOTE: MULE, and ERROR_CHECKING. NOTE: --------------------------------------------------------- Using portable dumper. Using system malloc. Using DLL version of C runtime library. Compiling in extra internal error-checking. NOTE: --------------------------------------------------------- NOTE: Compiling in support for runtime error-checking. NOTE: XEmacs will run noticeably more slowly as a result. NOTE: Error-checking is on by default for XEmacs beta releases. NOTE: --------------------------------------------------------- Compiling in debugging support (no slowdown). Compiling with optimization. Using new experimental GC algorithms. \s-+.+\)*\|^Note:\|Installing\|[Ff]ile(s) copied\|\s-+tests\s-+\|^[A-Z] [^ ]+$\|^Wrong number of arguments:\|^ \*\* " cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\ Compilation started at Sat Mar 12 10:13:54 2005 +0100 (W. Europe Standard Time) ? gunzip-error.txt ? nt/xemacs-21.5-clean-make-all-texinfo-error.err cvs server: Updating tests M tests/ChangeLog M tests/automated/region-tests.el Compilation finished at Sat Mar 12 10:14:57 \s-+.+\)*\|^Note:\|Installing\|[Ff]ile(s) copied\|\s-+tests\s-+\|^[A-Z] [^ ]+$\|^Wrong number of arguments:\|^ \*\* " cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\ nmake /f xemacs.mak install Compilation started at Sat Mar 12 10:19:01 2005 +0100 (W. Europe Standard Time) Installing XEmacs in "c:\\Program Files\\XEmacs\\XEmacs-21.5-b20". Compiling in extra internal error-checking. NOTE: Compiling in support for runtime error-checking. 1 file(s) copied. 1 File(s) copied 1 File(s) copied Using load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\) Using module-load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\modules) Fatal error: assertion failed, file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src\alloc.c, line 3382, ABORT() Fatal error. byte-compile-file-form((defun byte-compile-log-lap-1 (format &rest args) (if (aref byte-code-vector 0) (error "The old version of the disassembler is loaded. Reload new-bytecomp as well.")) (byte-compile-log-1 (apply (quote format) format (let (c a) (mapcar (function (lambda (arg) (if (not (consp arg)) (if (and (symbolp arg) (string-match "^byte-" (symbol-name arg))) (intern (substring (symbol-name arg) 5)) arg) (if (integerp (setq c (car arg))) (error "non-symbolic byte-op %s" c)) (if (eq c (quote TAG)) (setq c arg) (setq a (cond ((memq c byte-goto-ops) (car (cdr (cdr arg)))) ((memq c byte-constref-ops) (car (cdr arg))) (t (cdr arg)))) (setq c (symbol-name c)) (if (string-match "^byte-." c) (setq c (intern (substring c 5))))) (if (eq c (quote constant)) (setq c (quote const))) (if (and (eq (cdr arg) 0) (not (memq c (quote (unbind call const))))) c (format "(%s %s)" c a))))) args)))))) call-with-condition-handler((lambda (error-info) (byte-compile-report-error error-info)) (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-forward "\n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-c! ompile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1)))))))) # bind (byte-compile-warnings-beginning) (let ((byte-compile-warnings-beginning (if (boundp (quote byte-compile-warnings-beginning)) byte-compile-warnings-beginning (point-max byte-compile-log-buffer)))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-forward "\n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to! -buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-compile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1))))))))) (let* ((byte-compile-log-buffer (get-buffer-create "*Compile-Log*")) (byte-compile-point-max-prev (point-max byte-compile-log-buffer))) (byte-compile-log-file) (defvar byte-compile-warnings-beginning) (let ((byte-compile-warnings-beginning (if (boundp (quote byte-compile-warnings-beginning)) byte-compile-warnings-beginning (point-max byte-compile-log-buffer)))) (unwind-protect (call-with-condition-handler (function (lambda (error-info) (byte-compile-report-error error-info))) (function (lambda nil (progn (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil)))))) (with-current-buffer byte-compile-log-buffer (let ((show-begin (progn (goto-char byte-compile-point-max-prev) (skip-chars-fo! rward "\n") (point)))) (if temp-buffer-show-function (let ((show-buffer (get-buffer-create "*Compile-Log-Show*"))) (with-current-buffer show-buffer (setq buffer-read-only nil) (erase-buffer)) (copy-to-buffer show-buffer show-begin (point-max)) (when (< byte-compile-warnings-beginning (point-max)) (funcall temp-buffer-show-function show-buffer))) (when (< byte-compile-warnings-beginning (point-max)) (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char show-begin) (recenter 1)))))))))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (prog1 (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (memq (quote unused-vars) byte-compile-warnings) (byte-compile-warn-about-unused-variables))) # bind (byte-compile-file-domain byte-compile-warnings byte-compile-dynamic-docstrings byte-compile-dynamic byte-compile-emacs19-compatibility byte-optimize byte-compile-verbose byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-unresolved-functions byte-compile-autoload-environment byte-compile-function-environment byte-compile-macro-environment) (let ((byte-compile-macro-environment (copy-alist byte-compile-initial-macro-environment)) (byte-compile-function-environment nil) (byte-compile-autoload-environment nil) (byte-compile-unresolved-functions nil) (byte-compile-bound-variables nil) (byte-compile-free-references nil) (byte-compile-free-assignments nil) (byte-compile-verbose byte-compile-verbose) (byte-optimize byte-optimize) (byte-compile-emacs19-compatibility byte-compile-emacs19-compatibility) (byte-compile-dynamic byte-compile-dynamic) (byte-compile-dynamic-docstrings byte-compile-dynamic-docstrings) (byte-compile-warnings (if (eq byte-compile-warnings t) byte-compile-default-warnings byte-compile-warnings)) (byte-compile-file-domain nil)) (prog1 (progn (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq ! overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (memq (quote unused-vars) byte-compile-warnings) (byte-compile-warn-about-unused-variables)))) (byte-compile-close-variables (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-functions nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (let (byte-compile-outbuffer (float-output-format nil) (case-fold-search nil) (print-length nil) (print-level nil) (byte-compile-constants nil) (byte-compile-variables nil) (byte-compile-tag-number 0) (byte-compile-depth 0) (byte-compile-maxdepth 0) (byte-compile-output nil)) (byte-compile-close-variables (save-excursion (setq byte-compile-outbuffer (set-buffer (get-buffer-create " *Compiler Output*"))) (erase-buffer) (setq case-fold-search nil) (and filename (not eval) (byte-compile-insert-header filename byte-compile-inbuffer byte-compile-outbuffer)) (setq overwrite-mode (quote overwrite-mode-binary))) (displaying-byte-compile-warnings (save-excursion (set-buffer byte-compile-inbuffer) (goto-char 1) (while (progn (while (progn (skip-chars-forward " \n") (looking-at ";")) (forward-line 1)) (not (eobp))) (byte-compile-file-form (read byte-compile-inbuffer))) (byte-compile-flush-pending) (byte-compile-warn-about-unresolved-functions) (setq byte-compile-unresolved-function! s nil))) (save-excursion (set-buffer byte-compile-outbuffer) (goto-char (point-min)))) (if (not eval) byte-compile-outbuffer (let (form) (while (condition-case nil (progn (setq form (read byte-compile-outbuffer)) t) (end-of-file nil)) (eval form))) (kill-buffer byte-compile-outbuffer) nil)) (let ((byte-compile-current-file filename) target-file input-buffer output-buffer byte-compile-dest-file) (setq target-file (byte-compile-dest-file filename)) (setq byte-compile-dest-file target-file) (save-excursion (setq input-buffer (get-buffer-create " *Compiler Input*")) (set-buffer input-buffer) (erase-buffer) (insert-file-contents filename) (let ((buffer-file-name filename) (default-major-mode (quote emacs-lisp-mode)) (enable-local-eval nil)) (normal-mode) (setq filename buffer-file-name))) (setq byte-compiler-error-flag nil) (setq output-buffer (byte-compile-from-buffer input-buffer filename)) (if byte-compiler-error-flag nil (if byte-compile-verbose (message "Compiling %s...done" filename)) (kill-buffer input-buffer) (save-excursion (set-buffer output-buffer) (goto-char (point-max)) (insert "\n") (setq target-file (byte-compile-dest-file filename)) (unless byte-compile-overwrite-file (ignore-file-errors (delete-file target-file))) (if (file-writable-p target-file)! (write-region 1 (point-max) target-file) (signal (quote file-error) (list "Opening output file" (if (file-exists-p target-file) "cannot overwrite file" "directory not writable or nonexistent") target-file))) (or byte-compile-overwrite-file (condition-case nil (set-file-modes target-file (file-modes filename)) (error nil))) (kill-buffer (current-buffer))) (if (and byte-compile-generate-call-tree (or (eq t byte-compile-generate-call-tree) (y-or-n-p (format "Report call tree for %s? " filename)))) (save-excursion (display-call-tree filename))) (if load (load target-file)) t)) # (condition-case ... . ((error (princ ">>Error occurred processing ") (princ file) (princ ": ") (if (fboundp (quote display-error)) (display-error err nil) (princ (or (get (car err) (quote error-message)) (car err))) (mapcar (function (lambda (x) (princ " ") (prin1 x))) (cdr err))) (princ "\n") nil))) (condition-case err (progn (byte-compile-file file) t) (error (princ ">>Error occurred processing ") (princ file) (princ ": ") (if (fboundp (quote display-error)) (display-error err nil) (princ (or (get (car err) (quote error-message)) (car err))) (mapcar (function (lambda (x) (princ " ") (prin1 x))) (cdr err))) (princ "\n") nil)) (if (file-directory-p (expand-file-name file-to-process)) (let ((files (directory-files file-to-process)) source dest) (while files (if (and (string-match emacs-lisp-file-regexp (car files)) (not (auto-save-file-name-p (car files))) (setq source (expand-file-name (car files) file-to-process)) (setq dest (byte-compile-dest-file source)) (file-exists-p dest) (file-newer-than-file-p source dest)) (if (null (batch-byte-compile-1 source)) (setq error t))) (setq files (cdr files))) (null error)) (batch-byte-compile-1 file-to-process)) # bind (file-to-process error) (let (error (file-to-process (car command-line-args-left))) (setq command-line-args-left (cdr command-line-args-left)) (if (file-directory-p (expand-file-name file-to-process)) (let ((files (directory-files file-to-process)) source dest) (while files (if (and (string-match emacs-lisp-file-regexp (car files)) (not (auto-save-file-name-p (car files))) (setq source (expand-file-name (car files) file-to-process)) (setq dest (byte-compile-dest-file source)) (file-exists-p dest) (file-newer-than-file-p source dest)) (if (null (batch-byte-compile-1 source)) (setq error t))) (setq files (cdr files))) (null error)) (batch-byte-compile-1 file-to-process))) (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) (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))))))) (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))) (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) (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 (ema! cs-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))) # (condition-case ... . error) NMAKE: fatal error U1077: '"c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src\i"' : return code '0xc0000005' Compilation exited abnormally with code 2 at Sat Mar 12 10:31:04 -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/