(mapcar #'(lambda (z) (load z) (compile-file z) (ed z)) '("parser-gen.lisp" "mic-asm.lisp"))