Last minute backwards compatibility fix for people on very old SBCLs.

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

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."