X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/01868954eb076e618ed5b9f9425e428628e9fdbf..684d95c7eb6ec755d38efacbc377e9e60ba7044e:/src/frontend.lisp

diff --git a/src/frontend.lisp b/src/frontend.lisp
index 92573e7..6fb9d2e 100644
--- a/src/frontend.lisp
+++ b/src/frontend.lisp
@@ -31,12 +31,6 @@
 (cl:in-package #:sod-frontend)
 
 ;;;--------------------------------------------------------------------------
-;;; Preparation for dumping.
-
-(clear-the-decks)
-(exercise)
-
-;;;--------------------------------------------------------------------------
 ;;; The main program.
 
 (defvar-unbound *option-parser*
@@ -238,6 +232,6 @@
 				      ~[~:; ~:*~D error~:P~[~:; and~]~:*~]~
 				      ~[~:; ~:*~D warning~:P~]~%"
 		      *program-name* nerror nwarn))
-	    (exit (if (plusp nerror) 2 0)))))))
+	    (uiop:quit (if (plusp nerror) 2 0)))))))
 
 ;;;----- That's all, folks --------------------------------------------------