From 8d944dbd63648bfba4b2317554a0f2614f09e726 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 8 Mar 1991 19:47:54 +0000
Subject: [PATCH] Merged in William's changes.  Mostly new logical names and
 COMF technology.

---
 tools/hemcom.lisp | 32 ++++++++++----------------------
 1 file changed, 10 insertions(+), 22 deletions(-)

diff --git a/tools/hemcom.lisp b/tools/hemcom.lisp
index 4f3311166..7e94f8316 100644
--- a/tools/hemcom.lisp
+++ b/tools/hemcom.lisp
@@ -1,15 +1,3 @@
-;;; -*- Log: hemlock.log; Package: Hemlock-Internals -*-
-;;;
-;;; **********************************************************************
-;;; This code was written as part of the CMU Common Lisp project at
-;;; Carnegie Mellon University, and has been placed in the public domain.
-;;; If you want to use this code or any part of CMU Common Lisp, please contact
-;;; Scott Fahlman or slisp-group@cs.cmu.edu.
-;;;
-(ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/hemcom.lisp,v 1.1.1.9 1991/02/14 00:25:14 ram Exp $")
-;;;
-;;; **********************************************************************
 ;;;
 ;;; This file compiles all of Hemlock.
 ;;;
@@ -52,13 +40,13 @@
 
 (with-compiler-log-file ("target:compile-hemlock.log")
 
-(comf "target:code/globals" :always-once t)
-(comf "target:code/struct" :always-once t)
-(comf "target:hemlock/charmacs" :always-once t)
-(comf "target:hemlock/key-event" :load t)
-(comf "target:hemlock/struct" :always-once t)
-;(comf "target:hemlock/struct-ed" :always-once t)
-(comf "target:hemlock/rompsite" :always-once t)
+(comf "target:code/globals")
+(comf "target:code/struct")
+(comf "target:hemlock/charmacs")
+(comf "target:hemlock/key-event")
+(comf "target:hemlock/struct")
+;(comf "target:hemlock/struct-ed")
+(comf "target:hemlock/rompsite")
 ;;;
 ;;; This is necessary since all the #k uses in Hemlock will expand into
 ;;; EXT:MAKE-KEY-EVENT calls with keysyms and bits from the compiling Lisp, not
@@ -68,10 +56,10 @@
 ;;; for the new system.
 ;;;
 (ext::re-initialize-key-events)
-(comf "target:hemlock/keysym-defs" :load t)
+(comf "target:hemlock/keysym-defs")
 (comf "target:hemlock/input")
-(comf "target:hemlock/macros" :always-once t)
-(comf "target:hemlock/line" :always-once t)
+(comf "target:hemlock/macros")
+(comf "target:hemlock/line")
 (comf "target:hemlock/ring")
 (comf "target:hemlock/table")
 (comf "target:hemlock/htext1")
-- 
GitLab