projects
/
sheep
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add variable documentation
[sheep]
/
src
/
main
/
func.lisp
diff --git
a/src/main/func.lisp
b/src/main/func.lisp
index b3926a12be7156be199689ff4c4dad9cbe969313..68b05dcf7b473985df52b5c56450ea0f973f856e 100644
(file)
--- a/
src/main/func.lisp
+++ b/
src/main/func.lisp
@@
-161,10
+161,10
@@
(text-item)
(cond
((not (stringp text-item)) (list text-item))
(text-item)
(cond
((not (stringp text-item)) (list text-item))
- ((not (cl-ppcre:scan (c
ar remaining-keywords
) text-item)) (list text-item))
+ ((not (cl-ppcre:scan (c
l-ppcre:quote-meta-chars (car remaining-keywords)
) text-item)) (list text-item))
(t
(let
(t
(let
- ((split-text (cl-ppcre:split (c
ar remaining-keywords
) text-item :limit 1000)))
+ ((split-text (cl-ppcre:split (c
l-ppcre:quote-meta-chars (car remaining-keywords)
) text-item :limit 1000)))
(apply #'append
(list (car split-text))
(mapcar (lambda (ti) (list (list :keyword (car remaining-keywords)) ti)) (cdr split-text)))))))
(apply #'append
(list (car split-text))
(mapcar (lambda (ti) (list (list :keyword (car remaining-keywords)) ti)) (cdr split-text)))))))