1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Description: get a full backtrace on build errors, to diagnose build failures from logs
Author: Peter Van Eynde <pvaneynd@debian.org>
Forwarded: not-needed
--- cmucl.orig/src/tools/setup.lisp
+++ cmucl/src/tools/setup.lisp
@@ -283,7 +283,8 @@
(declare (ignore condition))
(format t "Error in backtrace!~%")))
(format t "Error abort.~%")
- (return-from comf)))))
+ (debug:backtrace)
+ (quit t)))))
(if assem
(c::assemble-file src :output-file obj)
(apply #'compile-file src :allow-other-keys t keys))))))))))
|
