(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
(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)