(in-package :cl-user)

(defun compile-load (pathname)
  (load (compile-file pathname :external-format :iso-8859-1)))

(dolist (k '("md5"
             "package"
             "utils"
             "param"
             "nodes"
             "tex-input"
             "macros"
             "epsfig"
             "clim-spec-macros"
             "main"))
  (compile-load
   (merge-pathnames (make-pathname :name k :type "lisp" :directory '(:relative "src")
                                   :defaults *load-truename*)
                    *load-truename*)))
