mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
285ee63e88
Wrap everything with an abort restart which will quit and stop make.sh from proceeding. Also remove --disable-debugger from the default sbcl options for better debugging.
15 lines
442 B
Common Lisp
15 lines
442 B
Common Lisp
(defun load-sbcl-file (file)
|
|
(labels ((exit-sbcl (code)
|
|
#+sbcl (sb-ext:exit :code code)
|
|
#+clisp (ccl:quit code)
|
|
#+abcl (ext:quit :status code)
|
|
#+cmucl (unix:unix-exit code)
|
|
#+ecl (si:quit code)
|
|
(return-from load-sbcl-file)))
|
|
(restart-case
|
|
(load file)
|
|
(abort ()
|
|
:report "Abort building SBCL."
|
|
(exit-sbcl 1)))
|
|
(exit-sbcl 0)))
|