(defparameter *sys-files*
  '(
    "msys-pack-i.lisp"
    "msys-pack.lisp"
    "emul-i.lisp"
    "emul-01.lisp"

    "comp-all.lisp"
     
    "comp-1.lisp"
    "comp-2.lisp"
    "comp-3.lisp"
    "comp-gen.lisp"
     
    "comp-test.lisp"))


  
(mapcar #'(lambda (z) (let () (load z) (compile-file z) (ed z))) *sys-files*)