(defvar *compile-base* ".")

(when ext:*args*
  (setf *compile-base* (first ext:*args*)))

(defvar *source-files* (list "packages.lisp"
			     "pkgmgr-except.lisp"
			     "pkgmgr-print.lisp"
			     "pkgmgr-util.lisp"
			     "pkgmgr-pkgdb.lisp"
			     "pkgmanager.lisp"))
(with-compilation-unit ()
  (mapcar #'(lambda (file)
	      (compile-file (format nil "~a/~a" *compile-base* file)))
	  *source-files*))