(in-package :lkb)

(setf *display-type-hierarchy-on-load* nil)

(setf *toptype* 'top)

(setf *string-type* 'string)

(setf *list-tail* '(rest))

(setf *list-head* '(first))

(setf *empty-list-type* 'null)

(setf *list-type* 'list)

(setf *diff-list-type* 'diff-list)

(setf *diff-list-list* 'list)

(setf *diff-list-last* 'last)

;(setf *translate-grid* '(:any . (:hau :isl :zul)))

(setf *translate-grid* '(:any . (:arb :eng :epo :fas :fin :hai :hau :heb :hye :isl :ita :mal :spa :zul)))