diff options
| author | Logan Hunt <loganhunt@simponic.xyz> | 2022-06-04 13:09:39 -0700 |
|---|---|---|
| committer | Logan Hunt <loganhunt@simponic.xyz> | 2022-06-04 13:09:39 -0700 |
| commit | 6dadca779691ae29c5a2bbfb4f2c2d101ca44911 (patch) | |
| tree | d628ab0cb95370a032a201d1502095c58d327410 /config.lisp | |
| parent | f272429796f6b9bb1d9d39373d196dc08a499e69 (diff) | |
| download | lispruns-6dadca779691ae29c5a2bbfb4f2c2d101ca44911.tar.gz lispruns-6dadca779691ae29c5a2bbfb4f2c2d101ca44911.zip | |
Added more CLI options
Diffstat (limited to 'config.lisp')
| -rw-r--r-- | config.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/config.lisp b/config.lisp index bdb11ca..31f1f58 100644 --- a/config.lisp +++ b/config.lisp @@ -15,7 +15,7 @@ (defun sections (lines &optional (section-list '()) (current-section "") (current-section-list '())) (if (not lines) (cond - ((> (length current-section) 0) + ((nonempty-p current-section) (cons (list current-section current-section-list) section-list)) (t section-list)) (let* ((line (car lines)) @@ -24,7 +24,7 @@ ((= linelen 0) (sections (cdr lines) section-list current-section current-section-list)) ((and (equal #\[ (char line 0)) (equal #\] (char line (1- linelen)))) - (sections (cdr lines) (unless (= (length current-section) 0) + (sections (cdr lines) (unless (not (nonempty-p current-section)) (cons (list current-section current-section-list) section-list)) (subseq line 1 (1- linelen)))) (t |