 |
adding exit at the end of the script so it doesn't stay in interactive mode + f… |
 |
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit 2031387fa4e3079bf8d57e7b3e009b3305ec4c5a |
|
parent 0ff2a8a9d8d2d38a0998c17ce1a1098809051150 |
|
Author: solene rapenne <[email protected]> |
|
Date: Tue, 3 May 2016 14:11:44 +0200 |
|
|
|
adding exit at the end of the script so it doesn't stay in interactive mode + f… |
|
|
|
Diffstat: |
|
M generator.lisp | 8 +++----- |
|
|
|
1 file changed, 3 insertions(+), 5 deletions(-) |
|
--- |
|
diff --git a/generator.lisp b/generator.lisp |
|
@@ -16,8 +16,6 @@ |
|
|
|
;; common-lisp don't have a split string function natively |
|
;; thanks https://gist.github.com/siguremon/1174988 |
|
-(defun split-str (string &optional (separator " ")) |
|
- (split-str-1 string separator)) |
|
(defun split-str-1 (string &optional (separator " ") (r nil)) |
|
(let ((n (position separator string |
|
:from-end t |
|
@@ -26,7 +24,8 @@ |
|
(if n |
|
(split-str-1 (subseq string 0 n) separator (cons (subseq string (1+ n)… |
|
(cons string r)))) |
|
- |
|
+(defun split-str (string &optional (separator " ")) |
|
+ (split-str-1 string separator)) |
|
|
|
;; load a file as a string |
|
;; we escape ~ to avoid failures with format |
|
@@ -158,5 +157,4 @@ |
|
) |
|
|
|
(generate-site) |
|
- |
|
- |
|
+(exit) |
