I'm an idiot
23 years, 8 months
Paul Krause
Paul Krause
diff -u c:\Program Files\Xemacs\xemacs-packages\lisp\psgml\psgml.el.~1~ c:\Program Files\Xemacs\xemacs-packages\lisp\psgml\psgml.el
--- c:\Program Files\Xemacs\xemacs-packages\lisp\psgml\psgml.el.~1~ Mon Aug 21 17:36:30 2000
+++ c:\Program Files\Xemacs\xemacs-packages\lisp\psgml\psgml.el Mon Aug 21 17:36:30 2000
＠＠ -426,7 +426,8 ＠＠
(concat "%S" path-separator
(directory-file-name
sgml-data-directory)
- "%o/%c/%d")))
+ "%o" (string directory-sep-char)
+ "%c" (string directory-sep-char) "%d")))
"*Mapping from public identifiers to file names.
This is a list of possible file names. To find the file for a public
identifier the elements of the list are used one at the time from the
- 1 participants
- 0 comments
Please test http://xemacs.sourceforge.net/
23 years, 8 months
Adrian Aichner
Adrian Aichner
Hello All,
I have completed and documented the initial implementation of the new
XEmacs Homepage
on sourceforge, http://xemacs.sourceforge.net/.
The website documentation can be found at
http://xemacs.sourceforge.net/About/Website.html
Martin and I would like to switch the official XEmacs Website over to
sourceforge ASAP by making http://xemacs.sourceforge.net/ answer
requests for http://www.xemacs.org as well.
Please send your feedback on the new site, especially problems, to
XEmacs Web Maintainers <xemacs-webmaint(a)xemacs.org>
and
XEmacs Beta List <xemacs-beta(a)xemacs.org>.
Best regards,
Adrian
--
Adrian Aichner <adrian(a)xemacs.org>
- 1 participants
- 0 comments
psgml path-seperator bug is back
23 years, 8 months
Paul Krause
Paul Krause
Here's a patch to fix it. Without this patch,
my NT box can't find DTDs.
;; $Id: psgml.el,v 1.9 2000/07/05 05:31:50 yoshiki Exp $
(defconst psgml-version "1.2.1"
"Version of psgml package.")
diff -u c:\Program Files\Xemacs\xemacs-packages\lisp\psgml\psgml.el.~1~ c:\Program Files\Xemacs\xemacs-packages\lisp\psgml\psgml.el
--- c:\Program Files\Xemacs\xemacs-packages\lisp\psgml\psgml.el.~1~ Mon Aug 21 17:16:45 2000
+++ c:\Program Files\Xemacs\xemacs-packages\lisp\psgml\psgml.el Mon Aug 21 17:16:45 2000
＠＠ -426,7 +426,8 ＠＠
(concat "%S" path-separator
(directory-file-name
sgml-data-directory)
- "%o/%c/%d")))
+ "%o" path-separator
+ "%c" path-separator "%d")))
"*Mapping from public identifiers to file names.
This is a list of possible file names. To find the file for a public
identifier the elements of the list are used one at the time from the
- 1 participants
- 0 comments
Re: Test release of new packages
23 years, 8 months
Dan Holmsand
Dan Holmsand
sperber(a)informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor]) writes:
> You need to be a little bit more precise as to what exactly your
> problem is. The JDE byte-compiles and runs just fine out here. The
> dependencies were difficult to get right, as Andy pointed out, and
> eieio.el can't be byte-compiled, but that was about the only problem I
> encountered.
Of course you're right. I should have given some examples. So here are
a couple of backtraces. I get these errors the first time these
functions are called (later results seem pretty unpredictable).
/dan
Running jde-complete-at-point:
Signaling: (invalid-function (macro . #<compiled-function (&rest body) "...(33)" [if (and (eq system-type (quote windows-nt)) (not jde-xemacsp)) (boundp (quote win32-start-process-show-window)) let ((save win32-start-process-show-window)) (setq win32-start-process-show-window t) append body ((setq win32-start-process-show-window save)) ((save w32-start-process-show-window)) (setq w32-start-process-show-window t) ((setq w32-start-process-show-window save))] 11 ("/dan/.xemacs/xemacs-packages/lisp/jde/jde-run.elc" . 14129)>))
save-w32-show-window("Starting the BeanShell. Please wait..." #<buffer "*bsh*">)
bsh-internal()
bsh-eval("{ String[] lst = new String[5];\nlst[0]=\"afvgrafservlet.\";\n lst[1]=\"java.util.\";\n lst[2]=\"java.net.\";\n lst[3]=\"java.io.\";\n lst[4]=\"java.lang.\";\njde.util.Completion.getClassInfo(\"Map\",lst);\n}")
jde-complete-get-classinfo("Map")
#<compiled-function nil "...(118)" [jde-complete-current-list markerp jde-complete-current-beginning jde-complete-current-end marker-position last-command this-command jde-complete-complete-cycle jde-complete-java-variable-at-point pair nil vtype classinfo fulllist jde-parse-declared-type-of jde-complete-get-classinfo jde-complete-build-completion-list jde-complete-find-all-completions -1 jde-complete-current-list-index message format "Can't find any declaration for `%s'!" "No completion at this point."] 5 ("/dan/.xemacs/xemacs-packages/lisp/jde/jde-complete.elc" . 7554) nil>()
call-interactively(jde-complete-at-point)
Running jde-debug:
Signaling: (invalid-function (macro . #<compiled-function (&rest body) "...(33)" [if (and (eq system-type (quote windows-nt)) (not jde-xemacsp)) (boundp (quote win32-start-process-show-window)) let ((save win32-start-process-show-window)) (setq win32-start-process-show-window t) append body ((setq win32-start-process-show-window save)) ((save w32-start-process-show-window)) (setq w32-start-process-show-window t) ((setq w32-start-process-show-window save))] 11 ("/dan/.xemacs/xemacs-packages/lisp/jde/jde-run.elc" . 14129)>))
save-w32-show-window(#<buffer "*JDEbug*"> #<process "*JDEbug*" pid 3094 state:run> #<process "*JDEbug*" pid 3094 state:run> #<buffer "*JDEbug*"> comint-output-filter jde-dbs-asynch-output-listener)
jde-dbs-debugger([object jde-dbs-debugger "JDEbug" "JDEbug" "*JDEbug*" #<buffer "*JDEbug*"> #<process "*JDEbug*" pid 3094 state:run> comint-output-filter nil])
apply(jde-dbs-debugger [object jde-dbs-debugger "JDEbug" "JDEbug" "*JDEbug*" #<buffer "*JDEbug*"> #<process "*JDEbug*" pid 3094 state:run> comint-output-filter nil])
(setq rval (apply (car ...) newargs))
(let ((scoped-class ...)) (setq found t) (setq rval (apply ... newargs)))
(if (car lambdas) (let (...) (setq found t) (setq rval ...)))
(while lambdas (if (car lambdas) (let ... ... ...)) (setq lambdas (cdr lambdas)))
(let ((rval nil) (found nil)) (while lambdas (if ... ...) (setq lambdas ...)) (if (not found) (signal ... ...)) rval)
(let ((newargs nil) (mclass nil) (lambdas nil) (eieio-generic-call-methodname method) (eieio-generic-call-arglst args)) (setq newargs args) (if (object-p ...) (setq mclass ...)) (if (not scoped-class) (setq lambdas ...)) (if mclass (setq lambdas ...)) (if (not scoped-class) (setq lambdas ...)) (if mclass (setq lambdas ...)) (if (not scoped-class) (setq lambdas ...)) (if mclass (setq lambdas ...)) (let (... ...) (while lambdas ... ...) (if ... ...) rval))
eieio-generic-call(jde-dbs-debugger-start ([object jde-dbs-debugger "JDEbug" "JDEbug" "*JDEbug*" #<buffer "*JDEbug*"> #<process "*JDEbug*" pid 3094 state:run> comint-output-filter nil]))
jde-dbs-debugger-start([object jde-dbs-debugger "JDEbug" "JDEbug" "*JDEbug*" #<buffer "*JDEbug*"> #<process "*JDEbug*" pid 3094 state:run> comint-output-filter nil])
jde-bug-debug-app()
#<compiled-function nil "...(12)" [jde-db-debugger "JDEbug" jde-bug-debug-app jde-db] 2 ("/dan/.xemacs/xemacs-packages/lisp/jde/jde.elc" . -28651) nil>()
call-interactively(jde-debug)
--
Dan Ola Holmsand
Innehållsbolaget
dan(a)innehall.com
- 3 participants
- 2 comments
Re: [Xemacs 21.1.12 build problems] sigblock on hpux?
23 years, 8 months
Ilya N. Golubev
Ilya N. Golubev
Why xemacs tries to use (obsolete and deprecated even in descendants
of BSD itself) sibblock() interface on a system having decent POSIX
sigprocmask()?
- 1 participants
- 0 comments
Re: help install xemacs-packages from cvs
23 years, 8 months
Adrian Aichner
Adrian Aichner
>>>>> "zw" == zw <zw(a)zhaoway.com> writes:
zw> when i do
zw> $ make bindist
zw> in cvs co'd xemacs-packages top directory,
zw> i got alot of
Do you have any conflicts or local modifications in your
xemacs-packages source tree?
zw> ...
zw> xemacs exiting.Cannot open load file: package-info.el
zw> ...
zw> please someone can enlighten me, :)
zw> thanks,
>From within
(emacs-version)
"XEmacs 21.1 (patch 11) \"Carlsbad Caverns\" [Lucid] (i386-pc-win32)
of Fri Jul 28 2000 on ZJ75T"
I get this for
(locate-library "package-info")
"c:\\XEmacs\\XEmacs-21.1.11\\lisp\\package-info.el"
Hope this helps,
Adrian
--
Adrian Aichner <adrian(a)xemacs.org>
- 2 participants
- 1 comments
Re: help install xemacs-packages from cvs
23 years, 8 months
Andreas Jaeger
Andreas Jaeger
>>>>> zw writes:
> when i do
> $ make bindist
> in cvs co'd xemacs-packages top directory,
> i got alot of
> ...
> xemacs exiting.Cannot open load file: package-info.el
> ...
> please someone can enlighten me, :)
> thanks,
Which XEmacs version? It should be in
e.g. /usr/lib/xemacs-21.1.10/lisp/package-info.el
and works for me without problem,
Andreas
--
Andreas Jaeger
SuSE Labs aj(a)suse.de
private aj(a)arthur.inka.de
http://www.suse.de/~aj
- 2 participants
- 1 comments
Re: help install xemacs-packages from cvs
23 years, 8 months
Steve Youngs
Steve Youngs
* zw <zw(a)zhaoway.com> writes:
> when i do
> $ make bindist
> in cvs co'd xemacs-packages top directory,
> i got alot of
> ...
> xemacs exiting.Cannot open load file: package-info.el
> ...
In ./Local-rules did you set 'symlink =' to 't'? If so, try setting
it to 'nil'.
--
|---<Regards, Steve Youngs>-----------[GnuPG KeyID: EFD82ED2]---|
| It's a funny thing about life; if you refuse to accept |
| anything but the best, you very often get it |
|-----------------------------<mailto:youngs_s＠ozlinx.com.au>---|
- 2 participants
- 1 comments
Re: [crash] segv in print_internal
23 years, 8 months
Gunnar Evermann
Gunnar Evermann
karlheg(a)bittersweet.inetarena.com (Karl M. Hegbloom) writes:
> With or without `-vanilla', if I go straight to the directory where
> the man pages are and use `dired-man-locally', it will crash. But if
> I view a man page first, with `M-x man', or just `M-x load-library
> man', then go there and use `l', it works fine.
> (defun dired-man-locally ()
> (interactive)
> (if (= 1 (function-max-args #'manual-entry))
> (manual-entry (concat (dired-get-filename) " -l"))
> (manual-entry (dired-get-filename) "-l")))
One can trigger this crash by evaluating:
(function-max-args #'manual-entry)
in a vanilla xemacs with any function that is autoloaded.
function-max-args performs the autoloading but doesn't actually use
the function just loaded, instead it infloops on the autoload
definition.
This should fix it (21.2 only -- I'll send a 21.1 patch in a separate
mail.)
2000-08-06 Gunnar Evermann <ge204(a)eng.cam.ac.uk>
* eval.c (function_argcount): If function needs to be autoloaded
actually use the loaded definition.
--- src/eval.c~ Sun Aug 6 12:32:39 2000
+++ src/eval.c Sun Aug 6 20:58:36 2000
＠＠ -3651,6 +3651,7 ＠＠
else if (EQ (funcar, Qautoload))
{
do_autoload (function, orig_function);
+ function = orig_function;
goto retry;
}
else if (EQ (funcar, Qlambda))
- 2 participants
- 1 comments
'make check' Failure Latest 21.1 from CVS
23 years, 8 months
Vin Shelton
Vin Shelton
Now I'm seeing the 'make check' failure that Martin reported.
Yoshiki, was this failure caused by your fix for the insdel.c
assertion?
- vin
PS. Martin, thanks for making the return code of 'make check' reflect
the test status.
Test results:
Testing /usr/local/src/xemacs-21.2-2000-08-06/tests/automated/lisp-tests.el...Fatal error: assertion failed, file /usr/local/src/xemacs-21.2-2000-08-06/src/insdel.c, line 1122, ( x) >= BI_BUF_BEG (buf) && x <= BI_BUF_Z (buf)
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'.
*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 /usr/local/build/xemacs-21.2-2000-08-06/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:
string-match("\\(\\.\\=\\)" ".")
(not (string-match "\\(\\.\\=\\)" "."))
(or (not (string-match "\\(\\.\\=\\)" ".")) (signal (quote cl-assertion-failed) (list ...)))
(progn (or (not ...) (signal ... ...)) nil)
(assert (not (string-match "\\(\\.\\=\\)" ".")))
(progn (assert (not ...)) (princ (format "PASS: %S" ...)) (terpri) (incf passes))
# (condition-case ... . ((cl-assertion-failed (princ ...) (incf assertion-failures)) (t (princ ...) (incf other-failures))))
(condition-case error-info (progn (assert ...) (princ ...) (terpri) (incf passes)) (cl-assertion-failed (princ ...) (incf assertion-failures)) (t (princ ...) (incf other-failures)))
(Assert (not (string-match "\\(\\.\\=\\)" ".")))
(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) (eval-when-compile (condition-case nil ... ...)) (Check-Error wrong-number-of-arguments (setq setq-test-foo)) (Check-Error wrong-number-of-arguments (setq setq-test-foo 1 setq-test-bar)) (Check-Error wrong-number-of-arguments (setq-default setq-test-foo)) (Check-Error wrong-number-of-arguments (setq-default setq-test-foo 1 setq-test-bar)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... 42)) (Assert (eq ... 42)) (Assert (eq ... 99)) (Assert (eq ... 99)) (macrolet (...) (test-setq nil ...) (test-setq nil ...) (test-setq 42 ...) (test-setq 42 ...) (test-setq 42 ...) (test-setq 42 ...)) (let (... ... ... ...) (dolist ... ... ...) (dolist ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (fillarray my-vector 5) (fillarray my-bit-vector 1) (fillarray my-string ?5) (dolist ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (fillarray my-bit-vector 0) (Assert ...) (Assert ...)) (defun make-circular-list (length) "Create evil emacs-crashing circular list of length LENGTH" (let ... ... circular-list)) (defun make-list-012 nil (list 0 1 2)) (Check-Error wrong-type-argument (nconc ... nil)) (dolist (length ...) (Check-Error circular-list ...) (Check-Error circular-list ...) (Check-Error circular-list ...)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (let (...) (Assert ...)) (let (...) (Assert ...)) (let (...) (Assert ...)) (let (...) (Assert ...)) (let (...) (Assert ...)) (Assert (equal ... ...)) (let (...) (Assert ...) (Assert ...)) (Check-Error wrong-type-argument (last ...)) (Check-Error wrong-number-of-arguments (last)) (Check-Error wrong-number-of-arguments (last ... 1 1)) (Check-Error circular-list (last ...)) (Check-Error circular-list (last ...)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (Check-Error wrong-type-argument (butlast ...)) (Check-Error wrong-type-argument (nbutlast ...)) (Check-Error wrong-number-of-arguments (butlast)) (Check-Error wrong-number-of-arguments (nbutlast)) (Check-Error wrong-number-of-arguments (butlast ... 1 1)) (Check-Error wrong-number-of-arguments (nbutlast ... 1 1)) (Check-Error circular-list (butlast ...)) (Check-Error circular-list (nbutlast ...)) (Check-Error circular-list (butlast ...)) (Check-Error circular-list (nbutlast ...)) (let* (... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let* (... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let* (... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Check-Error wrong-type-argument (copy-list ...)) (Check-Error wrong-number-of-arguments (copy-list)) (Check-Error wrong-number-of-arguments (copy-list ... 1)) (Check-Error circular-list (copy-list ...)) (Check-Error circular-list (copy-list ...)) (Assert (eq ... ...)) (dolist (x ...) (let ... ...)) (Assert (eq ... 2)) (Assert (= ... 2.0)) (Assert (= ... 4.0)) (Assert (= ... 2.0)) (Assert (= ... 2.0)) (Assert (= ... 3.0)) (Assert (= ... 3.0)) (Assert (eq ... most-negative-fixnum)) (Assert (eq ... most-negative-fixnum)) (Check-Error wrong-number-of-arguments (-)) (Assert (eq ... 0)) (Assert (eq ... -1)) (dolist (one ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (dolist ... ... ... ... ... ... ...)) (Assert (= ... 0.5)) (Assert (= ... ...)) (Assert (eq ... most-positive-fixnum)) (Assert (eq ... most-positive-fixnum)) (dolist (zero ...) (Check-Error arith-error ...) (dolist ... ... ...)) (Check-Error wrong-number-of-arguments (/)) (let (x) (Assert ...) (Assert ...)) (dolist (six ...) (dolist ... ...)) (dolist (three ...) (Assert ...)) (dolist (two ...) (Assert ...)) (Assert (= 1 ...)) (dolist (one ...) (Assert ...)) (dolist (two ...) (Assert ...)) (dolist (six ...) (dolist ... ...)) (dolist (three ...) (dolist ... ... ...)) (Assert (= 0 ...)) (dolist (one ...) (Assert ...)) (dolist (two ...) (Assert ...)) (dolist (five ...) (dolist ... ...)) (dolist (one ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (dolist ... ... ... ... ... ... ...)) (Assert (= ... 0)) (Assert (= ... 0)) (Assert (= ... -1)) (Check-Error wrong-type-argument (logxor 3.0)) (Check-Error wrong-type-argument (logior 3.0)) (Check-Error wrong-type-argument (logand 3.0)) (dolist (three ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (dolist (one ...) (dolist ... ... ... ...) (dolist ... ... ... ...)) (Check-Error wrong-number-of-arguments (%)) (Check-Error wrong-number-of-arguments (% 1)) (Check-Error wrong-number-of-arguments (% 1 2 3)) (Check-Error wrong-number-of-arguments (mod)) (Check-Error wrong-number-of-arguments (mod 1)) (Check-Error wrong-number-of-arguments (mod 1 2 3)) (Check-Error wrong-type-argument (% 10.0 2)) (Check-Error wrong-type-argument (% 10 2.0)) (dotimes (j 30) (let ... ... ... ...)) (macrolet (...) (division-test 7) (division-test ?\^G) (division-test ...)) (Check-Error wrong-number-of-arguments (=)) (Check-Error wrong-number-of-arguments (<)) (Check-Error wrong-number-of-arguments (>)) (Check-Error wrong-number-of-arguments (<=)) (Check-Error wrong-number-of-arguments (>=)) (Check-Error wrong-number-of-arguments (/=)) (loop for x in (backquote ...) do (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (Check-Error wrong-type-argument (= ... 1)) (Check-Error wrong-type-argument (<= ... 1)) (Check-Error wrong-type-argument (>= ... 1)) (Check-Error wrong-type-argument (< ... 1)) (Check-Error wrong-type-argument (> ... 1)) (Check-Error wrong-type-argument (/= ... 1)) (dolist (one ...) (dolist ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (dolist (one ...) (dolist ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (Assert (< 1 2)) (Assert (< 1 2 3 4 5 6)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (< 1 2 3 4 5 6)) (Assert (<= 1 2 3 4 5 6)) (Assert (<= 1 2 3 4 5 6 6)) (Assert (not ...)) (Assert (<= 1 1)) (Assert (not ...)) (Assert (= 1 ...)) (Assert (= ... ...)) (macrolet (... ...) (test-funs member old-member memq old-memq assoc old-assoc rassoc old-rassoc rassq old-rassq delete old-delete delq old-delq remassoc remassq remrassoc remrassq)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (flet (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (flet (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (defmacro check-function-argcounts (fun min max) (backquote ...)) (check-function-argcounts (quote prog1) 1 nil) (check-function-argcounts (quote command-execute) 1 3) (check-function-argcounts (quote funcall) 1 nil) (check-function-argcounts (quote garbage-collect) 0 0) (loop for (arglist min max) in (quote ...) do (eval ...)) (fset (quote test-sym1) (quote test-sym1)) (Check-Error cyclic-function-indirection (test-sym1)) (fset (quote test-sym1) (quote test-sym2)) (fset (quote test-sym2) (quote test-sym1)) (Check-Error cyclic-function-indirection (test-sym1)) (fmakunbound (quote test-sym1)) (fmakunbound (quote test-sym2)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Check-Error wrong-type-argument (mapcar ... ...)) (Assert (equal ... load-path)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (let (... ...) (mapc ... list) (Assert ...)) (Check-Error wrong-type-argument (mapvector ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Check-Error wrong-type-argument (mapconcat ... ... "foo")) (Assert (equal ... "1|2|3")) (Assert (equal ... "1|2|3")) (Assert (let ... ...)) (Assert (let ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal #*010 #*010)) (Assert (equal #* #*)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (equal ... #*010)) (Assert (equal ... #*111)) (Assert (equal ... #*000)) (make-local-variable (quote test-emacs-buffer-local-variable)) (byte-compile (defun test-emacs-buffer-local-parameter ... ...)) (test-emacs-buffer-local-parameter nil) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (not ...)) (with-temp-buffer (erase-buffer) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (insert "foobar") (Assert ...) (Assert ...) (Assert ...) (Assert ...) (goto-char ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (put sym ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (loop for obj in (list ... "test-string" ... ...) do (Assert ...) (Assert ...) (Assert ...) (when ... ...) (Assert ...) (when ... ...) (Assert ...) (when ... ...) (Assert ...)) (Check-Error-Message error "Object type has no properties" (get 2 ...)) (Check-Error-Message error "Object type has no settable properties" (put ... ... ...)) (Check-Error-Message error "Object type has no removable properties" (remprop ?3 ...)) (Check-Error-Message error "Object type has no properties" (object-plist ...)) (Check-Error-Message error "Can't remove property from object" (remprop ... ...)) (Assert (equal ... nil)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... "123")) (Assert (equal ... "23")) (Assert (equal ... #*0011)) (Assert (equal ... #*01)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Check-Error (quote wrong-type-argument) (subseq 3 2)) (Check-Error (quote args-out-of-range) (subseq ... -42)) (Check-Error (quote args-out-of-range) (subseq ... 0 42)))()
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) (eval-when-compile (condition-case nil ... ...)) (Check-Error wrong-number-of-arguments (setq setq-test-foo)) (Check-Error wrong-number-of-arguments (setq setq-test-foo 1 setq-test-bar)) (Check-Error wrong-number-of-arguments (setq-default setq-test-foo)) (Check-Error wrong-number-of-arguments (setq-default setq-test-foo 1 setq-test-bar)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... 42)) (Assert (eq ... 42)) (Assert (eq ... 99)) (Assert (eq ... 99)) (macrolet (...) (test-setq nil ...) (test-setq nil ...) (test-setq 42 ...) (test-setq 42 ...) (test-setq 42 ...) (test-setq 42 ...)) (let (... ... ... ...) (dolist ... ... ...) (dolist ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (fillarray my-vector 5) (fillarray my-bit-vector 1) (fillarray my-string ?5) (dolist ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (fillarray my-bit-vector 0) (Assert ...) (Assert ...)) (defun make-circular-list (length) "Create evil emacs-crashing circular list of length LENGTH" (let ... ... circular-list)) (defun make-list-012 nil (list 0 1 2)) (Check-Error wrong-type-argument (nconc ... nil)) (dolist (length ...) (Check-Error circular-list ...) (Check-Error circular-list ...) (Check-Error circular-list ...)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (let (...) (Assert ...)) (let (...) (Assert ...)) (let (...) (Assert ...)) (let (...) (Assert ...)) (let (...) (Assert ...)) (Assert (equal ... ...)) (let (...) (Assert ...) (Assert ...)) (Check-Error wrong-type-argument (last ...)) (Check-Error wrong-number-of-arguments (last)) (Check-Error wrong-number-of-arguments (last ... 1 1)) (Check-Error circular-list (last ...)) (Check-Error circular-list (last ...)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (Check-Error wrong-type-argument (butlast ...)) (Check-Error wrong-type-argument (nbutlast ...)) (Check-Error wrong-number-of-arguments (butlast)) (Check-Error wrong-number-of-arguments (nbutlast)) (Check-Error wrong-number-of-arguments (butlast ... 1 1)) (Check-Error wrong-number-of-arguments (nbutlast ... 1 1)) (Check-Error circular-list (butlast ...)) (Check-Error circular-list (nbutlast ...)) (Check-Error circular-list (butlast ...)) (Check-Error circular-list (nbutlast ...)) (let* (... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let* (... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let* (... ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Assert (eq ... nil)) (Check-Error wrong-type-argument (copy-list ...)) (Check-Error wrong-number-of-arguments (copy-list)) (Check-Error wrong-number-of-arguments (copy-list ... 1)) (Check-Error circular-list (copy-list ...)) (Check-Error circular-list (copy-list ...)) (Assert (eq ... ...)) (dolist (x ...) (let ... ...)) (Assert (eq ... 2)) (Assert (= ... 2.0)) (Assert (= ... 4.0)) (Assert (= ... 2.0)) (Assert (= ... 2.0)) (Assert (= ... 3.0)) (Assert (= ... 3.0)) (Assert (eq ... most-negative-fixnum)) (Assert (eq ... most-negative-fixnum)) (Check-Error wrong-number-of-arguments (-)) (Assert (eq ... 0)) (Assert (eq ... -1)) (dolist (one ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (dolist ... ... ... ... ... ... ...)) (Assert (= ... 0.5)) (Assert (= ... ...)) (Assert (eq ... most-positive-fixnum)) (Assert (eq ... most-positive-fixnum)) (dolist (zero ...) (Check-Error arith-error ...) (dolist ... ... ...)) (Check-Error wrong-number-of-arguments (/)) (let (x) (Assert ...) (Assert ...)) (dolist (six ...) (dolist ... ...)) (dolist (three ...) (Assert ...)) (dolist (two ...) (Assert ...)) (Assert (= 1 ...)) (dolist (one ...) (Assert ...)) (dolist (two ...) (Assert ...)) (dolist (six ...) (dolist ... ...)) (dolist (three ...) (dolist ... ... ...)) (Assert (= 0 ...)) (dolist (one ...) (Assert ...)) (dolist (two ...) (Assert ...)) (dolist (five ...) (dolist ... ...)) (dolist (one ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (dolist ... ... ... ... ... ... ...)) (Assert (= ... 0)) (Assert (= ... 0)) (Assert (= ... -1)) (Check-Error wrong-type-argument (logxor 3.0)) (Check-Error wrong-type-argument (logior 3.0)) (Check-Error wrong-type-argument (logand 3.0)) (dolist (three ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (dolist (one ...) (dolist ... ... ... ...) (dolist ... ... ... ...)) (Check-Error wrong-number-of-arguments (%)) (Check-Error wrong-number-of-arguments (% 1)) (Check-Error wrong-number-of-arguments (% 1 2 3)) (Check-Error wrong-number-of-arguments (mod)) (Check-Error wrong-number-of-arguments (mod 1)) (Check-Error wrong-number-of-arguments (mod 1 2 3)) (Check-Error wrong-type-argument (% 10.0 2)) (Check-Error wrong-type-argument (% 10 2.0)) (dotimes (j 30) (let ... ... ... ...)) (macrolet (...) (division-test 7) (division-test ?\^G) (division-test ...)) (Check-Error wrong-number-of-arguments (=)) (Check-Error wrong-number-of-arguments (<)) (Check-Error wrong-number-of-arguments (>)) (Check-Error wrong-number-of-arguments (<=)) (Check-Error wrong-number-of-arguments (>=)) (Check-Error wrong-number-of-arguments (/=)) (loop for x in (backquote ...) do (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (Check-Error wrong-type-argument (= ... 1)) (Check-Error wrong-type-argument (<= ... 1)) (Check-Error wrong-type-argument (>= ... 1)) (Check-Error wrong-type-argument (< ... 1)) (Check-Error wrong-type-argument (> ... 1)) (Check-Error wrong-type-argument (/= ... 1)) (dolist (one ...) (dolist ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (dolist (one ...) (dolist ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (Assert (< 1 2)) (Assert (< 1 2 3 4 5 6)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (< 1 2 3 4 5 6)) (Assert (<= 1 2 3 4 5 6)) (Assert (<= 1 2 3 4 5 6 6)) (Assert (not ...)) (Assert (<= 1 1)) (Assert (not ...)) (Assert (= 1 ...)) (Assert (= ... ...)) (macrolet (... ...) (test-funs member old-member memq old-memq assoc old-assoc rassoc old-rassoc rassq old-rassq delete old-delete delq old-delq remassoc remassq remrassoc remrassq)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (flet (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (flet (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (defmacro check-function-argcounts (fun min max) (backquote ...)) (check-function-argcounts (quote prog1) 1 nil) (check-function-argcounts (quote command-execute) 1 3) (check-function-argcounts (quote funcall) 1 nil) (check-function-argcounts (quote garbage-collect) 0 0) (loop for (arglist min max) in (quote ...) do (eval ...)) (fset (quote test-sym1) (quote test-sym1)) (Check-Error cyclic-function-indirection (test-sym1)) (fset (quote test-sym1) (quote test-sym2)) (fset (quote test-sym2) (quote test-sym1)) (Check-Error cyclic-function-indirection (test-sym1)) (fmakunbound (quote test-sym1)) (fmakunbound (quote test-sym2)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Assert (eq ... ...)) (Check-Error wrong-type-argument (mapcar ... ...)) (Assert (equal ... load-path)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (let (... ...) (mapc ... list) (Assert ...)) (Check-Error wrong-type-argument (mapvector ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Check-Error wrong-type-argument (mapconcat ... ... "foo")) (Assert (equal ... "1|2|3")) (Assert (equal ... "1|2|3")) (Assert (let ... ...)) (Assert (let ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal #*010 #*010)) (Assert (equal #* #*)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (not ...)) (Assert (equal ... #*010)) (Assert (equal ... #*111)) (Assert (equal ... #*000)) (make-local-variable (quote test-emacs-buffer-local-variable)) (byte-compile (defun test-emacs-buffer-local-parameter ... ...)) (test-emacs-buffer-local-parameter nil) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (not ...)) (with-temp-buffer (erase-buffer) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (insert "foobar") (Assert ...) (Assert ...) (Assert ...) (Assert ...) (goto-char ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (let (...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (put sym ... ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...) (Assert ...)) (loop for obj in (list ... "test-string" ... ...) do (Assert ...) (Assert ...) (Assert ...) (when ... ...) (Assert ...) (when ... ...) (Assert ...) (when ... ...) (Assert ...)) (Check-Error-Message error "Object type has no properties" (get 2 ...)) (Check-Error-Message error "Object type has no settable properties" (put ... ... ...)) (Check-Error-Message error "Object type has no removable properties" (remprop ?3 ...)) (Check-Error-Message error "Object type has no properties" (object-plist ...)) (Check-Error-Message error "Can't remove property from object" (remprop ... ...)) (Assert (equal ... nil)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Assert (equal ... "123")) (Assert (equal ... "23")) (Assert (equal ... #*0011)) (Assert (equal ... #*01)) (Assert (equal ... ...)) (Assert (equal ... ...)) (Check-Error (quote wrong-type-argument) (subseq 3 2)) (Check-Error (quote args-out-of-range) (subseq ... -42)) (Check-Error (quote args-out-of-range) (subseq ... 0 42))))
# (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*"> "/usr/local/src/xemacs-21.2-2000-08-06/tests/automated/lisp-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("/usr/local/src/xemacs-21.2-2000-08-06/tests/automated/lisp-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("/usr/local/src/xemacs-21.2-2000-08-06/tests/automated/lisp-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--8701 (setq file-in-dir (car --dolist-temp--8701)) (when (and ... ...) (or ... ...)) (setq --dolist-temp--8701 (cdr --dolist-temp--8701)))
# bind (file-in-dir --dolist-temp--8701)
(let ((--dolist-temp--8701 ...) file-in-dir) (while --dolist-temp--8701 (setq file-in-dir ...) (when ... ...) (setq --dolist-temp--8701 ...)) nil)
# (catch --cl-block-nil-- ...)
(catch (quote --cl-block-nil--) (let (... file-in-dir) (while --dolist-temp--8701 ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... file-in-dir) (while --dolist-temp--8701 ... ... ...) 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--8700 (setq file (car --dolist-temp--8700)) (if (file-directory-p file) (dolist ... ...) (or ... ...)) (setq --dolist-temp--8700 (cdr --dolist-temp--8700)))
# bind (file --dolist-temp--8700)
(let ((--dolist-temp--8700 command-line-args-left) file) (while --dolist-temp--8700 (setq file ...) (if ... ... ...) (setq --dolist-temp--8700 ...)) nil)
# (catch --cl-block-nil-- ...)
(catch (quote --cl-block-nil--) (let (... file) (while --dolist-temp--8700 ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... file) (while --dolist-temp--8700 ... ... ...) 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 ...)
make[1]: *** [check] Aborted (core dumped)
make[1]: Leaving directory `/usr/local/build/xemacs-21.2-2000-08-06/src'
make: *** [check] Error 2
- 3 participants
- 2 comments