A => package.lisp +3 -0
@@ 0,0 1,3 @@
+(defpackage :com.nprescott.stemmer
+ (:use :common-lisp)
+ (:export :stem))
M stemmer.lisp +1 -2
@@ 1,5 1,4 @@
-;;; Porter 2-style word stemming for english
-;;; a hacked up port of github.com/kljensen/snowball
+(in-package :com.nprescott.stemmer)
(defclass stemword ()
((str :accessor str :initarg :str)