adding exit at the end of the script so it doesn't stay in interactive mode + fix declaration order - cl-yag - Common Lisp Yet Another website Generator
HTML git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
DIR LICENSE
---
DIR commit 2031387fa4e3079bf8d57e7b3e009b3305ec4c5a
DIR parent 0ff2a8a9d8d2d38a0998c17ce1a1098809051150
HTML Author: solene rapenne <solene@dataswamp.org>
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 + fix declaration order
Diffstat:
M generator.lisp | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
---
DIR 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)) r))
(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)