diff --git a/examples/static-test.lisp b/examples/static-test.lisp index a803ba0..aa070d8 100644 --- a/examples/static-test.lisp +++ b/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)) diff --git a/src/acl-locking.lisp b/src/acl-locking.lisp index 5127163..b900b36 100644 --- a/src/acl-locking.lisp +++ b/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: ;;;; diff --git a/src/cmu-locking.lisp b/src/cmu-locking.lisp index 4e19ab2..23669c8 100644 --- a/src/cmu-locking.lisp +++ b/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: ;;;; diff --git a/src/drivers/simple-acl.lisp b/src/drivers/simple-acl.lisp index f870ea9..ee8bf15 100644 --- a/src/drivers/simple-acl.lisp +++ b/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: ;;;; diff --git a/src/drivers/simple-cmu.lisp b/src/drivers/simple-cmu.lisp index 6862e5e..aae59e0 100644 --- a/src/drivers/simple-cmu.lisp +++ b/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: ;;;; diff --git a/src/drivers/simple-lwl.lisp b/src/drivers/simple-lwl.lisp old mode 100755 new mode 100644 index c21726f..542bf98 --- a/src/drivers/simple-lwl.lisp +++ b/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: ;;;; diff --git a/src/drivers/simple-sbcl.lisp b/src/drivers/simple-sbcl.lisp index 74d9a71..63323cd 100644 --- a/src/drivers/simple-sbcl.lisp +++ b/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: ;;;; diff --git a/src/lwl-locking.lisp b/src/lwl-locking.lisp index 4b370cd..ddf61c0 100644 --- a/src/lwl-locking.lisp +++ b/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: ;;;; diff --git a/src/main/authorization.lisp b/src/main/authorization.lisp index 022d5e5..a6e8cda 100644 --- a/src/main/authorization.lisp +++ b/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: ;;;; diff --git a/src/main/buffer.lisp b/src/main/buffer.lisp index 8a21828..aa75693 100644 --- a/src/main/buffer.lisp +++ b/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: ;;;; diff --git a/src/main/conditions.lisp b/src/main/conditions.lisp index 2fe1624..ee4b3c6 100644 --- a/src/main/conditions.lisp +++ b/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: ;;;; diff --git a/src/main/connection.lisp b/src/main/connection.lisp index 3ef78a5..ecdf306 100644 --- a/src/main/connection.lisp +++ b/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: ;;;; diff --git a/src/main/entity.lisp b/src/main/entity.lisp index dfd1618..fa49bd5 100644 --- a/src/main/entity.lisp +++ b/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: ;;;; diff --git a/src/main/http-io.lisp b/src/main/http-io.lisp index 64886fd..529a2fa 100644 --- a/src/main/http-io.lisp +++ b/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: ;;;; diff --git a/src/main/logging.lisp b/src/main/logging.lisp index dff1f40..5be3dff 100644 --- a/src/main/logging.lisp +++ b/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: ;;;; diff --git a/src/main/messages.lisp b/src/main/messages.lisp index 45d458a..ade65a3 100644 --- a/src/main/messages.lisp +++ b/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: ;;;; diff --git a/src/main/method.lisp b/src/main/method.lisp index fbc3952..a985b64 100644 --- a/src/main/method.lisp +++ b/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: ;;;; diff --git a/src/main/mime.lisp b/src/main/mime.lisp index 458146d..c369925 100644 --- a/src/main/mime.lisp +++ b/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: ;;;; diff --git a/src/main/namespace.lisp b/src/main/namespace.lisp index bb28a53..c065e71 100644 --- a/src/main/namespace.lisp +++ b/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: ;;;; diff --git a/src/main/parsing.lisp b/src/main/parsing.lisp index bf5d20d..f9ff138 100644 --- a/src/main/parsing.lisp +++ b/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: ;;;; diff --git a/src/main/readtable.lisp b/src/main/readtable.lisp index 5e411d2..7c43831 100644 --- a/src/main/readtable.lisp +++ b/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: ;;;; diff --git a/src/main/resource.lisp b/src/main/resource.lisp index e2fad34..b67c445 100644 --- a/src/main/resource.lisp +++ b/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: ;;;; diff --git a/src/main/responses.lisp b/src/main/responses.lisp index 592e7f8..182e634 100644 --- a/src/main/responses.lisp +++ b/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: ;;;; diff --git a/src/main/server.lisp b/src/main/server.lisp index 74ea72a..d048bc6 100644 --- a/src/main/server.lisp +++ b/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: ;;;; diff --git a/src/main/session.lisp b/src/main/session.lisp index 2ebece6..d9111db 100644 --- a/src/main/session.lisp +++ b/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: ;;;; diff --git a/src/main/status-codes.lisp b/src/main/status-codes.lisp index 5e8f5c5..39d670d 100644 --- a/src/main/status-codes.lisp +++ b/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: ;;;; diff --git a/src/main/url.lisp b/src/main/url.lisp index fe92e60..b47c0e0 100644 --- a/src/main/url.lisp +++ b/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: ;;;; diff --git a/src/main/utility.lisp b/src/main/utility.lisp index 8294d9b..72b9e38 100644 --- a/src/main/utility.lisp +++ b/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: ;;;; diff --git a/src/main/version.lisp b/src/main/version.lisp index 16b8ed4..f72faf9 100644 --- a/src/main/version.lisp +++ b/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: ;;;; diff --git a/src/package.lisp b/src/package.lisp index 2e91d34..594c288 100644 --- a/src/package.lisp +++ b/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+ diff --git a/src/sbcl-locking.lisp b/src/sbcl-locking.lisp index 9e81f2d..ffe6ce8 100644 --- a/src/sbcl-locking.lisp +++ b/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: ;;;; diff --git a/src/test/basic-demo.lisp b/src/test/basic-demo.lisp index 1179d42..e410a98 100644 --- a/src/test/basic-demo.lisp +++ b/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: ;;;; diff --git a/src/utility.lisp b/src/utility.lisp index 4a08d81..c812901 100644 --- a/src/utility.lisp +++ b/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: ;;;;