From f27172a1f7ba4211312f12836944ae47edd30153 Mon Sep 17 00:00:00 2001
From: Brit Butler <redline6561@gmail.com>
Date: Tue, 23 Sep 2014 17:27:21 -0400
Subject: [PATCH] Last minute backwards compatibility fix for people on very
 old SBCLs.

---
 examples/example.post-receive | 4 ++--
 src/util.lisp                 | 8 ++------
 2 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/examples/example.post-receive b/examples/example.post-receive
index c89c3f4..698ae72 100644
--- a/examples/example.post-receive
+++ b/examples/example.post-receive
@@ -25,9 +25,9 @@ while read oldrev newrev refname; do
         if [ $LISP = sbcl ]; then
             sbcl --eval "(ql:quickload 'coleslaw)" \
                  --eval "(coleslaw:main \"$TMP_GIT_CLONE\" \"$oldrev\")" \
-                 --eval "(coleslaw::exit)"
+                 --eval "(uiop:quit)"
         elif [ $LISP = ccl ]; then
-            ccl -e "(ql:quickload 'coleslaw) (coleslaw:main \"$TMP_GIT_CLONE\" \"$oldrev\") (coleslaw::exit)"
+            ccl -e "(ql:quickload 'coleslaw) (coleslaw:main \"$TMP_GIT_CLONE\" \"$oldrev\") (uiop:quit)"
         else
             echo -e "$LISP is not a supported lisp dialect at this time. Exiting.\n"
             exit 1
diff --git a/src/util.lisp b/src/util.lisp
index 1811bde..1862ec3 100644
--- a/src/util.lisp
+++ b/src/util.lisp
@@ -54,13 +54,9 @@ an UNWIND-PROTECT, then change back to the current directory."
          (setf (getcwd) ,old)))))
 
 (defun exit ()
+  ;; KLUDGE: Just call UIOP for now. Don't want users updating scripts.
   "Exit the lisp system returning a 0 status code."
-  #+sbcl (sb-ext:exit)
-  #+ccl (ccl:quit)
-  #+ecl (si:quit)
-  #+cmucl (ext:quit)
-  #+clisp (ext:quit)
-  #-(or sbcl ccl ecl cmucl clisp) (error "Not implemented yet."))
+  (uiop:quit))
 
 (defun fmt (fmt-str args)
   "A convenient FORMAT interface for string building."