From ee6f09607216b26b50db9d6e86d0d49d22b96e5e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 7 Sep 1990 16:16:28 +0000
Subject: [PATCH] #+clx'ed X only files.

---
 hemlock/input.lisp | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/hemlock/input.lisp b/hemlock/input.lisp
index 296430693..2bba85e6c 100644
--- a/hemlock/input.lisp
+++ b/hemlock/input.lisp
@@ -223,7 +223,7 @@
 
 
 ;;;; Editor input from windowing system.
-#|
+#+clx
 (defstruct (windowed-editor-input
 	    (:include editor-input
 		      (:get #'windowed-get-key-event)
@@ -232,18 +232,21 @@
 		      (:clear #'windowed-clear-input))
 	    (:print-function
 	     (lambda (s stream d)
-	       (declare (ignore s d write))
+	       (declare (ignore s d))
 	       (write-string "#<Editor-Window-Input stream>" stream)))
 	    (:constructor make-windowed-editor-input
 			  (&optional (head (make-input-event)) (tail head))))
   hunks)      ; List of bitmap-hunks which input to this stream.
 
+#+clx
 (defun windowed-get-key-event (stream ignore-abort-attempts-p)
   (editor-input-method-macro))
 
+#+clx
 (defun windowed-unget-key-event (key-event stream)
   (un-event key-event stream))
 
+#+clx
 (defun windowed-clear-input (stream)
   (loop (unless (system:serve-event 0) (return)))
   (without-interrupts
@@ -255,6 +258,7 @@
 	       *free-input-events* next)
        (setf (editor-input-tail stream) head)))))
 
+#+clx
 (defun windowed-listen (stream)
   (loop (unless (system:serve-event 0)
 	  ;; If nothing is pending, check the queued input.
@@ -263,7 +267,7 @@
       ;; Don't service anymore events if we just got some input.
       (return t))))
 
-|#
+
 
 ;;;; Editor input from a tty.
 
-- 
GitLab