From c0513e4beafb5f8134df735fe198b08ddb3eb944 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 22 May 1992 19:11:24 +0000
Subject: [PATCH] Removed compilation of key-event stuff, as that is now part
 of CLX (there is probably a problem loading w/o CLX now...) Load clx from the
 clx-library file. Changed to produce the hemlock-library fasl file holding
 all of hemlock.

---
 tools/hemcom.lisp | 105 +++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 100 insertions(+), 5 deletions(-)

diff --git a/tools/hemcom.lisp b/tools/hemcom.lisp
index f2a10fe5b..a94f25cb3 100644
--- a/tools/hemcom.lisp
+++ b/tools/hemcom.lisp
@@ -36,12 +36,9 @@
 #-clx
 ;;; If CLX has not been loaded, but has been compiled, then load it.
 ;;;
-(when (probe-file (make-pathname :defaults "target:clx/defsystem"
+(when (probe-file (make-pathname :defaults "target:clx/clx-library"
 				 :type (c:backend-fasl-file-type c:*backend*)))
-  (setf (search-list "clx:") '("target:clx/"))
-  (load "clx:defsystem")
-  (xlib::load-clx (pathname "clx:"))
-  (load "target:code/clx-ext"))
+  (load "target:clx/clx-library"))
   
 (with-compiler-log-file
     ("target:compile-hemlock.log"
@@ -179,3 +176,101 @@
 (comf "target:hemlock/hacks")
 
 ) ;WITH-COMPILER-LOG-FILE
+
+
+(ext:run-program
+ "cat"
+ (mapcar #'(lambda (x)
+	     (namestring
+	      (truename
+	       (make-pathname
+		:name x
+		:type (c:backend-fasl-file-type c:*target-backend*)))))
+	 '("target:hemlock/rompsite"
+	   "target:hemlock/struct"
+	   ; "target:hemlock/struct-ed"
+	   "target:hemlock/charmacs"
+	   "target:hemlock/input"
+	   "target:hemlock/line"
+	   "target:hemlock/ring"
+	   "target:hemlock/vars"
+	   "target:hemlock/buffer"
+	   "target:hemlock/macros"
+	   "target:hemlock/interp"
+	   "target:hemlock/syntax"
+	   "target:hemlock/htext1"
+	   "target:hemlock/htext2"
+	   "target:hemlock/htext3"
+	   "target:hemlock/htext4"
+	   "target:hemlock/files"
+	   "target:hemlock/search1"
+	   "target:hemlock/search2"
+	   "target:hemlock/table"
+	   #+clx "target:hemlock/hunk-draw"
+	   "target:hemlock/window"
+	   "target:hemlock/screen"
+	   "target:hemlock/winimage"
+	   "target:hemlock/linimage"
+	   "target:hemlock/display"
+	   "target:hemlock/termcap"
+	   #+clx "target:hemlock/bit-display"
+	   "target:hemlock/tty-disp-rt"
+	   "target:hemlock/tty-display"
+	   "target:hemlock/pop-up-stream"
+	   #+clx "target:hemlock/bit-screen"
+	   "target:hemlock/tty-screen"
+	   "target:hemlock/cursor"
+	   "target:hemlock/font"
+	   "target:hemlock/streams"
+	   "target:hemlock/hacks"
+	   "target:hemlock/main"
+	   "target:hemlock/echo"
+	   "target:hemlock/echocoms"
+	   "target:hemlock/command"
+	   "target:hemlock/indent"
+	   "target:hemlock/comments"
+	   "target:hemlock/morecoms"
+	   "target:hemlock/undo"
+	   "target:hemlock/killcoms"
+	   "target:hemlock/searchcoms"
+	   "target:hemlock/filecoms"
+	   "target:hemlock/doccoms"
+	   "target:hemlock/srccom"
+	   "target:hemlock/group"
+	   "target:hemlock/fill"
+	   "target:hemlock/text"
+	   "target:hemlock/lispmode"
+	   "target:hemlock/ts-buf"
+	   "target:hemlock/ts-stream"
+	   "target:hemlock/eval-server"
+	   "target:hemlock/lispbuf"
+	   "target:hemlock/lispeval"
+	   "target:hemlock/spell-rt"
+	   "target:hemlock/spell-corr"
+	   "target:hemlock/spell-aug"
+	   "target:hemlock/spellcoms"
+	   "target:hemlock/overwrite"
+	   "target:hemlock/abbrev"
+	   "target:hemlock/icom"
+	   "target:hemlock/kbdmac"
+	   "target:hemlock/defsyn"
+	   "target:hemlock/scribe"
+	   "target:hemlock/pascal"
+	   "target:hemlock/edit-defs"
+	   "target:hemlock/auto-save"
+	   "target:hemlock/register"
+	   "target:hemlock/xcoms"
+	   "target:hemlock/unixcoms"
+	   "target:hemlock/mh"
+	   "target:hemlock/highlight"
+	   "target:hemlock/dired"
+	   "target:hemlock/diredcoms"
+	   "target:hemlock/bufed"
+	   "target:hemlock/lisp-lib"
+	   "target:hemlock/completion"
+	   "target:hemlock/shell"
+	   "target:hemlock/debug"
+	   "target:hemlock/netnews"
+	   "target:hemlock/bindings"))
+ :output (make-pathname :defaults "target:hemlock/hemlock-library
+			:type (c:backend-fasl-file-type c:*target-backend*)))
-- 
GitLab