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