X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=sheep;a=blobdiff_plain;f=src%2Fmain%2Ffunc.lisp;h=68b05dcf7b473985df52b5c56450ea0f973f856e;hp=b3926a12be7156be199689ff4c4dad9cbe969313;hb=0d2cc28;hpb=2d880c9656734ae0ae9f18b9b8e9a889236e38f8

diff --git a/src/main/func.lisp b/src/main/func.lisp
index b3926a1..68b05dc 100644
--- a/src/main/func.lisp
+++ b/src/main/func.lisp
@@ -161,10 +161,10 @@
         (text-item)
         (cond
          ((not (stringp text-item)) (list text-item))
-         ((not (cl-ppcre:scan (car remaining-keywords) text-item)) (list text-item))
+         ((not (cl-ppcre:scan (cl-ppcre:quote-meta-chars (car remaining-keywords)) text-item)) (list text-item))
          (t
           (let
-           ((split-text (cl-ppcre:split (car remaining-keywords) text-item :limit 1000)))
+           ((split-text (cl-ppcre:split (cl-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)))))))