From 487243dba4467de347ed11697cc6adf938495755 Mon Sep 17 00:00:00 2001 From: Drew Crampsie Date: Tue, 29 Nov 2005 18:39:34 -0800 Subject: [PATCH 1/1] fixed autocomplete to be more specific darcs-hash:20051130023934-5417e-5b329459a416ae582da0fb024b7f0e8b19307670.gz --- src/lisp-on-lines.lisp | 3 +-- src/static-presentations.lisp | 2 +- src/validation.lisp | 1 - 3 files changed, 2 insertions(+), 4 deletions(-) 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 diff --git a/src/static-presentations.lisp b/src/static-presentations.lisp index bdc0b5e..bb5cf0d 100644 --- 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 - (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) diff --git a/src/validation.lisp b/src/validation.lisp index ed380a4..da39747 100644 --- 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 - -- 2.20.1