From 34b636d5e85adae5fa5195e703f6f69983d83527 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 22 May 1992 19:05:10 +0000
Subject: [PATCH] Moved package initialization here from loadhem.

---
 hemlock/rompsite.lisp | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp
index 47dc4f214..f62670b16 100644
--- a/hemlock/rompsite.lisp
+++ b/hemlock/rompsite.lisp
@@ -7,19 +7,29 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rompsite.lisp,v 1.1.1.24 1992/03/07 08:44:30 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rompsite.lisp,v 1.1.1.25 1992/05/22 19:05:10 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; "Site dependent" stuff for the editor while on the IBM RT PC machine.
 ;;;
 
+;;; Stuff to set up the packages Hemlock uses.
+;;;
+(in-package "HEMLOCK-INTERNALS"
+	    :nicknames '("HI")
+	    :use '("LISP" "EXTENSIONS" "SYSTEM"))
+;;;
+(in-package "HEMLOCK"
+	    :nicknames '("ED")
+	    :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM"))
+;;;
 (in-package "SYSTEM")
-
-(export '(without-hemlock))
-
-
-(in-package "HEMLOCK-INTERNALS" :nicknames '("HI"))
+(export '(without-hemlock %sp-byte-blt %sp-find-character
+			  %sp-find-character-with-attribute 
+			  %sp-reverse-find-character-with-attribute))
+;;;
+(in-package "HI")
 
 (export '(show-mark editor-sleep *input-transcript* fun-defined-from-pathname
 	  editor-describe-function pause-hemlock store-cut-string
-- 
GitLab