From e73637c35ae7f3fa9befdec6ec60f06d63623a0a Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 25 Aug 1993 02:35:28 +0000
Subject: [PATCH] Fixed in-package usage.

---
 tools/hemcom.lisp | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/tools/hemcom.lisp b/tools/hemcom.lisp
index d1b7e5d53..6511d85ff 100644
--- a/tools/hemcom.lisp
+++ b/tools/hemcom.lisp
@@ -16,14 +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")))
 ;;;
 (export 'c::compile-from-stream (find-package "C"))
 
-- 
GitLab