(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)