1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Description: Ignore errors when reporting errors in batch processing, to help the autobuilder
Author: Peter Van Eynde <pvaneynd@debian.org>
Forwarded: not needed
Index: b/src/code/save.lisp
===================================================================
--- a/src/code/save.lisp 2011-12-06 09:05:40.052057835 +0000
+++ b/src/code/save.lisp 2011-12-06 09:05:41.052557820 +0000
@@ -295,8 +295,12 @@
(handler-case
(%restart-lisp)
(error (cond)
- (format *error-output* (intl:gettext "Error in batch processing:~%~A~%")
- cond)
+ ;; Ignore errors in printing errors!
+ (format *error-output* (intl:gettext "Error in batch processing:~%~A~%")
+ (or
+ (ignore-errors
+ cond)
+ "<Error printing error>"))
(throw '%end-of-the-world 1)))
(%restart-lisp))
(finish-standard-output-streams))))))
|
