Um, help. I've built 21.4.6 on my hp-ux 10.20 box successfully, but
now I wanted a debugable version to try and track now the hangs I see
on my machine. I re-ran config, changing only --cflags to -g; did
make clean; and then make. Compiles and links fine. The initial load
fails with
Loading /net/jupiter/user/pub/mothra/tools/xemacs/xemacs-21.4.6/src/../lisp/update-elc.el...
Loading very-early-lisp...
Loading find-paths.el...
Loading packages.el...
Loading setup-paths.el...
Loading dump-paths.el...
Loading /net/jupiter/user/pub/mothra/tools/xemacs/xemacs-21.4.6/hpux10.20/lisp/dumped-lisp.el...
Loading loadup-el.el...
Loading loadup.el...
Using load-path (/net/jupiter/user/pub/mothra/tools/xemacs/xemacs-21.4.6/hpux10.20/lisp)
Using module-load-path (/net/jupiter/user/pub/mothra/tools/xemacs/xemacs-21.4.6/hpux10.20/modules)
Loading dumped-lisp.el...
Loading backquote.el...
Loading bytecomp-runtime.el...
Loading find-paths.el...
Loading packages.el...
Loading setup-paths.el...
Loading dump-paths.el...
Loading subr.el...
Loading replace.el...
Loading version.el...
Loading cl.el...
Loading cl-extra.el...
Loading cl-seq.el...
Loading widget.el...
Loading custom.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 faces.el...*** Error in XEmacs initialization
(error "Invalid specifier domain")
*** Backtrace
really-early-error-handler((error "Invalid specifier domain"))
signal(error ("Invalid specifier domain"))
(cond ((stringp datum) (signal ... ...)) ((defined-error-p datum) (signal datum args)) (t (error ... "datum not string or error symbol" datum)))
# bind (args datum)
cerror("Invalid specifier domain")
apply(cerror "Invalid specifier domain" nil)
(while t (apply (quote cerror) datum args))
# bind (args datum)
error("Invalid specifier domain")
(if (not (valid-specifier-domain-p domain)) (error "Invalid specifier domain"))
# bind (domain face2 face1)
face-equal(underline default nil)
(not (face-equal face (quote default) domain))
# bind (domain face)
face-differs-from-default-p(underline)
(or (face-differs-from-default-p (quote underline)) (set-face-underline-p (quote underline) t (quote global) (quote ...)))
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load("/net/jupiter/user/pub/mothra/tools/xemacs/xemacs-21.4.6/hpux10.20/lisp/faces.el")
(prog1 (load full-path) (unless (memq ... internal-error-checking) (garbage-collect)))
(if full-path (prog1 (load full-path) (unless ... ...)) (external-debugging-output (format "\nLoad file %s: not found\n" file)) nil)
# bind (full-path)
(let ((full-path ...)) (if full-path (prog1 ... ...) (external-debugging-output ...) nil))
# bind (file)
pureload("faces")
(if (pureload file) nil (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1))
(unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1))
(while (setq file (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) (setq files (cdr files)))
# bind (file files)
(let ((files preloaded-file-list) file) (while (setq file ...) (unless ... ... ...) (setq files ...)) (when (not ...) (defun toolbar-button-p ... "No toolbar support." nil) (defun toolbar-specifier-p ... "No toolbar support." nil)) (fmakunbound (quote pureload)))
(lambda nil (setq Installation-string (save-current-buffer ... ... ... ... ...)) (let (...) (setq load-path ...) (setq module-load-path ...)) (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*")) (load "very-early-lisp" nil t) (let (...) (setq load-path ...)) (setq load-warn-when-source-newer t load-warn-when-source-only t) (defun pureload (file) (let ... ...)) (load (expand-file-name "../lisp/dumped-lisp.el")) (let (... file) (while ... ... ...) (when ... ... ...) (fmakunbound ...)) (packages-load-package-dumped-lisps late-package-load-path))()
# (unwind-protect ...)
call-with-condition-handler(really-early-error-handler (lambda nil (setq Installation-string (save-current-buffer ... ... ... ... ...)) (let (...) (setq load-path ...) (setq module-load-path ...)) (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*")) (load "very-early-lisp" nil t) (let (...) (setq load-path ...)) (setq load-warn-when-source-newer t load-warn-when-source-only t) (defun pureload (file) (let ... ...)) (load (expand-file-name "../lisp/dumped-lisp.el")) (let (... file) (while ... ... ...) (when ... ... ...) (fmakunbound ...)) (packages-load-package-dumped-lisps late-package-load-path)))
# bind (gc-cons-threshold)
(let ((gc-cons-threshold ...)) (call-with-condition-handler (quote really-early-error-handler) (function ...)) (setq preloaded-file-list (mapcar ... preloaded-file-list)) (setq load-warn-when-source-newer t load-warn-when-source-only nil) (setq debugger (quote debug)) (when (member "no-site-file" command-line-args) (setq site-start-file nil)) (when (load "site-load" t) (garbage-collect)) (when purify-flag (message "Finding pointers to doc strings...") (Snarf-documentation "DOC") (message "Finding pointers to doc strings...done") (Verify-documentation)) (when (stringp site-start-file) (load "site-init" t)) (setq current-load-list nil) (garbage-collect) (buffer-enable-undo "*scratch*"))
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load("loadup.el")
# bind (purify-flag load-ignore-elc-files)
(let ((load-ignore-elc-files t) (purify-flag nil)) (load "loadup.el"))
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load("loadup-el.el")
(progn (setq command-line-args (append ... update-elc-files-to-compile)) (load "loadup-el.el"))
(if update-elc-files-to-compile (progn (setq command-line-args ...) (load "loadup-el.el")) (condition-case nil (delete-file "../src/NOBYTECOMPILE") (file-error nil)))
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load("/net/jupiter/user/pub/mothra/tools/xemacs/xemacs-21.4.6/src/../lisp/update-elc.el")
# (condition-case ... . error)
# (catch top-level ...)
*** Killing XEmacs
*** Error exit code 255
Stop.
*** Error exit code 1
Stop.
I haven't touched faces.el -- what could have gone wrong?
gary