CVS broken

On Linux, I get this crash on `make check'. This must be due to a very recent checkin to CVS (last couple of days). Responsible party please fix. I thought Yoshiki was the likely suspect, but right now this one looks like the one: 2000-08-31 Dan Holmsand <dan(a)eyebee.com&gt; * buffer.c: Make find-file-compare-truenames default to true on windows. * realpath.c (win32_abs_start): (cygwin_readlink): (win32_readlink): New functions. (xrealpath): Return really real filenames on windows. * fileio.c (Ffile_truename): Make file-truename work on windows. given the occurrence of find-file-compare-truenames below. ==> make MAKE=make -j 1 check ./xemacs -batch -l /project/xemacs/ws/lat/src/../tests/automated/test-harness.el -f batch-test-emacs /project/xemacs/ws/lat/src/../tests/automated Testing /project/xemacs/ws/lat/tests/automated/base64-tests.el... base64-tests.el: 1234 of 1234 (100%) tests successful. Testing /project/xemacs/ws/lat/tests/automated/byte-compiler-tests.el... byte-compiler-tests.el: 102 of 102 (100%) tests successful. Testing /project/xemacs/ws/lat/tests/automated/c-tests.el... c-tests.el: 2 of 2 (100%) tests successful. Testing /project/xemacs/ws/lat/tests/automated/case-tests.el... case-tests.el: 1148 of 1148 (100%) tests successful. Testing /project/xemacs/ws/lat/tests/automated/ccl-tests.el... ccl-tests.el: 4570 of 4570 (100%) tests successful. Testing /project/xemacs/ws/lat/tests/automated/database-tests.el... database-tests.el: 10 of 10 (100%) tests successful. Testing /project/xemacs/ws/lat/tests/automated/hash-table-tests.el... hash-table-tests.el: 9866 of 9866 (100%) tests successful. Testing /project/xemacs/ws/lat/tests/automated/lisp-tests.el... lisp-tests.el: 3572 of 3572 (100%) tests successful. Testing /project/xemacs/ws/lat/tests/automated/md5-tests.el... md5-tests.el: 56 of 56 (100%) tests successful. Testing /project/xemacs/ws/lat/tests/automated/mule-tests.el...Fatal error: assertion failed, file /project/xemacs/ws/lat/src/mule-charset.h, line 496, RECORD_TYPEP (obj, lrecord_type_charset) Fatal error (6). Your files have been auto-saved. Use `M-x recover-session' to recover them. If you have access to the PROBLEMS file that came with your version of XEmacs, please check to see if your crash is described there, as there may be a workaround available. Otherwise, please report this bug by running the send-pr script included with XEmacs, or selecting `Send Bug Report' from the help menu. As a last resort send ordinary email to `crashes(a)xemacs.org&#39;. *MAKE SURE* to include the information in the command M-x describe-installation. If at all possible, *please* try to obtain a C stack backtrace; it will help us immensely in determining what went wrong. To do this, locate the core file that was produced as a result of this crash (it's usually called `core' and is located in the directory in which you started the editor, or maybe in your home directory), and type gdb /local/xemacs/build/md9-lat/src/xemacs core then type `where' when the debugger prompt comes up. (If you don't have GDB on your system, you might have DBX, or XDB, or SDB. A similar procedure should work for all of these. Ask your system administrator if you need more help.) Lisp backtrace follows: # (unwind-protect ...) # bind (find-file-compare-truenames) write-region-internal(1 41 "/tmp/martin/~~~~2mGf_r" nil nil nil iso-2022-8) # bind (func coding-system lockname visit append filename end start) write-region(1 41 "/tmp/martin/~~~~2mGf_r") (progn (fset (quote append-message) (function* ...)) (Assert (not ...)) (Assert (not ...)) (write-region (point-min) (point-max) name1) (Assert (file-exists-p name1)) (when (fboundp ...) (make-symbolic-link name1 name2) (Assert ...) (Assert ...) (Assert ...)) (ignore-file-errors (delete-file name1) (delete-file name2))) # (unwind-protect ...) (unwind-protect (progn (fset ... ...) (Assert ...) (Assert ...) (write-region ... ... name1) (Assert ...) (when ... ... ... ... ...) (ignore-file-errors ... ...)) (if --letf-bound--88644 (fset ... --letf-save--88643) (fmakunbound ...))) # bind (--letf-save--88643 --letf-bound--88644) (let* ((--letf-bound--88644 ...) (--letf-save--88643 ...)) (unwind-protect (progn ... ... ... ... ... ... ...) (if --letf-bound--88644 ... ...))) (letf ((... ...)) (Assert (not ...)) (Assert (not ...)) (write-region (point-min) (point-max) name1) (Assert (file-exists-p name1)) (when (fboundp ...) (make-symbolic-link name1 name2) (Assert ...) (Assert ...) (Assert ...)) (ignore-file-errors (delete-file name1) (delete-file name2))) (letf* ((... ...)) (Assert (not ...)) (Assert (not ...)) (write-region (point-min) (point-max) name1) (Assert (file-exists-p name1)) (when (fboundp ...) (make-symbolic-link name1 name2) (Assert ...) (Assert ...) (Assert ...)) (ignore-file-errors (delete-file name1) (delete-file name2))) (flet ((append-message ... nil)) (Assert (not ...)) (Assert (not ...)) (write-region (point-min) (point-max) name1) (Assert (file-exists-p name1)) (when (fboundp ...) (make-symbolic-link name1 name2) (Assert ...) (Assert ...) (Assert ...)) (ignore-file-errors (delete-file name1) (delete-file name2))) # bind (file-name-coding-system name2 name1 prefix latin2-string scaron) (let* ((scaron ...) (latin2-string ...) (prefix ...) (name1 ...) (name2 ...) (file-name-coding-system ...)) (flet (...) (Assert ...) (Assert ...) (write-region ... ... name1) (Assert ...) (when ... ... ... ... ...) (ignore-file-errors ... ...))) (progn (macrolet (...) (fillarray-test ascii latin-iso8859-1) (fillarray-test ascii latin-iso8859-2) (fillarray-test latin-iso8859-1 ascii) (fillarray-test latin-iso8859-2 ascii)) (let (...) (aset string 0 ...) (Assert ...)) (Assert (coding-system-p ...)) (Assert (coding-system-canonical-name-p ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias ... ...)) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee ...)) (define-coding-system-alias (quote mule-tests-alias) (quote binary)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (define-coding-system-alias (quote mule-tests-alias) (get-coding-system ...)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (define-coding-system-alias (quote nested-mule-tests-alias) (quote mule-tests-alias)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias ... ...)) (Check-Error-Message error "No such coding system" (define-coding-system-alias ... ...)) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias ... ...)) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (Assert (coding-system-p ...)) (Assert (coding-system-canonical-name-p ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias ... ...)) (Check-Error-Messag e error "Symbol is not a coding system alias" (coding-system-aliasee ...)) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) (quote iso-8859-7)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (coding-system-alias-p ...)) (Assert (coding-system-alias-p ...)) (Assert (coding-system-alias-p ...)) (define-coding-system-alias (quote mule-tests-alias) (get-coding-system ...)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (coding-system-alias-p ...)) (Assert (coding-system-alias-p ...)) (Assert (coding-system-alias-p ...)) (Assert (eq ... ...)) (define-coding-system-alias (quote nested-mule-tests-alias) (quote mule-tests-alias)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (coding-system-alias-p ...)) (Assert (coding-system-alias-p ...)) (Assert (coding-system-alias-p ...)) (Assert (eq ... ...)) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias ... ...)) (Check-Error-Message error "No such coding system" (define-coding-system-alias ... ...)) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias ... ...)) (define-coding-system-alias (quote mule-tests-alias) nil) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (defun charset-char-string (charset) (let ... ... ...)) (Assert (charset-char-string ...)) (aset (make-string 9003 ?\?) 1 (make-char ... 77)) (let (... ...) (loop for j from 0 below ... do ...) (loop for k in ... do ...)) (let (... ...) (loop for j from ... downto 0 do ...) (loop for k in ... do ...)) (let (... ...) (loop for j from 0 below ... do ...) (loop for k in ... do ...)) (let (... ...) (loop for j from ... downto 0 do ...) (loop for k in ... do ...)) (le t* (... ... ... ... ... ...) (flet ... ... ... ... ... ... ...)) (let* (...) (loop for code in ... do ...) (Assert ...) (Check-Error wrong-type-argument ...))) (if (featurep (quote mule)) (progn (macrolet ... ... ... ... ...) (let ... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" ...) (Check-Error-Message error "Symbol is not a coding system alias" ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (Check-Error-Message error "No such coding system" ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (define-coding-system-alias ... nil) (define-coding-system-alias ... nil) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" ...) (Check-Error-Message error "Symbol is not a coding system alias" ...) (define-coding-system-alias ... nil) (define-coding-system-alias ... nil) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (Check-Error-Message error "No such coding system" ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (define-coding-system-alias ... nil) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (defun charset-char-string ... ...) (Assert ...) (aset ... 1 ...) (let ... ... ...) (let ... ... ...) (let ... ... ...) (let ... ... ...) (let* ... ...) (let* ... ... ... ...))) (when (featurep (quote mule)) (macrolet (...) (fillarray-test ascii latin-iso8859-1) (fillarray-test ascii latin-iso8859-2) (fillarray-test latin-iso8859-1 ascii) (fillarray-test latin-iso8859-2 ascii)) (let (...) (aset string 0 ...) (Assert ...)) (Assert (coding-system-p ...)) (Assert (coding-system-canonical-name-p ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias ... ...)) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee ...)) (define-coding-system-alias (quote mule-tests-alias) (quote binary)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (define-coding-system-alias (quote mule-tests-alias) (get-coding-system ...)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (define-coding-system-alias (quote nested-mule-tests-alias) (quote mule-tests-alias)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias ... ...)) (Check-Error-Message error "No such coding system" (define-coding-system-alias ... ...)) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias ... ...)) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (Assert (coding-system-p ...)) (Assert (coding-system-canonical-name-p ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" (define-coding-system-alias ... .. .)) (Check-Error-Message error "Symbol is not a coding system alias" (coding-system-aliasee ...)) (define-coding-system-alias (quote nested-mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) nil) (define-coding-system-alias (quote mule-tests-alias) (quote iso-8859-7)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (coding-system-alias-p ...)) (Assert (coding-system-alias-p ...)) (Assert (coding-system-alias-p ...)) (define-coding-system-alias (quote mule-tests-alias) (get-coding-system ...)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (coding-system-alias-p ...)) (Assert (coding-system-alias-p ...)) (Assert (coding-system-alias-p ...)) (Assert (eq ... ...)) (define-coding-system-alias (quote nested-mule-tests-alias) (quote mule-tests-alias)) (Assert (coding-system-alias-p ...)) (Assert (not ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (coding-system-alias-p ...)) (Assert (coding-system-alias-p ...)) (Assert (coding-system-alias-p ...)) (Assert (eq ... ...)) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias ... ...)) (Check-Error-Message error "No such coding system" (define-coding-system-alias ... ...)) (Check-Error-Message error "Attempt to create a coding system alias loop" (define-coding-system-alias ... ...)) (define-coding-system-alias (quote mule-tests-alias) nil) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (defun charset-char-string (charset) (let ... ... ...)) (Assert (charset-char-string ...)) (aset (make-string 9003 ?\?) 1 (make-char ... 77)) (let (... ...) (loop for j from 0 below ... do ...) (loop for k in ... do ...)) (let (... ...) (loop for j from ... downto 0 do ...) (loop for k in ... do ...)) (let (... ...) (loop for j from 0 below ... do ...) (loop for k in ... do ...)) (let (... ...) (loop for j from ... downto 0 do ...) (loop fo r k in ... do ...)) (let* (... ... ... ... ... ...) (flet ... ... ... ... ... ... ...)) (let* (...) (loop for code in ... do ...) (Assert ...) (Check-Error wrong-type-argument ...))) (lambda nil (defvar passes) (defvar assertion-failures) (defvar no-error-failures) (defvar wrong-error-failures) (defvar missing-message-failures) (defvar other-failures) (defvar unexpected-test-suite-failure) (defvar trick-optimizer) (defun test-chars (&optional for-test-harness) "Insert all characters in a buffer, to see if XEmacs will crash.\nThis is done by creating a string with all the legal characters\nin [0, 2^19) range, inserting it into the buffer, and checking\nthat the buffer's contents are equivalent to the string.\n\nIf FOR-TEST-HARNESS is specified, a temporary buffer is used, and\nthe Assert macro checks for correctness." (let ... ... ...)) (test-chars t) (when (featurep ...) (macrolet ... ... ... ... ...) (let ... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" ...) (Check-Error-Message error "Symbol is not a coding system alias" ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (Check-Error-Message error "No such coding system" ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (define-coding-system-alias ... nil) (define-coding-system-alias ... nil) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" ...) (Check-Error-Message error "Symbol is not a coding system alias" ...) (define-coding-system-alias ... nil) (define-coding-system-alias ... nil) (define-coding-system-alias ... ...) (Assert ...) (Asse rt ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (Check-Error-Message error "No such coding system" ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (define-coding-system-alias ... nil) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (defun charset-char-string ... ...) (Assert ...) (aset ... 1 ...) (let ... ... ...) (let ... ... ...) (let ... ... ...) (let ... ... ...) (let* ... ...) (let* ... ... ... ...)))() funcall((lambda nil (defvar passes) (defvar assertion-failures) (defvar no-error-failures) (defvar wrong-error-failures) (defvar missing-message-failures) (defvar other-failures) (defvar unexpected-test-suite-failure) (defvar trick-optimizer) (defun test-chars (&optional for-test-harness) "Insert all characters in a buffer, to see if XEmacs will crash.\nThis is done by creating a string with all the legal characters\nin [0, 2^19) range, inserting it into the buffer, and checking\nthat the buffer's contents are equivalent to the string.\n\nIf FOR-TEST-HARNESS is specified, a temporary buffer is used, and\nthe Assert macro checks for correctness." (let ... ... ...)) (test-chars t) (when (featurep ...) (macrolet ... ... ... ... ...) (let ... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" ...) (Check-Error-Message error "Symbol is not a coding system alias" ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (Check-Error-Message error "No such coding system" ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (define-coding-system-alias ... nil) (define-coding-system-alias ... nil) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Symbol is the canonical name of a coding system and cannot be redefined" ...) (Check-Error-Message error "Symbol is not a coding system alias" ...) (define-coding-system-alias ... nil) (define-coding-system-alias ... nil) (define-coding-system-alias ... ...) (Assert .. .) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (define-coding-system-alias ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (Check-Error-Message error "No such coding system" ...) (Check-Error-Message error "Attempt to create a coding system alias loop" ...) (define-coding-system-alias ... nil) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (defun charset-char-string ... ...) (Assert ...) (aset ... 1 ...) (let ... ... ...) (let ... ... ...) (let ... ... ...) (let ... ... ...) (let* ... ...) (let* ... ... ... ...)))) # (condition-case ... . ((error (setq unexpected-test-suite-failure t) (princ ...) (message "Unexpected error %S while executing interpreted code." error-info) (message "Test suite execution aborted." error-info)))) (condition-case error-info (funcall (test-harness-read-from-buffer inbuffer)) (error (setq unexpected-test-suite-failure t) (princ ...) (message "Unexpected error %S while executing interpreted code." error-info) (message "Test suite execution aborted." error-info))) # bind (standard-output) (with-output-to-temp-buffer "*Test-Log*" (defmacro Assert (assertion) (backquote ...)) (defmacro Check-Error (expected-error &rest body) (let ... ...)) (defmacro Check-Error-Message (expected-error expected-error-regexp &rest body) (let ... ...)) (defmacro Check-Message (expected-message-regexp &rest body) (let ... ...)) (defmacro Ignore-Ebola (&rest body) (backquote ...)) (defun Int-to-Marker (pos) (save-excursion ... ...)) (princ "Testing Interpreted Lisp\n\n") (condition-case error-info (funcall ...) (error ... ... ... ...)) (princ "\nTesting Compiled Lisp\n\n") (let (code) (condition-case error-info ... ...) (condition-case error-info ... ...)) (princ "\nSUMMARY:\n") (princ (format " %5d passes\n" passes)) (princ (format " %5d assertion failures\n" assertion-failures)) (princ (format " %5d errors that should have been generated, but weren't\n" no-error-failures)) (princ (format " %5d wrong-error failures\n" wrong-error-failures)) (princ (format " %5d missing-message failures\n" missing-message-failures)) (princ (format " %5d other failures\n" other-failures)) (let* (... ... ...) (message "%s" summary-msg)) (when unexpected-test-suite-failure (message "Test suite execution failed unexpectedly.")) (fmakunbound (quote Assert)) (fmakunbound (quote Check-Error)) (fmakunbound (quote Ignore-Ebola)) (fmakunbound (quote Int-to-Marker))) # bind (debug-on-error unexpected-test-suite-failure trick-optimizer other-failures missing-message-failures wrong-error-failures no-error-failures assertion-failures passes) (let ((passes 0) (assertion-failures 0) (no-error-failures 0) (wrong-error-failures 0) (missing-message-failures 0) (other-failures 0) (trick-optimizer nil) (unexpected-test-suite-failure nil) (debug-on-error t)) (with-output-to-temp-buffer "*Test-Log*" (defmacro Assert ... ...) (defmacro Check-Error ... ...) (defmacro Check-Error-Message ... ...) (defmacro Check-Message ... ...) (defmacro Ignore-Ebola ... ...) (defun Int-to-Marker ... ...) (princ "Testing Interpreted Lisp\n\n") (condition-case error-info ... ...) (princ "\nTesting Compiled Lisp\n\n") (let ... ... ...) (princ "\nSUMMARY:\n") (princ ...) (princ ...) (princ ...) (princ ...) (princ ...) (princ ...) (let* ... ...) (when unexpected-test-suite-failure ...) (fmakunbound ...) (fmakunbound ...) (fmakunbound ...) (fmakunbound ...))) # bind (filename inbuffer) test-harness-from-buffer(#<buffer " *Test Input*"> "/project/xemacs/ws/lat/tests/automated/mule-tests.el") # bind (input-buffer test-harness-current-file) (let ((test-harness-current-file filename) input-buffer) (save-excursion (setq input-buffer ...) (set-buffer input-buffer) (erase-buffer) (insert-file-contents filename) (let ... ... ...)) (test-harness-from-buffer input-buffer filename) (kill-buffer input-buffer)) # bind (filename) test-emacs-test-file("/project/xemacs/ws/lat/tests/automated/mule-tests.el") (progn (test-emacs-test-file file) t) # (condition-case ... . ((error (princ ">>Error occurred processing ") (princ file) (princ ": ") (display-error error-info nil) (terpri) nil))) (condition-case error-info (progn (test-emacs-test-file file) t) (error (princ ">>Error occurred processing ") (princ file) (princ ": ") (display-error error-info nil) (terpri) nil)) # bind (file) batch-test-emacs-1("/project/xemacs/ws/lat/tests/automated/mule-tests.el") (or (batch-test-emacs-1 file-in-dir) (setq error t)) (if (and (string-match emacs-lisp-file-regexp file-in-dir) (not ...)) (or (batch-test-emacs-1 file-in-dir) (setq error t))) (when (and (string-match emacs-lisp-file-regexp file-in-dir) (not ...)) (or (batch-test-emacs-1 file-in-dir) (setq error t))) (while --dolist-temp--86902 (setq file-in-dir (car --dolist-temp--86902)) (when (and ... ...) (or ... ...)) (setq --dolist-temp--86902 (cdr --dolist-temp--86902))) # bind (file-in-dir --dolist-temp--86902) (let ((--dolist-temp--86902 ...) file-in-dir) (while --dolist-temp--86902 (setq file-in-dir ...) (when ... ...) (setq --dolist-temp--86902 ...)) nil) # (catch --cl-block-nil-- ...) (catch (quote --cl-block-nil--) (let (... file-in-dir) (while --dolist-temp--86902 ... ... ...) nil)) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil))) (block nil (let (... file-in-dir) (while --dolist-temp--86902 ... ... ...) nil)) (dolist (file-in-dir (directory-files file t)) (when (and ... ...) (or ... ...))) (if (file-directory-p file) (dolist (file-in-dir ...) (when ... ...)) (or (batch-test-emacs-1 file) (setq error t))) (while --dolist-temp--86901 (setq file (car --dolist-temp--86901)) (if (file-directory-p file) (dolist ... ...) (or ... ...)) (setq --dolist-temp--86901 (cdr --dolist-temp--86901))) # bind (file --dolist-temp--86901) (let ((--dolist-temp--86901 command-line-args-left) file) (while --dolist-temp--86901 (setq file ...) (if ... ... ...) (setq --dolist-temp--86901 ...)) nil) # (catch --cl-block-nil-- ...) (catch (quote --cl-block-nil--) (let (... file) (while --dolist-temp--86901 ... ... ...) nil)) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil))) (block nil (let (... file) (while --dolist-temp--86901 ... ... ...) nil)) (dolist (file command-line-args-left) (if (file-directory-p file) (dolist ... ...) (or ... ...))) # bind (error) (let ((error nil)) (dolist (file command-line-args-left) (if ... ... ...)) (message "Done") (kill-emacs (if error 1 0))) batch-test-emacs() # 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() # (unwind-protect ...) normal-top-level() # (condition-case ... . error) # (catch top-level ...)