Re: [Success/check temacs crash] XEmacs 21.5-b15 "celery" (+CVS-20030910) i586-pc-win32

APA> Stephen, do you need more info on the ccl problem? SJT> ------------------------------------------------------------------------ SJT> cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5\nt\ SJT> nmake /f xemacs.mak check-temacs SJT> Compilation started at Thu Sep 11 10:19:57 2003 +0200 (CES) SJT> Using load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5\lisp\) SJT> Using module-load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5\modules) SJT> Requiring mucs-error... SJT> (file-error "Cannot open load file" "ccl") SJT> ------------------------------------------------------------------------ SJT> Something is trying to drag mule-ucs in, and since mule-ucs is SJT> incompatible with 21.5, it's not explicitly the core code. SJT> mule-ccl, which provides 'ccl, gets loaded via dumped-lisp.el. So SJT> this require must be happening very early. I bet that what is SJT> happening is that dumped-lisp is loading "unicode" and because you SJT> have packages in load-path, you're getting mule-ucs/unicode.el, not SJT> core unicode.el. Dead-on, Stephen! Here are some relevant parts from the check-temacs log: Loading c:\Program Files\XEmacs\mule-packages\lisp\mule-ucs\unicode.elc... Requiring mucs... Requiring mucs-error... Requiring mucs-type... Requiring mucs-ccl... Requiring trans-util... *** Error in XEmacs initialization (file-error "Cannot open load file" "ccl") *** Backtrace really-early-error-handler((file-error "Cannot open load file" "ccl")) signal(file-error ("Cannot open load file" "ccl")) # bind (path handler filename nosuffix nomessage noerror file) load("ccl" nil require nil) # (unwind-protect ...) require(ccl) <48 lines deleted by Adrian Aichner> pureload("unicode") (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 (car files)) (unless (pureload file) (external-debugging-output "Fatal error during load, aborting") (kill-emacs 1)) (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 Installation-string (save-current-buffer (set-buffer (get-buffer-create (generate-new-buffer-name " *temp*"))) (fset (quote format-decode) (function (lambda (f l &optional v) l))) (insert-file-contents-internal (expand-file-name "Installation" build-root)) (fmakunbound (quote format-decode)) (prog1 (buffer-substring) (kill-buffer (current-buffer))))) (setq load-path (list source-lisp)) (setq module-load-path (list (expand-file-name "modules" build-root))) (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 1)) (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 ...) <5 lines deleted by Adrian Aichner> # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load("c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5\\lisp/loadup.el") # (condition-case ... . error) # (catch top-level ...) *** Killing XEmacs SJT> Put the -no-packages back in your check-temacs arguments. OK, I just reverted that part of my patch to xeamcs.mak. Thanks Stephen! Adrian -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/