diff options
| author | Douglas Katzman <dougk@google.com> | 2017-02-12 19:41:36 -0500 |
|---|---|---|
| committer | Douglas Katzman <dougk@google.com> | 2017-02-12 22:25:38 -0500 |
| commit | b16221637619662a447bdb5423525642f473dcd7 (patch) | |
| tree | 2fad70dcf2d6fc0a92df3c7f171fc03cbd6c9d1a /loader.lisp | |
| parent | 42496930a65234c5cd32b10f1e5b0ef951749216 (diff) | |
GC the stream that was opened for make-target-2-load.lisp
Diffstat (limited to 'loader.lisp')
| -rw-r--r-- | loader.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/loader.lisp b/loader.lisp index 8688d414c..905493b45 100644 --- a/loader.lisp +++ b/loader.lisp @@ -1,4 +1,4 @@ -(defun load-sbcl-file (file) +(defun load-sbcl-file (file &optional (exit t)) (labels ((exit-sbcl (code) #+sbcl #.(if (eq :external (nth-value 1 (find-symbol "EXIT" :sb-ext))) @@ -15,4 +15,4 @@ (abort () :report "Abort building SBCL." (exit-sbcl 1))) - (exit-sbcl 0))) + (when exit (exit-sbcl 0)))) |