From 0bd75ce3eb71e2af490937d58e1917983f63b55f Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 10 Oct 1990 17:35:59 +0000 Subject: [PATCH] Merged MIPS branch onto new-compiler branch. --- hemlock/abbrev.lisp | 7 +- hemlock/charmacs.lisp | 2 +- hemlock/key-event.lisp | 26 +++--- hemlock/lispbuf.lisp | 2 +- hemlock/rompsite.lisp | 110 ++++++++++++---------- hemlock/spell-build.lisp | 4 +- hemlock/streams.lisp | 4 +- tools/hemcom.lisp | 197 +++++++++++++++++++-------------------- 8 files changed, 179 insertions(+), 173 deletions(-) diff --git a/hemlock/abbrev.lisp b/hemlock/abbrev.lisp index 535ed4d96..af95ba787 100644 --- a/hemlock/abbrev.lisp +++ b/hemlock/abbrev.lisp @@ -510,7 +510,7 @@ :default (value abbrev-pathname-defaults) :must-exist nil))) (with-open-file (file (value abbrev-pathname-defaults) :direction :input - :element-type 'string-char :if-does-not-exist :error) + :element-type 'base-character :if-does-not-exist :error) (read-abbrevs file))) @@ -584,7 +584,7 @@ :help "Name of the file to write current abbrevs to." :must-exist nil))) (with-open-file (file filename :direction :output - :element-type 'string-char :if-exists :supersede + :element-type 'base-character :if-exists :supersede :if-does-not-exist :create) (multiple-value-bind (x mode-tables) (count-abbrevs) (declare (ignore x)) @@ -626,7 +626,8 @@ (defun write-incremental (mode filename) - (with-open-file (file filename :direction :output :element-type 'string-char + (with-open-file (file filename :direction :output + :element-type 'base-character :if-exists mode :if-does-not-exist :create) (dolist (def *new-abbrevs*) (let ((abb (car def)) diff --git a/hemlock/charmacs.lisp b/hemlock/charmacs.lisp index d6a684d76..e37c94f8f 100644 --- a/hemlock/charmacs.lisp +++ b/hemlock/charmacs.lisp @@ -80,7 +80,7 @@ ;;; Doesn't do anything special, but it should fast and not waste any time ;;; checking type and whatnot. (defmacro search-char-upcase (ch) - `(char-upcase (the string-char ,ch))) + `(char-upcase (the base-character ,ch))) diff --git a/hemlock/key-event.lisp b/hemlock/key-event.lisp index 0e0defca4..d2579b579 100644 --- a/hemlock/key-event.lisp +++ b/hemlock/key-event.lisp @@ -111,7 +111,7 @@ ;;; TRANSLATE-KEY-EVENT -- Public. ;;; -#+nil +#+clx (defun translate-key-event (display scan-code bits) "Translates the X scan-code and X bits to a key-event. First this maps scan-code to an X keysym using XLIB:KEYCODE->KEYSYM looking at bits and @@ -317,7 +317,7 @@ ;;; modifier identifier. ;;; (defvar *id-namestring* - (make-array 30 :adjustable t :fill-pointer 0 :element-type 'string-char)) + (make-array 30 :adjustable t :fill-pointer 0 :element-type 'base-character)) ;;; PARSE-KEY-FUN -- Internal. ;;; @@ -472,7 +472,7 @@ ;;; DEFINE-CLX-MODIFIER -- Public. ;;; -(defun <define-clx-modifier (clx-mask modifier-name) +(defun define-clx-modifier (clx-mask modifier-name) "This establishes a mapping from clx-mask to a define key-event modifier-name. TRANSLATE-KEY-EVENT and TRANSLATE-MOUSE-KEY-EVENT can only return key-events with bits defined by this routine." @@ -540,13 +540,14 @@ (let* ((high-byte (ash keysym -8)) (low-byte-vector (svref *keysym-high-bytes* high-byte))) (unless low-byte-vector - (let ((new-vector (make-array 256))) + (let ((new-vector (make-array 256 :initial-element nil))) (setf (svref *keysym-high-bytes* high-byte) new-vector) (setf low-byte-vector new-vector))) (let* ((low-byte (ldb (byte 8 0) keysym)) (bit-vector (svref low-byte-vector low-byte))) (unless bit-vector - (let ((new-vector (make-array modifier-bits-limit))) + (let ((new-vector (make-array modifier-bits-limit + :initial-element nil))) (setf (svref low-byte-vector low-byte) new-vector) (setf bit-vector new-vector))) (let ((key-event (svref bit-vector bits))) @@ -728,7 +729,8 @@ (setf *all-modifier-names* ()) (setf *keysym-high-bytes* (make-array 256 :initial-element nil)) (setf *key-event-characters* (make-hash-table)) - (setf *character-key-events* (make-array char-code-limit :initial-element nil)) + (setf *character-key-events* + (make-array char-code-limit :initial-element nil)) (define-key-event-modifier "Hyper" "H") (define-key-event-modifier "Super" "S") @@ -736,10 +738,8 @@ (define-key-event-modifier "Control" "C") (define-key-event-modifier "Shift" "Shift") (define-key-event-modifier "Lock" "Lock") -#| - (define-clx-modifier (xlib:make-state-mask :shift) "Shift") - (define-clx-modifier (xlib:make-state-mask :mod-1) "Meta") - (define-clx-modifier (xlib:make-state-mask :control) "Control") - (define-clx-modifier (xlib:make-state-mask :lock) "Lock") -|# -) + + #+clx (define-clx-modifier (xlib:make-state-mask :shift) "Shift") + #+clx (define-clx-modifier (xlib:make-state-mask :mod-1) "Meta") + #+clx (define-clx-modifier (xlib:make-state-mask :control) "Control") + #+clx (define-clx-modifier (xlib:make-state-mask :lock) "Lock")) diff --git a/hemlock/lispbuf.lisp b/hemlock/lispbuf.lisp index ec610bf2a..81e58e6ad 100644 --- a/hemlock/lispbuf.lisp +++ b/hemlock/lispbuf.lisp @@ -38,7 +38,7 @@ thing) ((symbolp thing) (symbol-name thing)) - ((and (characterp thing) (string-char-p thing)) + ((characterp thing) (string thing)) (t (message diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp index 0bf967da9..9a88bd991 100644 --- a/hemlock/rompsite.lisp +++ b/hemlock/rompsite.lisp @@ -99,7 +99,7 @@ (defhvar "Cursor Bitmap File" "File to read to setup cursors for Hemlock windows. The mask is found by merging this name with \".mask\"." - :value "/usr/misc/.lisp/lib/hemlock11.cursor") + :value "/usr/misc/.cmucl/lib/hemlock11.cursor") (defhvar "Enter Window Hook" "When the mouse enters an editor window, this hook is invoked. These functions take the Hemlock Window as an argument." @@ -181,14 +181,15 @@ ;;; (defvar *editor-windowed-input* nil) -#| ;;; These are used for selecting X events. ;;; ;;; This says to send :key-press, :button-press, :button-release, :enter-notify, ;;; and :leave-notify events. ;;; +#+clx (defconstant input/boundary-xevents-selection-keys '(:key-press :button-press :button-release :enter-window :leave-window)) +#+clx (defconstant input/boundary-xevents-mask (apply #'xlib:make-event-mask input/boundary-xevents-selection-keys)) ;;; @@ -197,29 +198,31 @@ ;;; in addition to the above events. Of those enumerated here, we only care ;;; about :exposure and :configure-notify. ;;; +#+clx (defconstant interesting-xevents-receive-keys '(:key-press :button-press :button-release :enter-notify :leave-notify :exposure :graphics-exposure :configure-notify :destroy-notify :unmap-notify :map-notify :reparent-notify :gravity-notify :circulate-notify)) +#+clx (defconstant interesting-xevents-mask (apply #'xlib:make-event-mask (append input/boundary-xevents-selection-keys '(:exposure :structure-notify)))) +#+clx (defconstant random-typeout-xevents-mask (apply #'xlib:make-event-mask (append input/boundary-xevents-selection-keys '(:exposure)))) +#+clx (proclaim '(special ed::*open-paren-highlight-font* ed::*active-region-highlight-font*)) +#+clx (defparameter lisp-fonts-pathnames - '("/usr/misc/.lisp/lib/fonts/" - "/afs/cs.cmu.edu/unix/rt_mach/omega/usr/misc/.lisp/lib/fonts/")) - -|# + '("/usr/misc/.cmucl/lib/fonts/")) (proclaim '(special *editor-input* *real-editor-input*)) @@ -229,8 +232,10 @@ ;;; lisp. It sets up process specific data structures. ;;; (defun init-raw-io (display) + #-clx (declare (ignore display)) (setf *editor-windowed-input* nil) - (cond #+nil(display + (cond #+clx + (display (setf *editor-windowed-input* (ext:open-clx-display display)) (setf *editor-input* (make-windowed-editor-input)) (ext:carefully-add-font-paths *editor-windowed-input* @@ -254,10 +259,10 @@ (proclaim '(declaration values)) (proclaim '(special *default-font-family*)) -#| ;;; font-map-size should be defined in font.lisp, but SETUP-FONT-FAMILY would ;;; assume it to be special, issuing a nasty warning. ;;; +#+clx (defconstant font-map-size 16 "The number of possible fonts in a font-map.") @@ -268,6 +273,7 @@ ;;; in lieu of "Active Region Highlighting Font" and "Open Paren Highlighting ;;; Font" when these are defined. ;;; +#+clx (defun setup-font-family (display default-font default-highlight-font default-open-paren-font) (let* ((font-family (make-font-family :map (make-array font-map-size @@ -306,6 +312,7 @@ ;;; level, we want to deal with this error here returning nil if the font ;;; couldn't be opened. ;;; +#+clx (defun setup-one-font (display font-name font-family-map index) (handler-case (let ((font (xlib:open-font display (namestring font-name)))) (xlib:display-finish-output display) @@ -314,7 +321,6 @@ (warn "Cannot open font -- ~S" font-name) nil))) -|# ;;;; HEMLOCK-BEEP. @@ -330,10 +336,10 @@ (proclaim '(special *current-window*)) -#| ;;; BITMAP-BEEP is used in Hemlock for beeping when running under windowed ;;; input. ;;; +#+clx (defun bitmap-beep (device stream) (declare (ignore stream)) (let ((display (bitmap-device-display device))) @@ -356,8 +362,10 @@ ((nil) ;Do nothing. )))) +#+clx (proclaim '(special *foreground-background-xor*)) +#+clx (defun flash-window-border (window) (let* ((hunk (window-hunk window)) (xwin (bitmap-hunk-xwindow hunk)) @@ -384,6 +392,7 @@ (xlib:draw-rectangle xwin gcontext side-border 0 top-width top-border t) (xlib:display-force-output display))))) +#+clx (defun flash-window (window) (let* ((hunk (window-hunk window)) (xwin (bitmap-hunk-xwindow hunk)) @@ -399,8 +408,6 @@ (xlib:draw-rectangle xwin gcontext 0 0 width height t) (xlib:display-force-output display)))) -|# - (defun hemlock-beep (stream) "Using the current window, calls the device's beep function on stream." (let ((device (device-hunk-device (window-hunk (current-window))))) @@ -467,7 +474,7 @@ (cond ((not *editor-windowed-input*) ,@body) (t -#+nil + #+clx (ext:with-clx-event-handling (*editor-windowed-input* #'ext:object-set-event-handler) ,@body))))) @@ -482,10 +489,10 @@ (proclaim '(special *echo-area-window*)) -#| ;;; Maybe bury/unbury hemlock window when we go to and from Lisp. ;;; This should do something more sophisticated when we know what that is. ;;; +#+clx (defun default-hemlock-window-mngt (display on) (let ((win (bitmap-hunk-xwindow (window-hunk *current-window*))) (ewin (bitmap-hunk-xwindow (window-hunk *echo-area-window*)))) @@ -495,7 +502,6 @@ (t (setf (xlib:window-priority ewin) :below) (setf (xlib:window-priority win) :below)))) (xlib:display-force-output display)) -|# (defvar *hemlock-window-mngt* nil;#'default-hemlock-window-mngt "This function is called by HEMLOCK-WINDOW, passing its arguments. This may @@ -681,7 +687,7 @@ t) (t nil))) -#| +#+clx (defun bitmap-show-mark (window x y time) (cond ((listen-editor-input *editor-input*)) (x (let* ((hunk (window-hunk window)) @@ -695,7 +701,6 @@ t)) (t nil))) -|# ;;;; Function description and defined-from. @@ -709,15 +714,13 @@ (typecase function (symbol (fun-defined-from-pathname (careful-symbol-function function))) (compiled-function - (let* ((source - (first - (c::compiled-debug-info-source - (%primitive header-ref - (%primitive header-ref function - system:%function-entry-constants-slot) - %function-constants-debug-info-slot))))) - (when (eq (c::debug-source-from source) :file) - (c::debug-source-name source)))) + (let ((info (di::code-debug-info (di::function-code-header function)))) + (when info + (let ((sources (c::compiled-debug-info-source info))) + (when sources + (let ((source (car sources))) + (when (eq (c::debug-source-from source) :file) + (c::debug-source-name source)))))))) (t nil))) @@ -758,31 +761,38 @@ ;;;; X Stuff. -#| ;;; Setting window cursors ... ;;; +#+clx (proclaim '(special *default-foreground-pixel* *default-background-pixel*)) +#+clx (defvar *hemlock-cursor* nil "Holds cursor for Hemlock windows.") ;;; DEFINE-WINDOW-CURSOR in shoved on the "Make Window Hook". ;;; +#+clx (defun define-window-cursor (window) (setf (xlib:window-cursor (bitmap-hunk-xwindow (window-hunk window))) *hemlock-cursor*)) ;;; These are set in INIT-BITMAP-SCREEN-MANAGER and REVERSE-VIDEO-HOOK-FUN. ;;; +#+clx (defvar *cursor-foreground-color* nil) +#+clx (defvar *cursor-background-color* nil) +#+clx (defun make-white-color () (xlib:make-color :red 1.0 :green 1.0 :blue 1.0)) +#+clx (defun make-black-color () (xlib:make-color :red 0.0 :green 0.0 :blue 0.0)) ;;; GET-HEMLOCK-CURSOR is used in INIT-BITMAP-SCREEN-MANAGER to load the ;;; hemlock cursor for DEFINE-WINDOW-CURSOR. ;;; +#+clx (defun get-hemlock-cursor (display) (when *hemlock-cursor* (xlib:free-cursor *hemlock-cursor*)) (let* ((cursor-file (truename (variable-value 'ed::cursor-bitmap-file))) @@ -800,6 +810,7 @@ (xlib:free-pixmap cursor-pixmap) (when mask-pixmap (xlib:free-pixmap mask-pixmap))))) +#+clx (defun get-cursor-pixmap (root pathname) (let* ((image (xlib:read-bitmap-file pathname)) (pixmap (xlib:create-pixmap :width 16 :height 16 @@ -816,9 +827,11 @@ ;;; Setting up grey borders ... ;;; +#+clx (defparameter hemlock-grey-bitmap-data '(#*10 #*01)) +#+clx (defun get-hemlock-grey-pixmap (display) (let* ((screen (xlib:display-default-screen display)) (depth (xlib:screen-root-depth screen)) @@ -841,26 +854,29 @@ ;;; Cut Buffer manipulation ... ;;; +#+clx (defun store-cut-string (display string) (check-type string simple-string) (setf (xlib:cut-buffer display) string)) +#+clx (defun fetch-cut-string (display) (xlib:cut-buffer display)) ;;; Window naming ... ;;; +#+clx (defun set-window-name-for-buffer-name (buffer new-name) (dolist (ele (buffer-windows buffer)) (xlib:set-standard-properties (bitmap-hunk-xwindow (window-hunk ele)) :icon-name new-name))) +#+clx (defun set-window-name-for-window-buffer (window new-buffer) (xlib:set-standard-properties (bitmap-hunk-xwindow (window-hunk window)) :icon-name (buffer-name new-buffer))) -|# ;;;; Some hacks for supporting Hemlock under Mach. @@ -904,18 +920,13 @@ (defparameter listen-iterations-hack 1) ; 10-20 seems to really pick up input. (defun editor-tty-listen (stream) - (mach::with-trap-arg-block mach::int1 nc + (with-stack-alien (nc (signed-byte 32) 32) (dotimes (i listen-iterations-hack nil) - (multiple-value-bind (val err) - (mach::Unix-ioctl (tty-editor-input-fd stream) - mach::FIONREAD - (lisp::alien-value-sap - mach::int1)) - (declare (ignore err)) - (when (and val - (> (alien-access (mach::int1-int (alien-value nc))) 0)) - (return t)))))) - + (when (and (mach::Unix-ioctl (tty-editor-input-fd stream) + mach::FIONREAD + (alien-sap (alien-value nc))) + (> (alien-access (alien-value nc)) 0)) + (return t))))) (defvar old-flags) @@ -930,8 +941,7 @@ (mach:with-trap-arg-block mach:sgtty sg (multiple-value-bind (val err) - (mach:unix-ioctl fd mach:TIOCGETP - (lisp::alien-value-sap mach:sgtty)) + (mach:unix-ioctl fd mach:TIOCGETP (alien-sap (alien-value sg))) (if (null val) (error "Could not get tty information, unix error ~S." (mach:get-unix-error-msg err))) @@ -944,7 +954,7 @@ (multiple-value-bind (val err) (mach:unix-ioctl fd mach:TIOCSETP - (lisp::alien-value-sap mach:sgtty)) + (alien-sap (alien-value sg))) (if (null val) (error "Could not set tty information, unix error ~S." (mach:get-unix-error-msg err))))))) @@ -952,7 +962,7 @@ (multiple-value-bind (val err) (mach:unix-ioctl fd mach:TIOCGETC - (lisp::alien-value-sap mach:tchars)) + (alien-sap (alien-value tc))) (if (null val) (error "Could not get tty tchars information, unix error ~S." (mach:get-unix-error-msg err))) @@ -973,14 +983,14 @@ (multiple-value-bind (val err) (mach:unix-ioctl fd mach:TIOCSETC - (lisp::alien-value-sap mach:tchars)) + (alien-sap (alien-value tc))) (if (null val) (error "Failed to set tchars, unix error ~S." (mach:get-unix-error-msg err))))) (mach:with-trap-arg-block mach:ltchars tc (multiple-value-bind (val err) (mach:unix-ioctl fd mach:TIOCGLTC - (lisp::alien-value-sap mach:ltchars)) + (alien-sap (alien-value tc))) (if (null val) (error "Could not get tty ltchars information, unix error ~S." (mach:get-unix-error-msg err))) @@ -1000,7 +1010,7 @@ (multiple-value-bind (val err) (mach:unix-ioctl fd mach:TIOCSLTC - (lisp::alien-value-sap mach:ltchars)) + (alien-sap (alien-value tc))) (if (null val) (error "Failed to set ltchars, unix error ~S." (mach:get-unix-error-msg err)))))))) @@ -1013,7 +1023,7 @@ (multiple-value-bind (val err) (mach:unix-ioctl fd mach:TIOCGETP - (lisp::alien-value-sap mach:sgtty)) + (alien-sap (alien-value sg))) (if (null val) (error "Could not get tty information, unix error ~S." (mach:get-unix-error-msg err))) @@ -1022,7 +1032,7 @@ (multiple-value-bind (val err) (mach:unix-ioctl fd mach:TIOCSETP - (lisp::alien-value-sap mach:sgtty)) + (alien-sap (alien-value sg))) (if (null val) (error "Could not set tty information, unix error ~S." (mach:get-unix-error-msg err)))))) @@ -1045,7 +1055,7 @@ (multiple-value-bind (val err) (mach:unix-ioctl fd mach:TIOCSETC - (lisp::alien-value-sap mach:tchars)) + (alien-sap (alien-value tc))) (if (null val) (error "Failed to set tchars, unix error ~S." (mach:get-unix-error-msg err))))))) @@ -1068,7 +1078,7 @@ (multiple-value-bind (val err) (mach:unix-ioctl fd mach:TIOCSLTC - (lisp::alien-value-sap mach:ltchars)) + (alien-sap (alien-value tc))) (if (null val) (error "Failed to set ltchars, unix error ~S." (mach:get-unix-error-msg err))))))))))) diff --git a/hemlock/spell-build.lisp b/hemlock/spell-build.lisp index ab906757f..afd2b8afa 100644 --- a/hemlock/spell-build.lisp +++ b/hemlock/spell-build.lisp @@ -145,7 +145,7 @@ (entry-count 0)) (declare (fixnum descriptor-ptr string-ptr entry-count)) (loop (multiple-value-bind (line eofp) (read-line s nil nil) - (declare (simple-string line)) + (declare (type (or null simple-string) line)) (unless line (return (values entry-count string-ptr))) (incf entry-count) (when (> entry-count max-entry-count-estimate) @@ -237,6 +237,6 @@ (write-byte (aref dictionary i) s)) (dotimes (i descriptors-size) (write-byte (aref descriptors i) s)))) - (with-open-file (s f :direction :output :element-type 'string-char + (with-open-file (s f :direction :output :element-type 'base-character :if-exists :append) (write-string string-table s :end string-table-length)))) diff --git a/hemlock/streams.lisp b/hemlock/streams.lisp index efe2312f3..edf1c84d2 100644 --- a/hemlock/streams.lisp +++ b/hemlock/streams.lisp @@ -124,7 +124,7 @@ ((:finish-output :force-output) (redisplay-windows-from-mark (hemlock-output-stream-mark stream))) (:close (setf (hemlock-output-stream-mark stream) nil)) - (:element-type 'string-char))) + (:element-type 'base-character))) (defstruct (hemlock-region-stream (:include stream @@ -258,7 +258,7 @@ (:close (delete-mark (hemlock-region-stream-mark stream)) (setf (hemlock-region-stream-region stream) nil)) - (:element-type 'string-char))) + (:element-type 'base-character))) ;;;; Stuff to support keyboard macros. diff --git a/tools/hemcom.lisp b/tools/hemcom.lisp index baa5e7427..357a2b3cf 100644 --- a/tools/hemcom.lisp +++ b/tools/hemcom.lisp @@ -2,7 +2,7 @@ ;;; This file compiles all of Hemlock. ;;; -(c::%proclaim '(optimize (debug-info 2))) +(c::%proclaim '(optimize (speed 1) (safety 1) (c::brevity 1) (debug-info 2))) #| (when (ext:get-command-line-switch "slave") (error "Cannot compile Hemlock in a slave due to its clobbering needed @@ -30,11 +30,6 @@ :nicknames '("ED") :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM")) ;;; -(in-package "SYSTEM") -(export '(%sp-byte-blt %sp-find-character %sp-find-character-with-attribute - %sp-reverse-find-character-with-attribute)) - - (in-package "C") (export 'compile-from-stream) @@ -48,15 +43,15 @@ (pushnew :command-bits *features*) (pushnew :buffered-lines *features*) -(with-compiler-log-file ("hem:lossage.log") +(with-compiler-log-file ("target:compile-hemlock.log") -(comf "code:globals" :always-once t) -(comf "code:struct" :always-once t) -(comf "hem:charmacs" :always-once t) -(comf "hem:key-event" :load t) -(comf "hem:struct" :always-once t) -(comf "hem:struct-ed" :always-once t) -(comf "hem:rompsite" :always-once t) +(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) ;;; ;;; 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 @@ -66,92 +61,92 @@ ;;; for the new system. ;;; (ext::re-initialize-key-events) -(comf "hem:keysym-defs" :load t) -(comf "hem:input") -(comf "hem:macros" :always-once t) -(comf "hem:line" :always-once t) -(comf "hem:ring") -(comf "hem:table") -(comf "hem:htext1") -(comf "hem:htext2") -(comf "hem:htext3") -(comf "hem:htext4") -(comf "hem:search1") -(comf "hem:search2") -(comf "hem:linimage") -(comf "hem:cursor") -(comf "hem:syntax") -(comf "hem:winimage") -;(comf "hem:hunk-draw") -;(comf "hem:bit-stream") -(comf "hem:termcap") -(comf "hem:display") -;(comf "hem:bit-display") -(comf "hem:tty-disp-rt") -(comf "hem:tty-display") -;(comf "hem:tty-stream") -(comf "hem:pop-up-stream") -(comf "hem:screen") -;(comf "hem:bit-screen") -(comf "hem:tty-screen") -(comf "hem:window") -(comf "hem:font") -(comf "hem:interp") -(comf "hem:vars") -(comf "hem:buffer") -(comf "hem:files") -(comf "hem:streams") -(comf "hem:echo") -(comf "hem:main") -(comf "hem:echocoms") -(comf "hem:defsyn") -(comf "hem:command") -(comf "hem:morecoms") -(comf "hem:undo") -(comf "hem:killcoms") -(comf "hem:searchcoms") -(comf "hem:filecoms") -(comf "hem:indent") -(comf "hem:lispmode") -(comf "hem:comments") -(comf "hem:fill") -(comf "hem:text") -(comf "hem:doccoms") -(comf "hem:srccom") -(comf "hem:group") -(comf "hem:spell-rt") -(comf "hem:spell-corr") -(comf "hem:spell-aug") -(comf "hem:spell-build") -(comf "hem:spellcoms") -(comf "hem:abbrev") -(comf "hem:overwrite") -(comf "hem:gosmacs") -(comf "hem:ts-buf") -(comf "hem:ts-stream") -(comf "hem:eval-server") -(comf "hem:lispbuf") -(comf "hem:lispeval") -(comf "hem:kbdmac") -(comf "hem:icom") -(comf "hem:hi-integrity") -(comf "hem:ed-integrity") -(comf "hem:scribe") -(comf "hem:pascal") -(comf "hem:edit-defs") -(comf "hem:auto-save") -(comf "hem:register") -(comf "hem:xcoms") -(comf "hem:unixcoms") -(comf "hem:mh") -(comf "hem:highlight") -(comf "hem:dired") -(comf "hem:diredcoms") -(comf "hem:bufed") -(comf "hem:lisp-lib") -(comf "hem:completion") -(comf "hem:shell") -(comf "hem:bindings") -(comf "hem:hacks") +(comf "target:hemlock/keysym-defs" :load t) +(comf "target:hemlock/input") +(comf "target:hemlock/macros" :always-once t) +(comf "target:hemlock/line" :always-once t) +(comf "target:hemlock/ring") +(comf "target:hemlock/table") +(comf "target:hemlock/htext1") +(comf "target:hemlock/htext2") +(comf "target:hemlock/htext3") +(comf "target:hemlock/htext4") +(comf "target:hemlock/search1") +(comf "target:hemlock/search2") +(comf "target:hemlock/linimage") +(comf "target:hemlock/cursor") +(comf "target:hemlock/syntax") +(comf "target:hemlock/winimage") +#+clx (comf "target:hemlock/hunk-draw") +;(comf "target:hemlock/bit-stream") +(comf "target:hemlock/termcap") +(comf "target:hemlock/display") +#+clx (comf "target:hemlock/bit-display") +(comf "target:hemlock/tty-disp-rt") +(comf "target:hemlock/tty-display") +;(comf "target:hemlock/tty-stream") +(comf "target:hemlock/pop-up-stream") +(comf "target:hemlock/screen") +#+clx (comf "target:hemlock/bit-screen") +(comf "target:hemlock/tty-screen") +(comf "target:hemlock/window") +(comf "target:hemlock/font") +(comf "target:hemlock/interp") +(comf "target:hemlock/vars") +(comf "target:hemlock/buffer") +(comf "target:hemlock/files") +(comf "target:hemlock/streams") +(comf "target:hemlock/echo") +(comf "target:hemlock/main") +(comf "target:hemlock/echocoms") +(comf "target:hemlock/defsyn") +(comf "target:hemlock/command") +(comf "target:hemlock/morecoms") +(comf "target:hemlock/undo") +(comf "target:hemlock/killcoms") +(comf "target:hemlock/searchcoms") +(comf "target:hemlock/filecoms") +(comf "target:hemlock/indent") +(comf "target:hemlock/lispmode") +(comf "target:hemlock/comments") +(comf "target:hemlock/fill") +(comf "target:hemlock/text") +(comf "target:hemlock/doccoms") +(comf "target:hemlock/srccom") +(comf "target:hemlock/group") +(comf "target:hemlock/spell-rt") +(comf "target:hemlock/spell-corr") +(comf "target:hemlock/spell-aug") +(comf "target:hemlock/spell-build") +(comf "target:hemlock/spellcoms") +(comf "target:hemlock/abbrev") +(comf "target:hemlock/overwrite") +(comf "target:hemlock/gosmacs") +(comf "target:hemlock/ts-buf") +(comf "target:hemlock/ts-stream") +(comf "target:hemlock/eval-server") +(comf "target:hemlock/lispbuf") +(comf "target:hemlock/lispeval") +(comf "target:hemlock/kbdmac") +(comf "target:hemlock/icom") +(comf "target:hemlock/hi-integrity") +(comf "target:hemlock/ed-integrity") +(comf "target:hemlock/scribe") +(comf "target:hemlock/pascal") +(comf "target:hemlock/edit-defs") +(comf "target:hemlock/auto-save") +(comf "target:hemlock/register") +(comf "target:hemlock/xcoms") +(comf "target:hemlock/unixcoms") +(comf "target:hemlock/mh") +(comf "target:hemlock/highlight") +(comf "target:hemlock/dired") +(comf "target:hemlock/diredcoms") +(comf "target:hemlock/bufed") +(comf "target:hemlock/lisp-lib") +(comf "target:hemlock/completion") +(comf "target:hemlock/shell") +(comf "target:hemlock/bindings") +(comf "target:hemlock/hacks") ); With-Compiler-Log-File -- GitLab