From c07f243f17e1bb8cde4a529ed92b941f35cafbd2 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 7 Oct 1994 20:47:21 +0000 Subject: [PATCH] Fix old-style in-package. --- hemlock/rompsite.lisp | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp index 570961471..39931afb9 100644 --- a/hemlock/rompsite.lisp +++ b/hemlock/rompsite.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rompsite.lisp,v 1.6 1994/07/05 15:54:27 hallgren Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rompsite.lisp,v 1.7 1994/10/07 20:47:21 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -16,13 +16,15 @@ ;;; Stuff to set up the packages Hemlock uses. ;;; -(in-package "HEMLOCK-INTERNALS" - :nicknames '("HI") - :use '("LISP" "EXTENSIONS" "SYSTEM")) +(unless (find-package "HEMLOCK-INTERNALS") + (make-package "HEMLOCK-INTERNALS" + :nicknames '("HI") + :use '("LISP" "EXTENSIONS" "SYSTEM"))) ;;; -(in-package "HEMLOCK" - :nicknames '("ED") - :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM")) +(unless (find-package "HEMLOCK") + (make-package "HEMLOCK" + :nicknames '("ED") + :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM"))) ;;; (in-package "SYSTEM") (export '(without-hemlock %sp-byte-blt %sp-find-character -- GitLab