Remove unused CVS keywords, regularize package definition/references.

examples/static-test.lisp

@@ -1,6 +1,6 @@
-;;(eval-when (:compile-toplevel :load-toplevel :execute) (require "CLASH"))
-(defpackage :CLASH-BENCH (:use :cl :CLASH))
-(in-package :CLASH-BENCH)
+;;(eval-when (:compile-toplevel :load-toplevel :execute) (require "clash"))
+(cl:defpackage #:clash-bench (:use #:cl #:clash))
+(cl:in-package :clash-bench)
 
 (eval-when (:compile-toplevel :load-toplevel :execute) (enable-clash-syntax))
 (defvar *my-server* (make-instance 'http-server/1.0))

src/acl-locking.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; acl-locking.cl --- Platform independent locking primitives
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/cmu-locking.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; cmu-locking.cl --- Platform independent locking primitives
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/drivers/simple-acl.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; simple-acl.cl --- Simple driver for Allegro Common Lisp
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/drivers/simple-cmu.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; simple-cmu.cl --- Simple HTTP-Server driver for CMU CL
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/drivers/simple-lwl.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; simple-lwl.cl --- Simple driver for LispWorks for Linux
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/drivers/simple-sbcl.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; simple-sbcl.cl --- Simple HTTP-Server driver for SBCL
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/lwl-locking.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; lwl-locking.cl --- Platform independent locking primitives
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/authorization.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; authorization.cl --- Authorization checking resources
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/buffer.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; buffer.cl --- Efficient I/O and buffer handling
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/conditions.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; conditions.cl --- CLASH- and HTTP-specific conditions
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/connection.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; connection.cl --- Object to identify a connection.
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/entity.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; entity.cl --- Entity Handling
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/http-io.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; http-io.cl --- HTTP conforming input and output routines and codecs
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/logging.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; logging.cl --- Logging and tracing functionality
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/messages.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; messages.cl --- HTTP Request and Response messages
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/method.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; method.cl --- HTTP Request Method registry
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/mime.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; mime.cl --- MIME handling code
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/namespace.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; namespace.cl --- URL Namespace
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/parsing.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; parsing.cl --- General HTTP parsing routines
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/readtable.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; readtable.cl --- Specialized Syntax/Readtable for CLASH
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/resource.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; resource.cl --- Definition of a served resource
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/responses.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; responses.cl --- Creation of standardized responses
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/server.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; server.cl --- Basic HTTP Server definition
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/session.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; session.cl --- Session management resources
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/status-codes.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; status-codes.cl --- HTTP-mandated status codes.
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/url.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; url.cl --- URL parsing/unparsing
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/utility.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; utility.cl --- Utility functions and macros for CLASH users
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/main/version.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; version.cl --- HTTP-Version handling and CLASH version
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/package.lisp

@@ -3,18 +3,17 @@
 ;;;; 
 ;;;; package.cl --- Package definition for CLASH itself
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :cl-user)
+(cl:in-package #:cl-user)
 
 ;;;; %File Description:
 ;;;; 
 ;;;; 
 ;;;; 
 
-(defpackage :CLASH
-    (:use :cl #+(and :cmu :mp) :mp)
+(defpackage #:clash
+    (:use #:cl #+(and :cmu :mp) #:mp)
   (:export
    ;; Status Codes
    #:+HTTP-Code-Continue+

src/sbcl-locking.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; sbcl-locking.cl --- Platform independent locking primitives
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/test/basic-demo.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; basic-demo.cl --- Basic server demonstration
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;; 

src/utility.lisp

@@ -3,10 +3,9 @@
 ;;;; 
 ;;;; utility.cl --- Basic substrate utilities
 ;;;; 
-;;;; Checkout Tag: $Name$
 ;;;; $Id$
 
-(in-package :CLASH)
+(cl:in-package #:clash)
 
 ;;;; %File Description:
 ;;;;