cosmetic: all packages follow same name convention

Except top-level package xlib we have xlib/extension-name and
xlib-demo/demo-name. All package names are uninterned symbols.

Author: dkochmanski

clx.asd

@@ -34,7 +34,7 @@
 
 (defclass legacy-file (static-file) ())
 
-(defsystem CLX
+(defsystem #:clx
     :description "An implementation of the X Window System protocol in Lisp."
     :depends-on (#+sbcl sb-bsd-sockets)
     :version "0.7.2"

demo/clclock.lisp

@@ -1,8 +1,8 @@
-(defpackage "XCLCLOCK"
+(defpackage #:xlib-demo/clclock
   (:use "CL")
   (:export "CLOCK"))
 
-(in-package "XCLCLOCK")
+(in-package #:xlib-demo/clclock)
 
 (defvar *display* (xlib:open-default-display))
 (defvar *screen* (xlib:display-default-screen *display*))

demo/clipboard.lisp

@@ -59,11 +59,11 @@
 ;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 ;;; DEALINGS IN THE SOFTWARE.
 
-(defpackage "CLIPBOARD"
+(defpackage #:xlib-demo/clipboard
   (:use "CL" "XLIB")
   (:export "MAIN"))
 
-(in-package "CLIPBOARD")
+(in-package #:xlib-demo/clipboard)
 
 ;;; This is "traditional" XLIB style; I don't really know if it's the
 ;;; best way -- in developing this program, style of XLIB programming

demo/clx-demos.lisp

@@ -6,10 +6,10 @@
 ;;; This file should be portable to any valid Common Lisp with CLX -- DEC 88.
 ;;;
 
-(defpackage :demos (:use :common-lisp)
+(defpackage #:xlib-demo/demos (:use :common-lisp)
   (:export do-all-demos demo))
 
-(in-package :demos)
+(in-package :xlib-demo/demos)
 
 
 ;;;; Graphic demos wrapper macro.

demo/mandel.lisp

@@ -1,8 +1,8 @@
-(defpackage "XMANDEL"
+(defpackage #:xlib-demo/mandel
   (:use "CL")
   (:export "NEW-WINDOW" "EVENT-LOOP"))
 
-(in-package "XMANDEL")
+(in-package #:xlib-demo/mandel)
 
 (defvar *display* (xlib:open-default-display))
 (defvar *screen* (xlib:display-default-screen *display*))

extensions/dpms.lisp

@@ -13,7 +13,7 @@
 ;;;;  any purpose of the information in this document.  This documentation is
 ;;;;  provided ``as is'' without express or implied warranty.
 
-(defpackage :dpms
+(defpackage #:xlib/dpms
   (:use :common-lisp)
   (:import-from :xlib
                 "DEFINE-EXTENSION"
@@ -36,7 +36,7 @@
            "DPMS-FORCE-LEVEL"
            "DPMS-INFO"))
 
-(in-package :dpms)
+(in-package #:xlib/dpms)
 
 (define-extension "DPMS")
 

extensions/xinerama.lisp

@@ -12,7 +12,7 @@
 ;;; This is an implementation of the XINERAMA extension. It does not
 ;;; include the obsolete PanoramiX calls.
 
-(defpackage "XLIB.XINERAMA"
+(defpackage #:xlib/xinerama
   (:use "COMMON-LISP" "XLIB")
   (:nicknames "XINERAMA")
   (:import-from "XLIB"
@@ -33,7 +33,7 @@
            "XINERAMA-QUERY-VERSION"
            "XINERAMA-IS-ACTIVE"
            "XINERAMA-QUERY-SCREENS"))
-(in-package "XINERAMA")
+(in-package #:xlib/xinerama)
 
 (define-extension "XINERAMA")
 

extensions/xtest.lisp

@@ -10,7 +10,7 @@
 ;;; * Implement XTestSetVisualIDOfVisual and XTestDiscard
 ;;; * Add the missing (declare (type ...
 
-(defpackage :xtest
+(defpackage #:xlib/xtest
   (:use :common-lisp :xlib)
   (:import-from :xlib
                 #:data
@@ -44,7 +44,7 @@
    #:fake-key-event
    #:grab-control))
 
-(in-package :xtest)
+(in-package #:xlib/xtest)
 
 (define-extension "XTEST")
 

package.lisp

@@ -228,7 +228,7 @@
 (common-lisp:in-package :common-lisp-user)
 
 #+clx-ansi-common-lisp
-(defpackage xlib
+(defpackage #:xlib
   (:use common-lisp)
   (:size 3000)
   #+(or kcl ibcl) (:shadow rational)