(setf (get 'host-cat 'type) 'entityfile)
(setf (get 'host-cat 'latest-rearchived) 'nil)
(setf (get 'host-cat 'in-categories) 'nil)
(setf (get 'host-cat 'latest-written) '"2009-10-11/10:33")
(setf (get 'host-cat 'contents)
      '(seq&
        (host-cat)))
(setf (get 'host-cat 'purpose) 'nil)
(setf (get 'host-cat 'author) 'nil)
(setf (get 'host-cat 'requires) 'nil)
(setf (get 'host-cat 'mustload) 'nil)
(setf (get 'host-cat 'leos-extension) '".lsp")
(setf (get 'host-cat 'profile) 'nil)
(setf (get 'host-cat 'overlay-on) 'nil)
(setf (get 'host-cat 'overlay-types) 'nil)
(setf (get 'host-cat 'overlay-own) 'nil)
(setf (get 'host-cat 'leos-use) 'nil)
(setf (get 'host-cat 'dont-display) 'nil)
(setf (get 'host-cat 'sections) 'nil)
(setf (get 'host-cat 'local-ents) 'nil)
(setf (get 'host-cat 'changed-since-archived) 't)
(setf (get 'host-cat 'latest-archived-entity) 'nil)


