(defparameter *system-files-list*

 '("basis-02.lisp"
   "keyboard-02.lisp"
   "editor-01.lisp"
   "windows-02.lisp"))

(mapcar #'(lambda (z) (let ((f (concatenate 'string "system/" z))) (load f) (compile-file f) (ed f))) *system-files-list*)