diff --git a/hemlock/bit-stream.lisp b/hemlock/bit-stream.lisp index 171ba26174c280b7c8fd8c0eaca5fd18c5334274..2d9a3ba41e215fcb24dbbf3f45a15c624f696443 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 39f0c8522b9aa4d01bffe76217c28228292d7f12..b39745d8397c6b8f40b06793acf874c79b8dc861 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 48d6f3eb63615449167c77d37360308bcc10242a..c659019536b21cbc050d12f70764e41f8065aa22 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 0d99e32d0ec24131c0278cebaf070b999c5d8088..535da8a24ba5a2065b6a5a6acb81769c0b6d25b6 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 05e99c05f583b862f80256335e35f268a22d237b..3fb741f7c2b4d2b5cc9d68723a15bbbb12d87516 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 306532944ec5cfbabc9a4fc746cb4125c8ce7965..5176e2b1ec6d4a748aab01b27b96a7c9fa87a781 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 a1a8c3d506e758eeae3a34cba8b2ea6bf71f737a..c4433ffcb6c52e3103508d1dc2a055085dc652af 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")