mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
16 lines
477 B
Common Lisp
16 lines
477 B
Common Lisp
(defun load-sbcl-file (file)
|
|
(labels ((exit-sbcl (code)
|
|
#+sbcl (sb-ext:exit :code code)
|
|
#+ccl (ccl:quit code)
|
|
#+abcl (ext:quit :status code)
|
|
#+cmucl (unix:unix-exit code)
|
|
#+ecl (si:quit code)
|
|
#+clisp (ext:quit code)
|
|
(return-from load-sbcl-file)))
|
|
(restart-case
|
|
(load file)
|
|
(abort ()
|
|
:report "Abort building SBCL."
|
|
(exit-sbcl 1)))
|
|
(exit-sbcl 0)))
|