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