(defparameter *sys-files*
  '(
    "msys-pack-i.lisp"
    "msys-pack.lisp"
    "emul-i.lisp"
    "emul-01.lisp"
    "comp-xp-05.lisp"))
  
(mapcar #'(lambda (z) (let () (load z) (ed z))) *sys-files*)