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