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