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

Add exit function and use it in post-receive script. Fixes Issue #13.

Browse source
This commit is contained in:
Brit Butler 2013-02-01 10:47:37 -05:00
parent 9f72bff710
commit c706964880
3 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
NEWS.md
View file

@ -4,6 +4,7 @@
* Add support for Restructured Text via cl-docutils. * Add support for Restructured Text via cl-docutils.
* Add support for deploying to Amazon S3. * Add support for deploying to Amazon S3.
* Add a heroku plugin to ease hunchentoot deployments. (thanks @jsmpereira!) * Add a heroku plugin to ease hunchentoot deployments. (thanks @jsmpereira!)
* Ensure coleslaw exits after MAIN. Fixes issue #13.
## Changes for 0.8 (2013-01-06): ## Changes for 0.8 (2013-01-06):

8
examples/example.post-receive
View file

@ -1,6 +1,6 @@
########## CONFIGURATION VALUES ########## ########## CONFIGURATION VALUES ##########
# TMP_GIT_CLONE _must_ match one of the following in coleslawrc: # TMP_GIT_CLONE _must_ match one of the following in coleslawrc:
# * The :repo argument (for a single-site setup) _or_ # * The :repo argument (for a single-site setup) _or_
# * An alist key (for a multi-site setup) # * An alist key (for a multi-site setup)
TMP_GIT_CLONE=$HOME/tmp/improvedmeans/ TMP_GIT_CLONE=$HOME/tmp/improvedmeans/
@ -23,9 +23,11 @@ fi
git clone $GIT_REPO $TMP_GIT_CLONE || exit 1 git clone $GIT_REPO $TMP_GIT_CLONE || exit 1
if [ $LISP = sbcl ]; then if [ $LISP = sbcl ]; then
sbcl --eval "(ql:quickload 'coleslaw)" --eval "(coleslaw:main \"$TMP_GIT_CLONE\")" sbcl --eval "(ql:quickload 'coleslaw)" \
--eval "(coleslaw:main \"$TMP_GIT_CLONE\")" \
--eval "(coleslaw::exit)"
elif [ $LISP = ccl ]; then elif [ $LISP = ccl ]; then
echo "(ql:quickload 'coleslaw)(coleslaw:main \"$TMP_GIT_CLONE\")" | ccl -b echo "(ql:quickload 'coleslaw)(coleslaw:main \"$TMP_GIT_CLONE\")(coleslaw::exit)" | ccl -b
else else
exit 1 exit 1
fi fi

9
src/util.lisp
View file

@ -47,6 +47,15 @@ on files that match the given extension."
#+clisp (ext:cd path) #+clisp (ext:cd path)
#-(or sbcl ccl ecl cmucl clisp) (error "Not implemented yet.")) #-(or sbcl ccl ecl cmucl clisp) (error "Not implemented yet."))
(defun exit ()
"Exit the lisp system returning a 0 status code."
#+sbcl (sb-ext:quit)
#+ccl (ccl:quit)
#+ecl (si:quit)
#+cmucl (ext:quit)
#+clisp (ext:quit)
#-(or sbcl ccl ecl clisp) (error "Not implemented yet."))
(defmacro with-current-directory (path &body body) (defmacro with-current-directory (path &body body)
"Change the current OS directory to PATH and execute BODY in "Change the current OS directory to PATH and execute BODY in
an UNWIND-PROTECT, then change back to the current directory." an UNWIND-PROTECT, then change back to the current directory."