marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Brit Butler 2014-09-23 17:27:21 -04:00
parent c7fc38b73c
commit f27172a1f7
2 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/example.post-receive
View file

@ -25,9 +25,9 @@ while read oldrev newrev refname; do
if [ $LISP = sbcl ]; then if [ $LISP = sbcl ]; then
sbcl --eval "(ql:quickload 'coleslaw)" \ sbcl --eval "(ql:quickload 'coleslaw)" \
--eval "(coleslaw:main \"$TMP_GIT_CLONE\" \"$oldrev\")" \ --eval "(coleslaw:main \"$TMP_GIT_CLONE\" \"$oldrev\")" \
--eval "(coleslaw::exit)" --eval "(uiop:quit)"
elif [ $LISP = ccl ]; then 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 else
echo -e "$LISP is not a supported lisp dialect at this time. Exiting.\n" echo -e "$LISP is not a supported lisp dialect at this time. Exiting.\n"
exit 1 exit 1

8
src/util.lisp
View file

@ -54,13 +54,9 @@ an UNWIND-PROTECT, then change back to the current directory."
(setf (getcwd) ,old))))) (setf (getcwd) ,old)))))
(defun exit () (defun exit ()
;; KLUDGE: Just call UIOP for now. Don't want users updating scripts.
"Exit the lisp system returning a 0 status code." "Exit the lisp system returning a 0 status code."
#+sbcl (sb-ext:exit) (uiop:quit))
#+ccl (ccl:quit)
#+ecl (si:quit)
#+cmucl (ext:quit)
#+clisp (ext:quit)
#-(or sbcl ccl ecl cmucl clisp) (error "Not implemented yet."))
(defun fmt (fmt-str args) (defun fmt (fmt-str args)
"A convenient FORMAT interface for string building." "A convenient FORMAT interface for string building."