Cannot dump current hg 21.5 xeamacs code

After pulling the recent hg-based code with the changes changeset: 4542:9b3f398ebfb7 parent: 4538:112f6ed44299 user: Stephen J. Turnbull <stephen(a)xemacs.org&gt; date: Mon Dec 29 21:39:37 2008 +0900 summary: Add terminating newline to .hgignore. changeset: 4543:fe64f1351cbd user: Stephen J. Turnbull <stephen(a)xemacs.org&gt; date: Mon Dec 29 21:42:40 2008 +0900 summary: Fix my syntax errors. changeset: 4544:dc578683fddd user: Stephen J. Turnbull <stephen(a)xemacs.org&gt; date: Mon Dec 29 21:49:01 2008 +0900 summary: Fix my syntax errors. changeset: 4545:8775d3b54874 parent: 4544:dc578683fddd parent: 4541:0c410b5b387a user: Stephen J. Turnbull <stephen(a)xemacs.org&gt; date: Mon Dec 29 23:36:00 2008 +0900 summary: Merge after pull. changeset: 4546:44129f301385 tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Tue Dec 30 14:22:29 2008 +0000 summary: Make functions in frame.el more general. The code configures and compiles fine, but it fails when trying to load the elisp files for the dump. Here is the output right after temacs is linked and loads: ./temacs -nd -no-packages -batch -l /Users/royar/src/xemacs-hg/src/../lisp/update-elc.el Loading /Users/royar/src/xemacs-hg/src/../lisp/update-elc.el... Loading find-paths.el... Loading packages.el... Loading setup-paths.el... Loading /Users/royar/src/xemacs-hg/lisp/dumped-lisp.el... Wrote /Users/royar/src/xemacs-hg/src/NEEDTODUMP Loading loadup-el.el... Loading loadup.el... Using load-path (/Users/royar/src/xemacs-hg/lisp/) Using module-load-path (/Users/royar/src/xemacs-hg/modules) Loading dumped-lisp.el... Loading backquote.el... Loading bytecomp-runtime.el... Loading find-paths.el... Loading packages.el... Loading setup-paths.el... Loading subr.el... Loading post-gc.el... Loading replace.el... Loading version.el... Loading cl.el... Loading cl-extra.el... Requiring obsolete.el... Loading cl-seq.el... Loading widget.el... Loading custom.el... Loading cl-macs.el... Requiring cus-face.el... Requiring font.el... Requiring disp-table.el... Loading cus-start.el... Loading cmdloop.el... Loading keymap.el... Loading syntax.el... Loading device.el... Loading console.el... Loading obsolete.el... Loading specifier.el... Loading frame.el... Loading fontconfig.el... Loading x-faces.el... Loading faces.el... Loading cl-macs.el... Loading glyphs.el... Loading objects.el... Loading extents.el... Loading events.el... Loading hash-table.el... Loading text-props.el... Loading process.el... Loading multicast.el... Loading map-ynp.el... Loading undo-stack.el... Loading window.el... Loading window-xemacs.el... Loading resize-minibuffer.el... Loading simple.el... Loading newcomment.el... Loading keydefs.el... *** Error in XEmacs initialization (wrong-type-argument hash-table-p nil) *** Backtrace really-early-error-handler((wrong-type-argument hash-table-p nil)) define-key(#<keymap global-map size 543 0x2aeb> (control shift tab) backward-other-window) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load("/Users/royar/src/xemacs-hg/lisp/keydefs.el") (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (if full-path (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil) # bind (full-path) (let ((full-path (locate-file file load-path (if load-ignore-elc-files (quote (".el" "")) (quote (".elc" ".el" "")))))) (if full-path (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil)) # bind (file) pureload("keydefs") (if (pureload file) nil (external-debugging-output "Fatal error during load, aborting") (kill-emacs ?\^A)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs ?\^A)) (while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs ?\^A)) (setq files (cdr files))) # bind (file files) (let ((files preloaded-file-list) file) (while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs ?\^A)) (setq files (cdr files))) (when (not (featurep (quote toolbar))) (defun toolbar-button-p (obj) "No toolbar support." nil) (defun toolbar-specifier-p (obj) "No toolbar support." nil)) (fmakunbound (quote pureload))) (lambda nil (setq load-path (list source-lisp)) (setq module-load-path (list (expand-file-name "modules" build-directory))) (external-debugging-output (format "\nUsing load-path %s" load-path)) (external-debugging-output (format "\nUsing module-load-path %s" module-load-path)) (buffer-disable-undo (get-buffer "*scratch*")) (let ((temp-path (expand-file-name "." (car load-path)))) (setq load-path (nconc (mapcar (function (lambda (i) (concat i "/"))) (directory-files temp-path t "^[^-.]" nil (quote dirs-only))) (cons (file-name-as-directory temp-path) load-path)))) (setq load-warn-when-source-only t) (defun pureload (file) (let ((full-path (locate-file file load-path (if load-ignore-elc-files (quote (".el" "")) (quote (".elc" ".el" "")))))) (if full-path (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil))) (load (expand-file-name "dumped-lisp.el" source-lisp)) (let ((files preloaded-file-list) file) (while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs ?\^A)) (setq files (cdr files))) (when (not (featurep (quote toolbar))) (defun toolbar-button-p (obj) "No toolbar support." nil) (defun toolbar-specifier-p (obj) "No toolbar support." nil)) (fmakunbound (quote pureload))) (packages-load-package-dumped-lisps late-package-load-path))() # (unwind-protect ...) call-with-condition-handler(really-early-error-handler (lambda nil (setq load-path (list source-lisp)) (setq module-load-path (lis t (expand-file-name "modules" build-directory))) (external-debugging-output (format "\nUsing load-path %s" load-path)) (external-debugging-output (format "\nUsing module-load-path %s" module-load-path)) (buffer-disable-undo (get-buffer "*scratch*")) (let ((temp-path (expand-file-name "." (car load-path)))) (setq load-path (nconc (mapcar (function (lambda (i) (concat i "/"))) (directory-files temp-path t "^[^-.]" nil (quote dirs-only))) (cons (file-name-as-directory temp-path) load-path)))) (setq load-warn-when-source-only t) (defun pureload (file) (let ((full-path (locate-file file load-path (if load-ignore-elc-files (quote (".el" "")) (quote (".elc" ".el" "")))))) (if full-path (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil))) (load (expand-file-name "dumped-lisp.el" source-lisp)) (let ((files preloaded-file-list) file) (while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs ?\^A)) (setq files (cdr files))) (when (not (featurep (quote toolbar))) (defun toolbar-button-p (obj) "No toolbar support." nil) (defun toolbar-specifier-p (obj) "No toolbar support." nil)) (fmakunbound (quote pureload))) (packages-load-package-dumped-lisps late-package-load-path))) # bind (stack-trace-on-error) (let ((stack-trace-on-error nil)) (call-with-condition-handler (quote really-early-error-handler) (function (lambda nil (setq load-path (list source-lisp)) (setq module-load-path (list (expand-file-name "modules" build-directory))) (external-debugging-output (format "\nUsing load-path %s" load-path)) (external-debugging-output (format "\nUsing module-load-path %s" module-load-path)) (buffer-disable-undo (get-buffer "*scratch*")) (let ((temp-path (expand-file-name "." (car load-path)))) (setq load-path (nconc (mapcar (function (lambda (i) (concat i "/"))) (directory-files temp-path t "^[^-.]" nil (quote dirs-only))) (cons (file-name-as-directory temp-path) load-path)))) (setq load-warn-when-source-only t) (defun pureload (file) (let ((full-path (locate-file file load-path (if load-ignore-elc-files (quote (".el" "")) (quote (".elc" ".el" "")))))) (if full-path (prog1 (load full-path) (unless (memq (quote quick-build) internal-error-checking) (garbage-collect))) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil))) (load (expand-file-name "dumped-lisp.el" source-lisp)) (let ((files preloaded-file-list) file) (while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs ?\^A)) (setq files (cdr files))) (when (not (featurep (quote toolbar))) (defun toolbar-button-p (obj) "No toolbar support." nil) (defun toolbar-specifier-p (obj) "No toolbar support." nil)) (fmakunbound (quote pureload))) (packages-load-package-dumped-lisps late-package-load-path))))) # bind (gc-cons-threshold) (let ((gc-cons-threshold (if (and purify-flag (not (memq (quote quick-build) internal-error-checking))) ?~ Fatal error: assertion failed, file charset.h, line 440, ABORT() make[1]: *** [NEEDTODUMP] Abort trap make[1]: *** Deleting file `NEEDTODUMP' make: *** [src] Error 2 -- Dr. Robert Delius Royar Associate Professor of English Morehead State University Morehead, Kentucky _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta