Skip to content

Commit aeffac2

Browse files
scymtymscymtym
committed
data: Add Common Lisp specific words in a new file common-lisp.txt
1 parent 7b9e880 commit aeffac2

4 files changed

Lines changed: 141 additions & 3 deletions

File tree

‎code/english.lisp‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,8 @@
2020
filename)
2121
dictionary)))))
2222
(let ((dictionary (reduce #'load-file '("data/english.txt"
23-
"data/english-additions.txt")
23+
"data/english-additions.txt"
24+
"data/common-lisp.txt")
2425
:initial-value (make-instance 'dictionary))))
2526
(note "Compressing dictionary")
2627
(setf dictionary (compact dictionary))

‎data/common-lisp.txt‎

Lines changed: 134 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,134 @@
1+
;;; Sort with M-: (let ((sort-fold-case t)) (sort-lines nil (point-min) (point-max)))
2+
3+
"accessor" :base "accessor" :type :noun :number :singular
4+
"accessor's" :base "accessor" :type :noun :number :singular :case :genitive
5+
"accessors" :base "accessor" :type :noun :number :plural
6+
"accessors'" :base "accessor" :type :noun :number :plural :case :genitive
7+
8+
"ANSI" :base "ANSI" :type :noun :number :singular
9+
"ANSI's" :base "ANSI" :type :noun :number :singular :case :genitive
10+
11+
"Carnegie" :base "Carnegie" :type :proper-noun :number :singular
12+
"Carnegie's" :base "Carnegie" :type :proper-noun :number :singular :case :genitive
13+
14+
"CL" :base "CL" :type :noun :number :singular
15+
"CL's" :base "CL" :type :noun :number :singular :case :genitive
16+
17+
"cdr" :base "cdr" :type :noun :number :singular
18+
"cdr's" :base "cdr" :type :noun :number :singular :case :genitive
19+
"cdrs" :base "cdr" :type :noun :number :plural
20+
"cdrs'" :base "cdr" :type :noun :number :plural :case :genitive
21+
22+
"CLOS" :base "CLOS" :type :noun :number :singular
23+
"CLOS'" :base "CLOS" :type :noun :number :singular :case :genitive
24+
25+
"cons" :base "cons" :type :noun :number :singular
26+
"cons'" :base "cons" :type :noun :number :singular :case :genitive
27+
"conses" :base "cons" :type :noun :number :plural
28+
"conses'" :base "cons" :type :noun :number :plural :case :genitive
29+
30+
"cons" :base "cons" :type :verb :infinitive :self
31+
"consed" :base "cons" :type :verb :tense :past :strength :weak
32+
"consed" :base "cons" :type :verb :tense :perfect-participle :strength :weak
33+
"consing" :base "cons" :type :verb :tense :progressive
34+
35+
"designator" :base "designator" :type :noun :number :singular
36+
"designator's" :base "designator" :type :noun :number :singular :case :genitive
37+
"designators" :base "designator" :type :noun :number :plural
38+
"designators'" :base "designator" :type :noun :number :plural :case :genitive
39+
40+
"fixnum" :base "fixnum" :type :noun :number :singular
41+
"fixnum's" :base "fixnum" :type :noun :number :singular :case :genitive
42+
"fixnums" :base "fixnum" :type :noun :number :plural
43+
"fixnums'" :base "fixnum" :type :noun :number :plural :case :genitive
44+
45+
"initarg" :base "initarg" :type :noun :number :singular
46+
"initarg's" :base "initarg" :type :noun :number :singular :case :genitive
47+
"initargs" :base "initarg" :type :noun :number :plural
48+
"initargs'" :base "initarg" :type :noun :number :plural :case :genitive
49+
50+
"initform" :base "initform" :type :noun :number :singular
51+
"initform's" :base "initform" :type :noun :number :singular :case :genitive
52+
"initforms" :base "initform" :type :noun :number :plural
53+
"initforms'" :base "initform" :type :noun :number :plural :case :genitive
54+
55+
"Mellon" :base "Mellon" :type :proper-noun :number :singular
56+
"Mellon's" :base "Mellon" :type :proper-noun :number :singular :case :genitive
57+
58+
"metaclass" :base "metaclass" :type :noun :number :singular
59+
"metaclass'" :base "metaclass" :type :noun :number :singular :case :genitive
60+
"metaclasses" :base "metaclass" :type :noun :number :plural
61+
"metaclasses'" :base "metaclass" :type :noun :number :plural :case :genitive
62+
63+
"metaobject" :base "metaobject" :type :noun :number :singular
64+
"metaobject's" :base "metaobject" :type :noun :number :singular :case :genitive
65+
"metaobjects" :base "metaobject" :type :noun :number :plural
66+
"metaobjects'" :base "metaobject" :type :noun :number :plural :case :genitive
67+
68+
"mixin" :base "mixin" :type :noun :number :singular
69+
"mixin's" :base "mixin" :type :noun :number :singular :case :genitive
70+
"mixins" :base "mixin" :type :noun :number :plural
71+
"mixins'" :base "mixin" :type :noun :number :plural :case :genitive
72+
73+
"namestring" :base "namestring" :type :noun :number :singular
74+
"namestring's" :base "namestring" :type :noun :number :singular :case :genitive
75+
"namestrings" :base "namestring" :type :noun :number :plural
76+
"namestrings'" :base "namestring" :type :noun :number :plural :case :genitive
77+
78+
"newline" :base "newline" :type :noun :number :singular
79+
"newline's" :base "newline" :type :noun :number :singular :case :genitive
80+
"newlines" :base "newline" :type :noun :number :plural
81+
"newlines'" :base "newline" :type :noun :number :plural :case :genitive
82+
83+
"pathname" :base "pathname" :type :noun :number :singular
84+
"pathname's" :base "pathname" :type :noun :number :singular :case :genitive
85+
"pathnames" :base "pathname" :type :noun :number :plural
86+
"pathnames'" :base "pathname" :type :noun :number :plural :case :genitive
87+
88+
"progn" :base "progn" :type :noun :number :singular
89+
"progn's" :base "progn" :type :noun :number :singular :case :genitive
90+
"progns" :base "progn" :type :noun :number :plural
91+
"progns'" :base "progn" :type :noun :number :plural :case :genitive
92+
93+
"SBCL" :base "SBCL" :type :noun :number :singular
94+
"SBCL's" :base "SBCL" :type :noun :number :singular :case :genitive
95+
96+
"rational" :base "rational" :type :noun :number :singular
97+
"rational's" :base "rational" :type :noun :number :singular :case :genitive
98+
"rationals" :base "rational" :type :noun :number :plural
99+
"rationals'" :base "rational" :type :noun :number :plural :case :genitive
100+
101+
"readtable" :base "readtable" :type :noun :number :singular
102+
"readtable's" :base "readtable" :type :noun :number :singular :case :genitive
103+
"readtables" :base "readtable" :type :noun :number :plural
104+
"readtables'" :base "readtable" :type :noun :number :plural :case :genitive
105+
106+
"restart" :base "restart" :type :noun :number :singular
107+
"restart's" :base "restart" :type :noun :number :singular :case :genitive
108+
"restarts" :base "restart" :type :noun :number :plural
109+
"restarts'" :base "restart" :type :noun :number :plural :case :genitive
110+
111+
"specializer" :base "specializer" :type :noun :number :singular
112+
"specializer's" :base "specializer" :type :noun :number :singular :case :genitive
113+
"specializers" :base "specializer" :type :noun :number :plural
114+
"specializers'" :base "specializer" :type :noun :number :plural :case :genitive
115+
116+
"subexpression" :base "subexpression" :type :noun :number :singular
117+
"subexpression's" :base "subexpression" :type :noun :number :singular :case :genitive
118+
"subexpressions" :base "subexpression" :type :noun :number :plural
119+
"subexpressions'" :base "subexpression" :type :noun :number :plural :case :genitive
120+
121+
"subform" :base "subform" :type :noun :number :singular
122+
"subform's" :base "subform" :type :noun :number :singular :case :genitive
123+
"subforms" :base "subform" :type :noun :number :plural
124+
"subforms'" :base "subform" :type :noun :number :plural :case :genitive
125+
126+
"tagbody" :base "tagbody" :type :noun :number :singular
127+
"tagbody's" :base "tagbody" :type :noun :number :singular :case :genitive
128+
"tagbodies" :base "tagbody" :type :noun :number :plural
129+
"tagbodies'" :base "tagbody" :type :noun :number :plural :case :genitive
130+
131+
"truename" :base "truename" :type :noun :number :singular
132+
"truename's" :base "truename" :type :noun :number :singular :case :genitive
133+
"truenames" :base "truename" :type :noun :number :plural
134+
"truenames'" :base "truename" :type :noun :number :plural :case :genitive

‎spell.asd‎

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -35,12 +35,14 @@
3535
(:module "english-dictionary-data"
3636
:pathname "data"
3737
:components ((:static-file "english.txt")
38-
(:static-file "english-additions.txt")))
38+
(:static-file "english-additions.txt")
39+
(:static-file "common-lisp.txt")))
3940

4041
(:module "english-dictionary"
4142
:pathname "code"
4243
:depends-on ("code"
4344
"english-dictionary-data")
45+
;; TODO separate english code and english dict dump
4446
:components ((:file "english"))))
4547

4648
:in-order-to ((test-op (test-op "spell/test"))))

‎test/utilities.lisp‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,8 @@
1414

1515
(defun map-dictionary-entries (function
1616
&key (files '("data/english.txt"
17-
"data/english-additions.txt")))
17+
"data/english-additions.txt"
18+
"data/common-lisp.txt")))
1819
(mapc (lambda (file)
1920
(with-open-file (stream (asdf:system-relative-pathname
2021
"spell/test" file))

0 commit comments

Comments
 (0)