Got it working with CCL.

This commit is contained in:
Ralph Moeritz 2012-11-25 20:46:22 +00:00 committed by Ralph Moritz
parent 2240dea8ba
commit f52ef504fd
3 changed files with 19 additions and 5 deletions

View file

@ -5,8 +5,13 @@
:license "BSD"
:author "Brit Butler <redline6561@gmail.com>"
:pathname "src/"
:depends-on (:closure-template :3bmd :3bmd-ext-code-blocks
:alexandria :local-time :trivial-shell :cl-fad)
:depends-on (:closure-template
:3bmd
:3bmd-ext-code-blocks
:alexandria
:local-time
:inferior-shell
:cl-fad)
:serial t
:components ((:file "packages")
(:file "util")

9
example-ccl.post-receive Normal file
View file

@ -0,0 +1,9 @@
GIT_REPO=$HOME/lisp-is-fun.git
# TMP_GIT_CLONE _must_ match the :repo arg in coleslawrc excluding trailing slash
TMP_GIT_CLONE=$HOME/lisp-is-fun/tmp
git clone $GIT_REPO $TMP_GIT_CLONE
echo "(ql:quickload :coleslaw)
(coleslaw:main)" | ccl -b
rm -Rf $TMP_GIT_CLONE
exit

View file

@ -8,7 +8,7 @@ If ARGS is provided, use (apply 'format nil PATH ARGS) as the value of PATH."
(defun run-program (program &rest args)
"Take a PROGRAM and execute the corresponding shell command. If ARGS is provided,
use (apply 'format nil PROGRAM ARGS) as the value of PROGRAM."
(trivial-shell:shell-command (apply 'format nil program args)))
(inferior-shell:run (apply 'format nil program args) :show t))
(defun update-symlink (path target)
"Update the symlink at PATH to point to TARGET."
@ -28,7 +28,7 @@ on files that match the given extension."
(defun current-directory ()
"Return the operating system's current directory."
#+sbcl (sb-posix:getcwd)
#+ccl (current-directory)
#+ccl (ccl:current-directory)
#+ecl (si:getcwd)
#+cmucl (unix:unix-current-directory)
#+clisp (ext:cd)
@ -37,7 +37,7 @@ on files that match the given extension."
(defun (setf current-directory) (path)
"Change the operating system's current directory to PATH."
#+sbcl (sb-posix:chdir path)
#+ccl (setf (current-directory) path)
#+ccl (setf (ccl:current-directory) path)
#+ecl (si:chdir path)
#+cmucl (unix:unix-chdir (namestring path))
#+clisp (ext:cd path)