diff --git a/tools/hemcom.lisp b/tools/hemcom.lisp index 357a2b3cf9a46b74061bcf02947f5cf5c9e1d333..596e395f59ac9c35e9b68c810d21f886d38dd688 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")