fixed autocomplete to be more specific

darcs-hash:20051130023934-5417e-5b329459a416ae582da0fb024b7f0e8b19307670.gz

diff --git a/src/lisp-on-lines.lisp b/src/lisp-on-lines.lisp
index ca00bc5..31892be 100644 (file)
--- 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)
 
 
 (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 
 
 (defmethod word-search-where (class-name slots search-terms &key (format-string "%~a%"))
   (sql-or 

diff --git a/src/static-presentations.lisp b/src/static-presentations.lisp
index bdc0b5e..bb5cf0d 100644 (file)
--- a/src/static-presentations.lisp
+++ b/src/static-presentations.lisp
@@ -561,7 +561,7 @@ This method is also used by relation-slot-presentations for the same reason."))
   (unless (string= "" value)
     (let ((i (parse-integer value :junk-allowed t)))
       (when i
   (unless (string= "" value)
     (let ((i (parse-integer value :junk-allowed t)))
       (when i

-       (setf (presentation-slot-value slot instance) (parse-integer value))))))
+       (setf (presentation-slot-value slot instance) i)))))

 
 (defmethod present-slot ((slot integer-slot-presentation) instance)
   (if (editablep slot)
 
 (defmethod present-slot ((slot integer-slot-presentation) instance)
   (if (editablep slot)

diff --git a/src/validation.lisp b/src/validation.lisp
index ed380a4..da39747 100644 (file)
--- a/src/validation.lisp
+++ b/src/validation.lisp
@@ -81,4 +81,3 @@ Returns T if the ATTRIBUTE-VALUE in INSTANCE passes all the validation functions
 
 
 
 
 
 

-