#!/opt/local/bin/clisp -norc -E UTF-8
(compile-file (merge-pathnames "local/share/common-lisp/source/asdf/asdf.lisp" (user-homedir-pathname))) (load (merge-pathnames "local/share/common-lisp/source/asdf/asdf" (user-homedir-pathname))) (push (merge-pathnames "local/share/common-lisp/systems/" (user-homedir-pathname)) asdf:*central-registry*) (compile-file (merge-pathnames "local/share/common-lisp/source/asdf-addons/asdf-cache.lisp" (user-homedir-pathname))) (load (merge-pathnames "local/share/common-lisp/source/asdf-addons/asdf-cache" (user-homedir-pathname))) (setf asdf-cache:*asdf-cache* (merge-pathnames "local/var/cache/common-lisp/" (user-homedir-pathname))) (asdf:oos 'asdf:load-op :colorize) (setf clhs-lookup::*hyperspec-pathname* (pathname "/opt/local/share/doc/lisp/HyperSpec-7-0/HyperSpec/")) (setf clhs-lookup::*hyperspec-map-file* (merge-pathnames "Data/Map_Sym.txt" clhs-lookup::*hyperspec-pathname*)) (in-package :cl-user) (defun main () (ignore-errors (destructuring-bind (type infile outfile) ext:*args* (colorize:colorize-file (intern type :keyword) infile outfile))) (ext:exit)) (loop repeat 100 do (gc)) (ext:saveinitmem "clz" :init-function 'main :quiet t :verbose nil :norc t :executable t) |