Failure for `make install'

This error has been occuring for about two weeks. After a successful make of all the XEmacs parts, when I issue the command make install I get (after a bit of elc creation and such): Wrote /Users/royar/src/xemacs/lisp/mule/custom-load.elc Building finder database ... ./xemacs -no-packages -batch -eval "(setq finder-compile-keywords-quiet t)" \ -l finder -f finder-compile-keywords Delete excess backup versions of /Users/royar/src/xemacs/lisp/finder-inf.el? (y or n) Any reply leads to Fatal error: assertion failed, file charset.h, line 456, abort() make[1]: *** [/Users/royar/src/xemacs/src/../lisp/finder-inf.el] Abort trap make: *** [src] Error 2 Then, when I try `make install' again, I eventually get Compiling /Users/royar/src/xemacs/lisp/.#finder-inf.el... # bind (stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error) # (unwind-protect ...) signal(file-error ("Opening input file" "No such file or directory" "/Users/royar/src/xemacs/lisp/.#finder-inf.el")) byte-code("..." [visit filename err run-hook-with-args insert-file-contents-error-hook signal] 5) # bind (err return-val coding-system used-codesys replace end start visit filename) insert-file-contents("/Users/royar/src/xemacs/lisp/.#finder-inf.el") # (unwind-protect ...) # bind (byte-compile-current-file target-file input-buffer output-buffer byte-compile-dest-file load filename) byte-compile-file("/Users/royar/src/xemacs/lisp/.#finder-inf.el") (if (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file)) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file)) # bind (file-c) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file))) (if (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file)))) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file)))) (while --dolist-temp--101215 (setq file (car --dolist-temp--101215)) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file)))) (setq --dolist-temp--101215 (cdr --dolist-temp--101215))) # bind (file --dolist-temp--101215) (let ((--dolist-temp--101215 files) file) (while --dolist-temp--101215 (setq file (car --dolist-temp--101215)) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file)))) (setq --dolist-temp--101215 (cdr --dolist-temp--101215))) nil) # (catch --cl-block-nil-- ...) (catch (quote --cl-block-nil--) (let ((--dolist-temp--101215 files) file) (while --dolist-temp--101215 (setq file (car --dolist-temp--101215)) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file)))) (setq --dolist-temp--101215 (cdr --dolist-temp--101215))) nil)) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--dolist-temp--101215 files) file) (while --dolist-temp--101215 (setq file (car --dolist-temp--101215)) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file)))) (setq --dolist-temp--101215 (cdr --dolist-temp--101215))) nil))) (block nil (let ((--dolist-temp--101215 files) file) (while --dolist-temp--101215 (setq file (car --dolist-temp--101215)) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file)))) (setq --dolist-temp--101215 (cdr --dolist-temp--101215))) nil)) (dolist (file files) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file))))) (if compile-stage-p (dolist (file files) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file))))) (let (deleted) (dolist (file files) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (member file-c files) (file-newer-than-file-p file file-c)) (message "Removing out-of-date %s" file-c) (delete-file file-c) (push file-c deleted))))) (dolist (file-c files) (when (string-match "\\.elc$" file-c) (let ((file (replace-in-string file-c "c$" ""))) (when (not (member file files)) (message "Removing %s; no corresponding .el" file-c) (delete-file file-c) (push file-c deleted))))) (setq files (set-difference files deleted :test (quote equal))))) # bind (files) (let ((files (or (gethash dir dirfiles-table) (directory-files dir t nil t)))) (if compile-stage-p (dolist (file files) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file))))) (let (deleted) (dolist (file files) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (member file-c files) (file-newer-than-file-p file file-c)) (message "Removing out-of-date %s" file-c) (delete-file file-c) (push file-c deleted))))) (dolist (file-c files) (when (string-match "\\.elc$" file-c) (let ((file (replace-in-string file-c "c$" ""))) (when (not (member file files)) (message "Removing %s; no corresponding .el" file-c) (delete-file file-c) (push file-c deleted))))) (setq files (set-difference files deleted :test (quote equal))))) (puthash dir files dirfiles-table) (dolist (dir (directory-files dir t nil t (quote dir))) (when (not (member (file-name-nondirectory dir) update-elc-ignored-dirs)) (do-update-elc-2 dir compile-stage-p seen)))) (if (member (file-truename dir) seen) nil (push (file-truename dir) seen) (let ((files (or (gethash dir dirfiles-table) (directory-files dir t nil t)))) (if compile-stage-p (dolist (file files) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file))))) (let (deleted) (dolist (file files) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (member file-c files) (file-newer-than-file-p file file-c)) (message "Removing out-of-date %s" file-c) (delete-file file-c) (push file-c deleted))))) (dolist (file-c files) (when (string-match "\\.elc$" file-c) (let ((file (replace-in-string file-c "c$" ""))) (when (not (member file files)) (message "Removing %s; no corresponding .el" file-c) (delete-file file-c) (push file-c deleted))))) (setq files (set-difference files deleted :test (quote equal))))) (puthash dir files dirfiles-table) (dolist (dir (directory-files dir t nil t (quote dir))) (when (not (member (file-name-nondirectory dir) update-elc-ignored-dirs)) (do-update-elc-2 dir compile-stage-p seen))))) (unless (member (file-truename dir) seen) (push (file-truename dir) seen) (let ((files (or (gethash dir dirfiles-table) (directory-files dir t nil t)))) (if compile-stage-p (dolist (file files) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (not (member file-c files)) (let (ignore) (mapcar (function (lambda (regexp) (if (string-match regexp (file-name-nondirectory file)) (setq ignore t)))) update-elc-ignored-files) (not ignore))) (byte-compile-file file))))) (let (deleted) (dolist (file files) (when (string-match "\\.el$" file) (let ((file-c (concat file "c"))) (when (and (member file-c files) (file-newer-than-file-p file file-c)) (message "Removing out-of-date %s" file-c) (delete-file file-c) (push file-c deleted))))) (dolist (file-c files) (when (string-match "\\.elc$" file-c) (let ((file (replace-in-string file-c "c$" ""))) (when (not (member file files)) (message "Removing %s; no corresponding .el" file-c) (delete-file file-c) (push file-c deleted))))) (setq files (set-difference files deleted :test (quote equal))))) (puthash dir files dirfiles-table) (dolist (dir (directory-files dir t nil t (quote dir))) (when (not (member (file-name-nondirectory dir) update-elc-ignored-dirs)) (do-update-elc-2 dir compile-stage-p seen))))) # bind (seen compile-stage-p dir) do-update-elc-2("/Users/royar/src/xemacs/src/../lisp" t nil) # bind (dir) (let ((dir (car command-line-args-left))) (load "autoload") (load "bytecomp") (load "byte-optimize") (when (file-exists-p (expand-file-name "REBUILD_AUTOLOADS" invocation-directory)) (let ((generated-autoload-file (expand-file-name "auto-autoloads.el" dir)) (autoload-package-name "auto")) (update-autoload-files (list dir) nil t) (byte-recompile-file generated-autoload-file 0)) (when (featurep (quote mule)) (let* ((muledir (expand-file-name "../lisp/mule" (file-truename dir))) (generated-autoload-file (expand-file-name "auto-autoloads.el" muledir)) (autoload-package-name "mule")) (update-autoload-files (list muledir) nil t) (byte-recompile-file generated-autoload-file 0)))) (when (featurep (quote modules)) (let* ((moddir (expand-file-name "../modules" (file-truename dir))) (generated-autoload-file (expand-file-name "auto-autoloads.el" moddir)) (autoload-package-name "modules")) (update-autoload-files (delete (concat (file-name-as-directory moddir) ".") (delete (concat (file-name-as-directory moddir) "..") (directory-files moddir t nil nil 0))) t) (byte-recompile-file generated-autoload-file 0))) (load (expand-file-name "auto-autoloads" lisp-directory)) (when (featurep (quote mule)) (load (expand-file-name "mule/auto-autoloads" lisp-directory))) (message "Removing old or spurious .elcs in directory tree `%s'..." dir) (do-update-elc-2 dir nil nil) (message "Removing old or spurious .elcs in directory tree `%s'...done" dir) (message "Recompiling updated .els in directory tree `%s'..." dir) (do-update-elc-2 dir t nil) (message "Recompiling updated .els in directory tree `%s'...done" dir) (load "cus-dep") (Custom-make-dependencies dir) (byte-recompile-file (expand-file-name "custom-load.el" dir) 0) (when (featurep (quote mule)) (Custom-make-dependencies (expand-file-name "mule" dir)) (byte-recompile-file (expand-file-name "mule/custom-load.el" dir) 0))) batch-update-elc-2() # bind (arg) command-line-do-funcall("-f") # bind (dir file-count line end-of-options file-p arg tem) command-line-1() # bind (command-line-args-left) command-line() # bind (error-data) normal-top-level() # (condition-case ... . error) # (catch top-level ...) Issuing the commands rm /Users/royar/src/xemacs/lisp/*.el.~* rm /Users/royar/src/xemacs/lisp/mule/*.el.~* BEFORE running install fixes the errors.