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