Skip to content
Browse files

make all of the package names passed to in-package be lowercase keywo…

…rds for ACL's java mode
  • Loading branch information...
1 parent d8d3f1a commit 95dff8a43c36b444f2ffe735680fd7ffac68c6a4 Mike McDonald committed Mar 21, 2003
Showing with 65 additions and 65 deletions.
  1. +1 −1 Backends/CLX/clim-extensions.lisp
  2. +1 −1 Backends/CLX/frame-manager.lisp
  3. +1 −1 Backends/CLX/graft.lisp
  4. +1 −1 Backends/CLX/image.lisp
  5. +1 −1 Backends/CLX/keysyms.lisp
  6. +2 −2 Backends/CLX/medium.lisp
  7. +1 −1 Backends/CLX/port.lisp
  8. +1 −1 Examples/address-book.lisp
  9. +1 −1 Examples/calculator.lisp
  10. +1 −1 Examples/menutest.lisp
  11. +1 −1 Examples/postscript-test.lisp
  12. +1 −1 Examples/sliderdemo.lisp
  13. +1 −1 Examples/transformations-test.lisp
  14. +1 −1 X11-colors.lisp
  15. +1 −1 blank.lisp
  16. +1 −1 bordered-output.lisp
  17. +1 −1 builtin-commands.lisp
  18. +1 −1 commands.lisp
  19. +1 −1 coordinates.lisp
  20. +1 −1 decls.lisp
  21. +1 −1 defresource.lisp
  22. +1 −1 describe.lisp
  23. +2 −2 design.lisp
  24. +1 −1 dialog.lisp
  25. +1 −1 encapsulate.lisp
  26. +1 −1 events.lisp
  27. +1 −1 frames.lisp
  28. +1 −1 gadgets.lisp
  29. +1 −1 grafts.lisp
  30. +2 −2 graph-formatting.lisp
  31. +1 −1 graphics.lisp
  32. +1 −1 incremental-redisplay.lisp
  33. +1 −1 input-editing.lisp
  34. +1 −1 input.lisp
  35. +1 −1 medium.lisp
  36. +1 −1 menu.lisp
  37. +1 −1 output.lisp
  38. +2 −2 panes.lisp
  39. +1 −1 patch.lisp
  40. +1 −1 pixmap.lisp
  41. +1 −1 pointer-tracking.lisp
  42. +1 −1 ports.lisp
  43. +1 −1 presentation-defs.lisp
  44. +1 −1 presentations.lisp
  45. +1 −1 recording.lisp
  46. +1 −1 repaint.lisp
  47. +1 −1 setf-star.lisp
  48. +1 −1 sheets.lisp
  49. +1 −1 stream-input.lisp
  50. +1 −1 stream-output.lisp
  51. +1 −1 table-formatting.lisp
  52. +6 −6 test.lisp
  53. +1 −1 text-formatting.lisp
  54. +1 −1 transforms.lisp
  55. +1 −1 utils.lisp
  56. +1 −1 views.lisp
View
2 Backends/CLX/clim-extensions.lisp
@@ -23,7 +23,7 @@
; but while it is, it needs to ensure that the use-package'ing
; happens before the rest of the file is read.
- (in-package :CLIM-CLX)
+(in-package :clim-clx)
(use-package :IMAGE))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
View
2 Backends/CLX/frame-manager.lisp
@@ -17,7 +17,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-CLX)
+(in-package :clim-clx)
;;; CLX-FRAME-MANAGER class
View
2 Backends/CLX/graft.lisp
@@ -17,7 +17,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-CLX)
+(in-package :clim-clx)
;;; CLX-GRAFT class
View
2 Backends/CLX/image.lisp
@@ -35,7 +35,7 @@
"COLORMAP-IMAGE"
"SPECTRAL-IMAGE"))
-(in-package :IMAGE)
+(in-package :image)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
View
2 Backends/CLX/keysyms.lisp
@@ -22,7 +22,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-CLX)
+(in-package :clim-clx)
(defvar *keysym-hash-table*
(make-hash-table :test #'eql))
View
4 Backends/CLX/medium.lisp
@@ -22,7 +22,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-CLX)
+(in-package :clim-clx)
;;; Needed changes:
@@ -596,7 +596,7 @@
(illegal-sequence))))))
#+unicode
-(in-package :CLIM-CLX)
+(in-package :clim-clx)
#-unicode
(defmethod text-size ((medium clx-medium) string &key text-style (start 0) end)
View
2 Backends/CLX/port.lisp
@@ -21,7 +21,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-CLX)
+(in-package :clim-clx)
;;; CLX-PORT class
View
2 Examples/address-book.lisp
@@ -2,7 +2,7 @@
;; $fiHeader: address-book.lisp,v 1.20 1993/07/27 01:45:06 colin Exp $
-(in-package :CLIM-DEMO)
+(in-package :clim-demo)
"Copyright (c) 1990 International Lisp Associates. All rights reserved."
View
2 Examples/calculator.lisp
@@ -20,7 +20,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-DEMO)
+(in-package :clim-demo)
(defun calculator ()
(progn
View
2 Examples/menutest.lisp
@@ -20,7 +20,7 @@
(defpackage :MENUTEST (:USE :CLIM :CLIM-EXTENSIONS :CLIM-LISP))
-(in-package :MENUTEST)
+(in-package :menutest)
(defun menutest ()
(loop for port in climi::*all-ports*
View
2 Examples/postscript-test.lisp
@@ -19,7 +19,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-DEMO)
+(in-package :clim-demo)
(defparameter *postscript-test-file* #p"ps-test.ps")
View
2 Examples/sliderdemo.lisp
@@ -19,7 +19,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-DEMO)
+(in-package :clim-demo)
(defparameter calc '(0))
(defvar *text-field* nil)
View
2 Examples/transformations-test.lisp
@@ -21,7 +21,7 @@
(defpackage "CLIM-TRANSFORMATIONS-TEST"
(:use :clim :clim-lisp))
-(in-package :CLIM-TRANSFORMATIONS-TEST)
+(in-package :clim-transformations-test)
(defparameter *transformations-test-file* #p"transformations-test.ps")
View
2 X11-colors.lisp
@@ -17,7 +17,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
; $XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp $
(defconstant +snow+ (make-named-color "snow" 1.0000 0.9804 0.9804))
View
2 blank.lisp
@@ -17,5 +17,5 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
View
2 bordered-output.lisp
@@ -22,7 +22,7 @@
;;; - Gap computation
;;; - Implement :DROP-SHADOW, :UNDERLINE
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defvar *border-types* (make-hash-table))
View
2 builtin-commands.lisp
@@ -17,7 +17,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;; Commands and presentation translators that live in the
;;; global-command-table.
View
2 commands.lisp
@@ -19,7 +19,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
View
2 coordinates.lisp
@@ -24,7 +24,7 @@
;;!EXPORT coordinate
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(deftype coordinate () 'double-float)
View
2 decls.lisp
@@ -22,7 +22,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;;; Early special variables
View
2 defresource.lisp
@@ -29,7 +29,7 @@
;;; 2002-02-10 GB named allocator function
;;; 2001-05-21 GB created
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;;; 32.1 Resources
View
2 describe.lisp
@@ -17,7 +17,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :COMMON-LISP)
+(in-package :common-lisp)
#+excl
(eval-when (:compile-toplevel :load-toplevel :execute)
View
4 design.lisp
@@ -76,7 +76,7 @@
;; --GB
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(eval-when (:compile-toplevel :load-toplevel :execute)
(define-protocol-class design ())
@@ -261,7 +261,7 @@
(with-open-file (out "X11-colors.lisp" :direction :output :if-exists :supersede)
(with-open-file (in "/usr/X11/lib/X11/rgb.txt" :direction :input)
(format out ";;; -*- Mode: Lisp; Package: CLIM-INTERNALS -*-~%~%")
- (format out "(in-package :CLIM-INTERNALS)~%~%")
+ (format out "(in-package :clim-internals)~%~%")
(loop with names = nil
for line = (read-line in nil nil)
until (null line)
View
2 dialog.lisp
@@ -1,6 +1,6 @@
;;; Stub for ACCEPTING-VALUES.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defmacro accepting-values
((&optional (stream t)
View
2 encapsulate.lisp
@@ -16,7 +16,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defvar *original-stream* nil)
View
2 events.lisp
@@ -21,7 +21,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;; ------------------------------------------------------------------------------------------
;;; Events
View
2 frames.lisp
@@ -21,7 +21,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;; *application-frame* is in decls.lisp
(defvar *default-frame-manager* nil)
View
2 gadgets.lisp
@@ -24,7 +24,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
; copied to here to avoid a stupid sbcl forward class problem
#+sbcl
View
2 grafts.lisp
@@ -17,7 +17,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defclass graft (sheet-multiple-child-mixin mirrored-sheet-mixin basic-sheet)
((orientation :initform :default
View
4 graph-formatting.lisp
@@ -3,7 +3,7 @@
;;; Title: Graph Formatting
;;; Created: 2002-08-13
;;; License: LGPL (See file COPYING for details).
-;;; $Id: graph-formatting.lisp,v 1.6 2002/11/28 19:56:56 mikemac Exp $
+;;; $Id: graph-formatting.lisp,v 1.7 2003/03/21 21:36:59 mikemac Exp $
;;; ---------------------------------------------------------------------------
;;; (c) copyright 2002 by Gilbert Baumann
@@ -23,7 +23,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;;; Notes
View
2 graphics.lisp
@@ -18,7 +18,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defmethod do-graphics-with-options ((sheet sheet) func &rest options)
(with-sheet-medium (medium sheet)
View
2 incremental-redisplay.lisp
@@ -18,7 +18,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
#|
Incremental Redisplay Theory of Operation
View
2 input-editing.lisp
@@ -18,7 +18,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defvar *activation-gestures* nil)
(defvar *standard-activation-gestures* '(:newline :return))
View
2 input.lisp
@@ -18,7 +18,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;; Input Protocol Classes
View
2 medium.lisp
@@ -59,7 +59,7 @@
;; [1] or even a code position
;; --GB
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;; This must come early, because of implementation quirks:
View
2 menu.lisp
@@ -18,7 +18,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defmethod menu-root ((button menu-button-pane))
(menu-root (gadget-client button)))
View
2 output.lisp
@@ -17,7 +17,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defclass standard-sheet-output-mixin ()
(
View
4 panes.lisp
@@ -27,9 +27,9 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-;;; $Id: panes.lisp,v 1.116 2003/03/21 15:15:08 mikemac Exp $
+;;; $Id: panes.lisp,v 1.117 2003/03/21 21:36:59 mikemac Exp $
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;;;
;;;; Ambiguities and Obmissions
View
2 patch.lisp
@@ -1,4 +1,4 @@
-(in-package "CL-USER")
+(in-package :cl-user)
(defpackage :clim-lisp-patch
(:use)
View
2 pixmap.lisp
@@ -17,7 +17,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defclass pixmap ()
((sheet :initarg :sheet :reader pixmap-sheet)
View
2 pointer-tracking.lisp
@@ -29,7 +29,7 @@
;;;
;;; - - remove invoke-tracking-pointer; remove unnecessary checks.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defmacro tracking-pointer
((sheet &rest args
View
2 ports.lisp
@@ -21,7 +21,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defvar *default-server-path* NIL)
View
2 presentation-defs.lisp
@@ -18,7 +18,7 @@
;;; Definitions for the standard presentation types and generic functions
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;; These types are defined early so the classes will be available for
;;; the presentation generic function MOPery at method definition time,
View
2 presentations.lisp
@@ -21,7 +21,7 @@
;;; functions and methods, presentation translators, finding an applicable
;;;presentation.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;; PRESENTATION class
View
2 recording.lisp
@@ -74,7 +74,7 @@
;;; that only instances of STANDARD-TEXT-OUTPUT-RECORD are used for
;;; recording. -- APD, 2002-06-15.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(define-protocol-class output-record (bounding-rectangle)
())
View
2 repaint.lisp
@@ -27,7 +27,7 @@
;;;
;;; The Repaint Protocol
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
View
2 setf-star.lisp
@@ -18,7 +18,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defun setf-name-p (name)
(and (listp name) (eq (car name) 'setf)))
View
2 sheets.lisp
@@ -30,7 +30,7 @@
;;;
;;; The sheet protocol
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defgeneric sheet-parent (sheet)
(:documentation
View
2 stream-input.lisp
@@ -20,7 +20,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;; X returns #\Return and #\Backspace where we want to see #\Newline
;;; and #\Delete at the stream-read-char level. Dunno if this is the
View
2 stream-output.lisp
@@ -19,7 +19,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;; Note: in the methods defined on output streams, I often use
;;; the sheet's medium as the argument to the draw-* routines.
View
2 table-formatting.lisp
@@ -33,7 +33,7 @@
;;; - Bug: only one option of :X-SPACING and :Y-SPACING works now. (?)
;;; - Item list formatting: what is :EQUALIZE-COLUMN-WIDTHS?!
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;; Space specification parsing
#+ignore(deftype space () 'real)
View
12 test.lisp
@@ -19,19 +19,19 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-DEMO)
+(in-package :clim-demo)
(defun address-book ()
(declare (special frame fm port pane medium graft))
(loop for port in climi::*all-ports*
do (destroy-port port))
(setq climi::*all-ports* nil)
(setq frame (make-application-frame 'address-book))
- (setq fm (frame-manager frame))
- (setq port (climi::frame-manager-port fm))
- (setq pane (frame-standard-output frame))
- (setq medium (sheet-medium pane))
- (setq graft (graft frame))
+; (setq fm (frame-manager frame))
+; (setq port (climi::frame-manager-port fm))
+; (setq pane (frame-standard-output frame))
+; (setq medium (sheet-medium pane))
+; (setq graft (graft frame))
(run-frame-top-level frame))
(defun test-define-application-frame ()
View
2 text-formatting.lisp
@@ -23,7 +23,7 @@
;;;
;;; - FILLING-OUTPUT
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defun format-textual-list (sequence printer
&key stream separator conjunction
View
2 transforms.lisp
@@ -24,7 +24,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;;; Changes
View
2 utils.lisp
@@ -17,7 +17,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
(defun get-environment-variable (string)
#+excl (sys:getenv string)
View
2 views.lisp
@@ -16,7 +16,7 @@
;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307 USA.
-(in-package :CLIM-INTERNALS)
+(in-package :clim-internals)
;;; Views are defined here and not in presentations.lisp so that they
;;; can be referenced in the streams code.

0 comments on commit 95dff8a

Please sign in to comment.
Something went wrong with that request. Please try again.