(setf (get 'bootfunx 'type) 'entityfile)
(setf (get 'bootfunx 'latest-rearchived) 'ap-0006)
(setf (get 'bootfunx 'in-categories) 'nil)
(setf (get 'bootfunx 'latest-written) '"2010-04-19/07:04.+01")
(setf (get 'bootfunx 'contents) '(seq& (bootfunx leoboot-x)))
(setf (get 'bootfunx 'has-purpose) 'nil)
(setf (get 'bootfunx 'has-author) 'nil)
(setf (get 'bootfunx 'requires) 'nil)
(setf (get 'bootfunx 'mustload) 'nil)
(setf (get 'bootfunx 'leos-extension) '".lsp")
(setf (get 'bootfunx 'has-profile) 'nil)
(setf (get 'bootfunx 'overlay-on) 'nil)
(setf (get 'bootfunx 'overlay-types) 'nil)
(setf (get 'bootfunx 'overlay-own) 'nil)
(setf (get 'bootfunx 'leos-use) 'nil)
(setf (get 'bootfunx 'dont-display) 'nil)
(setf (get 'bootfunx 'sections) 'nil)
(setf (get 'bootfunx 'local-ents) 'nil)
(setf (get 'bootfunx 'changed-since-archived) 'nil)
(setf (get 'bootfunx 'purpose) 'nil)
(setf (get 'bootfunx 'author) 'nil)
(setf (get 'bootfunx 'latest-archived-entity) 'ap-0052)


(setf (get 'leoboot-x 'type) 'lispdef)
(setf (get 'leoboot-x 'latest-rearchived) 'ap-0006)
(setf (get 'leoboot-x 'in-categories) 'nil)
(defun leoboot ()(prog (j r cmd)
   (setq j (open "../mobile/host-cat.leo" :direction :input))
   (princ j)(terpri)
   (load "..\\mobile\\cl\\host-cat.lsp")
   (setq j (open "../temp/_compnam.sii" :direction :input))
   (setq r (read-line j))
   (close j)
   (setq r (subseq r 0 (- (length r) 1)))
   (setq host (intern r))
   (setq cmd (concatenate 'string 
       (get host 'has-allegro-path)
       "mlisp.exe -L Boot/cl/"
       (string (or (get *myconfig* 'execfile) *myconfig*))
       ".leos" ))
   (princ cmd)(terpri)
   (system cmd)
   (exit)
      ))

