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))))))