From bc0c4b4816706d914249da5d08fe12c6594c113d Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 12 Oct 1990 04:02:45 +0000
Subject: [PATCH] Removed the stuff to unintern symbols with key-event in them
 from the hi package, 'cause it is no longer needed.

---
 tools/hemcom.lisp | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/tools/hemcom.lisp b/tools/hemcom.lisp
index 357a2b3cf..596e395f5 100644
--- a/tools/hemcom.lisp
+++ b/tools/hemcom.lisp
@@ -30,13 +30,8 @@
 	    :nicknames '("ED")
 	    :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM"))
 ;;;
-(in-package "C")
-(export 'compile-from-stream)
+(export 'c::compile-from-stream (find-package "C"))
 
-;;; Hack...
-
-(dolist (x (apropos-list "key-event" "HI"))
-  (unintern x "HI"))
 
 (in-package "USER")
 
-- 
GitLab