-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy pathlanguage-afrikaans.lisp
134 lines (91 loc) · 3.37 KB
/
language-afrikaans.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
(cl:in-package #:acclimation)
(defclass afrikaans (language)
())
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Methods on LONG-DAY-NAME.
(defmethod long-day-name ((day (eql 1)) (language afrikaans))
"Maandag")
(defmethod long-day-name ((day (eql 2)) (language afrikaans))
"Dinsdag")
(defmethod long-day-name ((day (eql 3)) (language afrikaans))
"Woensdag")
(defmethod long-day-name ((day (eql 4)) (language afrikaans))
"Donderdag")
(defmethod long-day-name ((day (eql 5)) (language afrikaans))
"Vrydag")
(defmethod long-day-name ((day (eql 6)) (language afrikaans))
"Saterdag")
(defmethod long-day-name ((day (eql 7)) (language afrikaans))
"Sondag")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Methods on SHORT-DAY-NAME.
(defmethod short-day-name ((day (eql 1)) (language afrikaans))
"Ma")
(defmethod short-day-name ((day (eql 2)) (language afrikaans))
"Di")
(defmethod short-day-name ((day (eql 3)) (language afrikaans))
"Wo")
(defmethod short-day-name ((day (eql 4)) (language afrikaans))
"Do")
(defmethod short-day-name ((day (eql 5)) (language afrikaans))
"Vr")
(defmethod short-day-name ((day (eql 6)) (language afrikaans))
"Sa")
(defmethod short-day-name ((day (eql 7)) (language afrikaans))
"So")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Methods on LONG-MONTH-NAME.
(defmethod long-month-name ((month (eql 1)) (langauge afrikaans))
"Januarie")
(defmethod long-month-name ((month (eql 2)) (langauge afrikaans))
"Februarie")
(defmethod long-month-name ((month (eql 3)) (langauge afrikaans))
"Maart")
(defmethod long-month-name ((month (eql 4)) (langauge afrikaans))
"April")
(defmethod long-month-name ((month (eql 5)) (langauge afrikaans))
"Mei")
(defmethod long-month-name ((month (eql 6)) (langauge afrikaans))
"Junie")
(defmethod long-month-name ((month (eql 7)) (langauge afrikaans))
"Julie")
(defmethod long-month-name ((month (eql 8)) (langauge afrikaans))
"Augustus")
(defmethod long-month-name ((month (eql 9)) (langauge afrikaans))
"September")
(defmethod long-month-name ((month (eql 10)) (langauge afrikaans))
"Oktober")
(defmethod long-month-name ((month (eql 11)) (langauge afrikaans))
"November")
(defmethod long-month-name ((month (eql 12)) (langauge afrikaans))
"Desember")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Methods on SHORT-MONTH-NAME.
(defmethod short-month-name ((month (eql 1)) (langauge afrikaans))
"Jan")
(defmethod short-month-name ((month (eql 2)) (langauge afrikaans))
"Feb")
(defmethod short-month-name ((month (eql 3)) (langauge afrikaans))
"Maa")
(defmethod short-month-name ((month (eql 4)) (langauge afrikaans))
"Apr")
(defmethod short-month-name ((month (eql 5)) (langauge afrikaans))
"Mei")
(defmethod short-month-name ((month (eql 6)) (langauge afrikaans))
"Jun")
(defmethod short-month-name ((month (eql 7)) (langauge afrikaans))
"Jul")
(defmethod short-month-name ((month (eql 8)) (langauge afrikaans))
"Aug")
(defmethod short-month-name ((month (eql 9)) (langauge afrikaans))
"Sep")
(defmethod short-month-name ((month (eql 10)) (langauge afrikaans))
"Okt")
(defmethod short-month-name ((month (eql 11)) (langauge afrikaans))
"Nov")
(defmethod short-month-name ((month (eql 12)) (langauge afrikaans))
"Des")