File: ignore-errors-when-reporting-errors.patch

package info (click to toggle)
cmucl 21d-2.1
  • links: PTS
  • area: main
  • in suites: bookworm
  • size: 45,364 kB
  • sloc: lisp: 378,758; ansic: 30,678; asm: 2,977; sh: 1,417; makefile: 352; csh: 31
file content (22 lines) | stat: -rw-r--r-- 884 bytes parent folder | download | duplicates (3) 
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))))))