Got it working with CCL.
This commit is contained in:
parent
2240dea8ba
commit
f52ef504fd
3 changed files with 19 additions and 5 deletions
|
@ -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
9
example-ccl.post-receive
Normal 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
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue