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