(defparameter *sys-files*
  '(
    "meval-pack-i.lisp"
    "meval-pack.lisp"
    "comp-macro.lisp"
    "msys-pack-i.lisp"
    "msys-pack.lisp"
    "emul-i.lisp"
    "emul-02.lisp"

    "comp-all.lisp"
     
    "comp-1.lisp"
    "comp-defstruct.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*)

;(defun refresh ()
;  (mapcar #'(lambda (z) (load z) (compile-file z)) '("msys-pack.lisp" "comp-test.lisp")))