diff --git a/tools/clxcom.lisp b/tools/clxcom.lisp index 0e9e7da6747eedb063a90092c3907f4b3aaa9f55..eba263db3667e4e8b646a9cef4b98cf02931c201 100644 --- a/tools/clxcom.lisp +++ b/tools/clxcom.lisp @@ -51,4 +51,40 @@ (comf "target:clx/manager" :load t) (comf "target:clx/image" :load t) (comf "target:clx/resource" :load t)) - (comf "target:code/clx-ext")) + (comf "target:code/clx-ext") + #-no-pcl + (comf "target:code/inspect")) + +(ext:run-program + "cat" + (mapcar #'(lambda (x) + (namestring + (truename + (make-pathname + :name x + :type (c:backend-fasl-file-type c:*target-backend*))))) + '( + "target:clx/package" + "target:clx/depdefs" + "target:clx/clx" + "target:clx/dependent" + "target:clx/macros" + "target:clx/bufmac" + "target:clx/buffer" + "target:clx/display" + "target:clx/gcontext" + "target:clx/input" + "target:clx/requests" + "target:clx/fonts" + "target:clx/graphics" + "target:clx/text" + "target:clx/attributes" + "target:clx/translate" + "target:clx/keysyms" + "target:clx/manager" + "target:clx/image" + "target:clx/resource" + "target:code/clx-ext" + "target:code/inspect")) + :output (make-pathname :defaults "target:clx/clx-library" + :type (c:backend-fasl-file-type c:*target-backend*)))