[Git][cmucl/cmucl][rtoy-fix-40-map-heap-higher] 2 commits: Add handler-bind to auto restart

[Raymond Toy]

Raymond Toy pushed to branch rtoy-fix-40-map-heap-higher at cmucl / cmucl


Commits:
48f8ebb9 by Raymond Toy at 2017-08-29T10:54:21-07:00
Add handler-bind to auto restart

Changing defconstant's signal an error.  Add a handler-bind to restart
and continue with the changed values.

- - - - -
aba0bc5c by Raymond Toy at 2017-08-29T10:56:15-07:00
Rename to boot-2017-04-1.lisp

- - - - -


1 changed file:

- src/bootfiles/21b/boot-2017-04.lisp → src/bootfiles/21b/boot-2017-04-1.lisp


Changes:

=====================================
src/bootfiles/21b/boot-2017-04.lisp → src/bootfiles/21b/boot-2017-04-1.lisp
=====================================
--- a/src/bootfiles/21b/boot-2017-04.lisp
+++ b/src/bootfiles/21b/boot-2017-04-1.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))



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/c40b7a6bd91ee60ec4e1fbbffbfe8b4ad090ec52...aba0bc5c5e47f4c25c52b4498761da5610a97b74

---
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/c40b7a6bd91ee60ec4e1fbbffbfe8b4ad090ec52...aba0bc5c5e47f4c25c52b4498761da5610a97b74
You're receiving this email because of your account on gitlab.common-lisp.net.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20170829/968fd79c/attachment.html>