From 48f8ebb944b47922af06eb94dbec5fa330fdb5de Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Tue, 29 Aug 2017 10:54:21 -0700
Subject: [PATCH] Add handler-bind to auto restart

Changing defconstant's signal an error.  Add a handler-bind to restart
and continue with the changed values.
---
 src/bootfiles/21b/boot-2017-04.lisp | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/src/bootfiles/21b/boot-2017-04.lisp b/src/bootfiles/21b/boot-2017-04.lisp
index 6a8364a5d..553995414 100644
--- a/src/bootfiles/21b/boot-2017-04.lisp
+++ b/src/bootfiles/21b/boot-2017-04.lisp
@@ -17,9 +17,12 @@
       #x5f000000)
 
 #+linux
-(defconstant vm::target-foreign-linkage-space-start
-  (c:backend-foreign-linkage-space-start c::*target-backend*))
+(handler-bind
+    ((error (lambda (c)
+	      (declare (ignore c))
+	      (invoke-restart 'continue))))
+  (defconstant vm::target-foreign-linkage-space-start
+    (c:backend-foreign-linkage-space-start c::*target-backend*))
 
-#+linux
-(defconstant vm::target-dynamic-space-start
-  #x60000000)
+  (defconstant vm::target-dynamic-space-start
+    #x60000000))
-- 
GitLab