Skip to content
Snippets Groups Projects
Commit 34b636d5 authored by ram's avatar ram
Browse files

Moved package initialization here from loadhem.

parent 3b97e07d
No related branches found
No related tags found
No related merge requests found
...@@ -7,19 +7,29 @@ ...@@ -7,19 +7,29 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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. ;;; "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") (in-package "SYSTEM")
(export '(without-hemlock %sp-byte-blt %sp-find-character
(export '(without-hemlock)) %sp-find-character-with-attribute
%sp-reverse-find-character-with-attribute))
;;;
(in-package "HEMLOCK-INTERNALS" :nicknames '("HI")) (in-package "HI")
(export '(show-mark editor-sleep *input-transcript* fun-defined-from-pathname (export '(show-mark editor-sleep *input-transcript* fun-defined-from-pathname
editor-describe-function pause-hemlock store-cut-string editor-describe-function pause-hemlock store-cut-string
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment