X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/937d96b50df043aa12acbdd57f292ba13926f6cc..487243dba4467de347ed11697cc6adf938495755:/src/lisp-on-lines.lisp?ds=sidebyside

diff --git a/src/lisp-on-lines.lisp b/src/lisp-on-lines.lisp
index ca00bc5..31892be 100644
--- a/src/lisp-on-lines.lisp
+++ b/src/lisp-on-lines.lisp
@@ -101,8 +101,7 @@ This involves creating a meta-model, a clsql view-class, and the setting up the
 
 
 (defmethod word-search (class-name slots (s string) &rest args)
-  (apply #'word-search class-name slots 
-	 (split-sequence:split-sequence #\Space s) args))
+  (apply #'word-search class-name slots (list s) args))
 
 (defmethod word-search-where (class-name slots search-terms &key (format-string "%~a%"))
   (sql-or