[Git][cmucl/cmucl][rtoy-fix-40-map-heap-higher] 2 commits: Add handler-bind to auto restart
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/c40b7a6bd91ee60ec4e1fbbff... --- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/c40b7a6bd91ee60ec4e1fbbff... You're receiving this email because of your account on gitlab.common-lisp.net.
participants (1)
-
Raymond Toy