1 --- common-lisp-controller.lisp~ 2010-07-30 20:29:24.000000000 -0400
2 +++ common-lisp-controller.lisp 2010-11-04 17:51:35.604803920 -0400
4 (setf *implementation-name* implementation-name)
6 (pushnew :common-lisp-controller *features*)
7 - (pushnew :clc-os-debian *features*))
8 + (pushnew :clc-os-tld *features*))
10 (defun compile-common-lisp-controller-v5 (implementation-name)
11 "Compiles the clc files. Returns a list of fasls
13 (setf *implementation-name* implementation-name)
15 (pushnew :common-lisp-controller *features*)
16 - (pushnew :clc-os-debian *features*)
17 + (pushnew :clc-os-tld *features*)
19 (let* ((fasl-root (merge-pathnames