(defparameter *system-files-list*

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

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