Changeset 2641
- Timestamp:
- 03/03/08 09:50:05 (10 months ago)
- Files:
-
- trunk/bknr/modules/text/vector-search.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/bknr/modules/text/vector-search.lisp
r1542 r2641 27 27 (let ((hash (make-hash-table :test #'equal))) 28 28 (cl-ppcre:do-matches-as-strings (m *word-scanner* string) 29 (let ((word (stem (string-downcase m))))29 (let ((word (stem:stem (string-downcase m)))) 30 30 (incf-hash word hash))) 31 31 (make-search-vector hash)))
