Lines Matching defs:list
15 (defstruct word-list
17 (sorted nil :type list)
76 (dolist (name (list* "HANGUL SYLLABLE" "CJK COMPATIBILITY" (mapcar #'unicode-char-name all-chars)))
88 (make-word-list
92 (let ((word-list (aref words-by-length len)))
93 (unless (gethash word (word-list-hashed word-list))
94 (setf (gethash word (word-list-hashed word-list)) t)
95 (push word (word-list-sorted word-list))
104 (make-word-list
108 (let ((word-list (aref words-by-length len)))
109 (setf (word-list-sorted word-list)
110 (sort (word-list-sorted word-list) #'string<)
112 (setf (word-list-size word-list)
113 (reduce #'+ (mapcar #'length (word-list-sorted word-list)))
115 (setf (word-list-length word-list)
116 (length (word-list-sorted word-list))
131 (let ((word-list (aref words-by-length len)))
132 (incf sum (word-list-size word-list))
137 (let ((word-list (aref words-by-length len)))
138 (dolist (word (word-list-sorted word-list))
139 (format ostream " ~{ '~C',~}~%" (coerce word 'list))
145 (let ((word-list (aref words-by-length len)))
146 (incf sum (word-list-length word-list))
154 (let ((word-list (aref words-by-length len)))
155 (incf sum (word-list-length word-list))
160 (let ((word-list (aref words-by-length len)))
161 (when (word-list-sorted word-list)
163 (do ((l (word-list-sorted word-list) (cdr l))
178 (let ((word-list (aref words-by-length len)))
180 (incf extra-offset (word-list-size word-list))
181 (incf ind-offset (word-list-length word-list))
188 (let ((word-list (aref words-by-length len)))
189 (dolist (word (word-list-sorted word-list))
190 (setf (gethash word (word-list-hashed word-list)) ind-offset)
195 (gethash word (word-list-hashed (aref words-by-length (length word))))
207 (push (gethash word (word-list-hashed (aref words-by-length len)))
217 ;; Sort the list of unicode-chars by word-indices.
244 (coerce (unicode-char-word-indices uc) 'list)
272 (dolist (uc (sort (copy-list all-chars) #'< :key #'unicode-char-code))