(setf (aref ucon_freqs (cui ucon2))
(make-instance 'ucon_freq :cui (cui ucon2) :lrl (lrl ucon2)
:pfstr (pfstr ucon2) :freq 1)))))
(let ((ucon_freq-list '()))
(dotimes (i (find-cui-max))
(declare (fixnum i))
(setf (aref ucon_freqs (cui ucon2))
(make-instance 'ucon_freq :cui (cui ucon2) :lrl (lrl ucon2)
:pfstr (pfstr ucon2) :freq 1)))))
(let ((ucon_freq-list '()))
(dotimes (i (find-cui-max))
(declare (fixnum i))