From 75c8ae36e97726ffeb851a28393faa3a69570f5b Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 22 May 1992 17:39:36 +0000
Subject: [PATCH] Smash together all the fasls into clx-library.fasl.  Compile
 and load inspect and clx-ext.

---
 tools/clxcom.lisp | 38 +++++++++++++++++++++++++++++++++++++-
 1 file changed, 37 insertions(+), 1 deletion(-)

diff --git a/tools/clxcom.lisp b/tools/clxcom.lisp
index 0e9e7da67..eba263db3 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*)))
-- 
GitLab