1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Description: Ignore errors when reporting errors in batch processing, to help the autobuilder
Author: Peter Van Eynde <pvaneynd@debian.org>
Forwarded: not needed
--- cmucl.orig/src/code/save.lisp
+++ cmucl/src/code/save.lisp
@@ -309,8 +309,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))))))
|
