Coverage report: /home/ellis/comp/core/lib/nlp/data.lisp

Kind	Covered	All	%
expression	8	12	66.7
branch	0	0	nil

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

(in-package :nlp/data)

2

3

(defclass language-data ()

4

((stop-words

5

:initarg :stop-words

6

:accessor stop-words

7

:initform

8

(list "a" "able" "about" "above" "according" "accordingly" "across" "actually" "after"

9

"afterwards" "again" "against" "ain't" "all" "allow" "allows" "almost" "alone"

10

"along" "already" "also" "although" "always" "am" "among" "amongst" "an" "and"

11

"another" "any" "anybody" "anyhow" "anyone" "anything" "anyway" "anyways" "anywhere"

12

"apart" "appear" "appreciate" "appropriate" "are" "aren't" "around" "as" "a's" "aside"

13

           "ask" "asking" "associated" "at" "available" "away" "awfully" "be" "became" "because" "become"

14

           "becomes" "becoming" "been" "before" "beforehand" "behind" "being" "believe" "below" "beside"

15

           "besides" "best" "better" "between" "beyond" "both" "brief" "but" "by" "came" "can" "cannot"

16

           "cant" "can't" "cause" "causes" "certain" "certainly" "changes" "clearly" "c'mon" "co" "com"

17

"come" "comes" "concerning" "consequently" "consider" "considering" "contain" "containing"

18

           "contains" "corresponding" "could" "couldn't" "course" "c's" "currently" "definitely" "described"

19

           "despite" "did" "didn't" "different" "do" "does" "doesn't" "doing" "don" "done" "don't" "down"

20

           "downwards" "during" "each" "edu" "eg" "eight" "either" "else" "elsewhere" "enough" "entirely"

21

           "especially" "et" "etc" "even" "ever" "every" "everybody" "everyone" "everything" "everywhere"

22

           "ex" "exactly" "example" "except" "far" "few" "fifth" "first" "five" "followed" "following" "follows"

23

           "for" "former" "formerly" "forth" "four" "from" "further" "furthermore" "get" "gets" "getting" "given"

24

           "gives" "go" "goes" "going" "gone" "got" "gotten" "greetings" "had" "hadn't" "happens" "hardly" "has"

25

           "hasn't" "have" "haven't" "having" "he" "he'd" "he'll" "hello" "help" "hence" "her" "here" "hereafter"

26

           "hereby" "herein" "here's" "hereupon" "hers" "herself" "he's" "hi" "him" "himself" "his" "hither"

27

           "hopefully" "how" "howbeit" "however" "how's" "i" "i'd" "ie" "if" "ignored" "i'll" "i'm" "immediate"

28

           "in" "inasmuch" "inc" "indeed" "indicate" "indicated" "indicates" "inner" "insofar" "instead" "into"

29

           "inward" "is" "isn't" "it" "it'd" "it'll" "its" "it's" "itself" "i've" "just" "keep" "keeps" "kept"

30

           "know" "known" "knows" "last" "lately" "later" "latter" "latterly" "least" "less" "lest" "let" "let's"

31

           "like" "liked" "likely" "little" "look" "looking" "looks" "ltd" "mainly" "many" "may" "maybe" "me"

32

           "mean" "meanwhile" "merely" "might" "more" "moreover" "most" "mostly" "much" "must" "mustn't" "my"

33

           "myself" "name" "namely" "nd" "near" "nearly" "necessary" "need" "needs" "neither" "never" "nevertheless"

34

           "new" "next" "nine" "no" "nobody" "non" "none" "noone" "nor" "normally" "not" "nothing" "novel" "now"

35

           "nowhere" "obviously" "of" "off" "often" "oh" "ok" "okay" "old" "on" "once" "one" "ones" "only" "onto"

36

           "or" "other" "others" "otherwise" "ought" "our" "ours" "ourselves" "out" "outside" "over" "overall" "own"

37

           "particular" "particularly" "per" "perhaps" "placed" "please" "plus" "possible" "presumably" "probably"

38

           "provides" "que" "quite" "qv" "rather" "rd" "re" "really" "reasonably" "regarding" "regardless" "regards"

39

           "relatively" "respectively" "right" "s" "said" "same" "saw" "say" "saying" "says" "second" "secondly" "see"

40

           "seeing" "seem" "seemed" "seeming" "seems" "seen" "self" "selves" "sensible" "sent" "serious" "seriously"

41

           "seven" "several" "shall" "shan't" "she" "she'd" "she'll" "she's" "should" "shouldn't" "since" "six" "so"

42

           "some" "somebody" "somehow" "someone" "something" "sometime" "sometimes" "somewhat" "somewhere" "soon" "sorry"

43

           "specified" "specify" "specifying" "still" "sub" "such" "sup" "sure" "t" "take" "taken" "tell" "tends" "th"

44

           "than" "thank" "thanks" "thanx" "that" "thats" "that's" "the" "their" "theirs" "them" "themselves" "then"

45

           "thence" "there" "thereafter" "thereby" "therefore" "therein" "theres" "there's" "thereupon" "these" "they"

46

           "they'd" "they'll" "they're" "they've" "think" "third" "this" "thorough" "thoroughly" "those" "though"

47

           "three" "through" "throughout" "thru" "thus" "to" "together" "too" "took" "toward" "towards" "tried"

48

           "tries" "truly" "try" "trying" "t's" "twice" "two" "un" "under" "unfortunately" "unless" "unlikely"

49

           "until" "unto" "up" "upon" "us" "use" "used" "useful" "uses" "using" "usually" "value" "various" "very"

50

           "via" "viz" "vs" "want" "wants" "was" "wasn't" "way" "we" "we'd" "welcome" "well" "we'll" "went" "were"

51

           "we're" "weren't" "we've" "what" "whatever" "what's" "when" "whence" "whenever" "when's" "where"

52

           "whereafter" "whereas" "whereby" "wherein" "where's" "whereupon" "wherever" "whether" "which" "while"

53

           "whither" "who" "whoever" "whole" "whom" "who's" "whose" "why" "why's" "will" "willing" "wish" "with"

54

           "within" "without" "wonder" "won't" "would" "wouldn't" "yes" "yet" "you" "you'd" "you'll" "your"

55

"you're" "yours" "yourself" "yourselves" "you've" "zero"))

56

(stop-words-lookup :accessor stop-words-lookup)))

57

58

(defmethod initialize-instance :after ((data language-data) &key)

59

(setf (stop-words-lookup data)

60

(loop with ht = (make-hash-table :test #'equal)

61

for stop in (stop-words data)

62

do (setf (gethash stop ht) t)

63

finally (return ht))))

64

65

(defparameter *language-data* (make-instance 'language-data))