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

Got it working with CCL.

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

9
coleslaw.asd
View file

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

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