From e853757b4eb60c9b7011afc20385cf96d357fd1a Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 25 Aug 1993 02:24:03 +0000
Subject: [PATCH] Really fix IN-PACKAGE usage.

---
 hemlock/bit-stream.lisp | 4 ++--
 hemlock/charmacs.lisp   | 4 ++--
 hemlock/cursor.lisp     | 4 ++--
 hemlock/line.lisp       | 4 ++--
 hemlock/linimage.lisp   | 4 ++--
 hemlock/ring.lisp       | 4 ++--
 hemlock/tty-stream.lisp | 4 ++--
 7 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/hemlock/bit-stream.lisp b/hemlock/bit-stream.lisp
index 171ba2617..2d9a3ba41 100644
--- a/hemlock/bit-stream.lisp
+++ b/hemlock/bit-stream.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/bit-stream.lisp,v 1.1.1.4 1993/08/25 02:07:52 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/bit-stream.lisp,v 1.1.1.5 1993/08/25 02:23:30 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,7 +16,7 @@
 ;;; Written by Rob MacLachlan.
 ;;; Modified by Bill Chiles to run under X on the IBM RT.
 ;;;
-(in-package "HEMLOCK"-internals)
+(in-package "HEMLOCK-INTERNALS")
 
 
 ;;; These streams have an associated bitmap-hunk that is used for its
diff --git a/hemlock/charmacs.lisp b/hemlock/charmacs.lisp
index 39f0c8522..b39745d83 100644
--- a/hemlock/charmacs.lisp
+++ b/hemlock/charmacs.lisp
@@ -7,13 +7,13 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/charmacs.lisp,v 1.1.1.8 1993/08/25 02:07:59 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/charmacs.lisp,v 1.1.1.9 1993/08/25 02:23:34 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; Implementation specific character-hacking macros and constants.
 ;;;
-(in-package "HEMLOCK"-internals)
+(in-package "HEMLOCK-INTERNALS")
 (export ' (syntax-char-code-limit search-char-code-limit do-alpha-chars))
 
 ;;; This file contains various constants and macros which are implementation or
diff --git a/hemlock/cursor.lisp b/hemlock/cursor.lisp
index 48d6f3eb6..c65901953 100644
--- a/hemlock/cursor.lisp
+++ b/hemlock/cursor.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/cursor.lisp,v 1.1.1.5 1993/08/25 02:08:05 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/cursor.lisp,v 1.1.1.6 1993/08/25 02:23:38 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,7 +15,7 @@
 ;;;
 ;;; Cursor: Routines for cursor positioning and recentering
 ;;;
-(in-package "HEMLOCK"-internals)
+(in-package "HEMLOCK-INTERNALS")
 (export '(mark-to-cursorpos center-window displayed-p scroll-window
 			    mark-column cursorpos-to-mark move-to-column))
 
diff --git a/hemlock/line.lisp b/hemlock/line.lisp
index 0d99e32d0..535da8a24 100644
--- a/hemlock/line.lisp
+++ b/hemlock/line.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/line.lisp,v 1.1.1.3 1993/08/25 02:09:26 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/line.lisp,v 1.1.1.4 1993/08/25 02:23:50 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -22,7 +22,7 @@
 ;;; is mapped in memory.  Such lines are called "buffered".  This stuff
 ;;; links up with the file-reading stuff and the line-image building stuff.
 ;;;
-(in-package "HEMLOCK"-internals)
+(in-package "HEMLOCK-INTERNALS")
 (export '(line linep line-previous line-next line-plist line-signature))
 
 (setf (documentation 'linep 'function)
diff --git a/hemlock/linimage.lisp b/hemlock/linimage.lisp
index 05e99c05f..3fb741f7c 100644
--- a/hemlock/linimage.lisp
+++ b/hemlock/linimage.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/linimage.lisp,v 1.1.1.6 1993/08/25 02:09:27 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/linimage.lisp,v 1.1.1.7 1993/08/25 02:23:53 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,7 +15,7 @@
 ;;;
 ;;; This file contains functions related to building line images.
 ;;;
-(in-package "HEMLOCK"-internals)
+(in-package "HEMLOCK-INTERNALS")
 
 ;;;    The code in here is factored out in this way because it is more
 ;;; or less implementation dependant.  The reason this code is 
diff --git a/hemlock/ring.lisp b/hemlock/ring.lisp
index 306532944..5176e2b1e 100644
--- a/hemlock/ring.lisp
+++ b/hemlock/ring.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/ring.lisp,v 1.1.1.3 1993/08/25 02:10:15 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/ring.lisp,v 1.1.1.4 1993/08/25 02:23:57 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,7 +15,7 @@
 ;;;
 ;;;  This file defines a ring-buffer type and access functions.
 ;;;
-(in-package "HEMLOCK"-internals)
+(in-package "HEMLOCK-INTERNALS")
 (export '(ring ringp make-ring ring-push ring-pop ring-length ring-ref
 	       rotate-ring))
 
diff --git a/hemlock/tty-stream.lisp b/hemlock/tty-stream.lisp
index a1a8c3d50..c4433ffcb 100644
--- a/hemlock/tty-stream.lisp
+++ b/hemlock/tty-stream.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/tty-stream.lisp,v 1.1.1.4 1993/08/25 02:11:17 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/tty-stream.lisp,v 1.1.1.5 1993/08/25 02:24:03 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,7 +19,7 @@
 ;;; (if only) difference is in TTY-HUNK-STREAM-NEWLINE.
 ;;;
 
-(in-package "HEMLOCK"-internals)
+(in-package "HEMLOCK-INTERNALS")
 
 
 
-- 
GitLab