(defparameter *mem-path* (elt *args* 0))
(defparameter *clocc-path* (elt *args* 1))
(defparameter *ppcre-path* (elt *args* 2))

(setf ext:*args* nil) ;; dont leave args in image

(ext:cd (format nil "~asrc/port/" *clocc-path*))
(load "../../clocc.fas")
(load "shell.fas")
(load "path.fas")
(ext:cd *ppcre-path*)
(load "load.lisp")
(ext:saveinitmem *mem-path*)