OSCL/CLASH
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove unused CVS keywords, regularize package definition/references.

Browse Source
This commit is contained in:
Pierre R. Mai
2012-11-18 02:33:17 +01:00
parent 6d6121bcca
commit e7620a0a52
33 changed files with 37 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
examples/static-test.lisp
View File

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

3
src/acl-locking.lisp
View File

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

3
src/cmu-locking.lisp
View File

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

3
src/drivers/simple-acl.lisp
View File

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

3
src/drivers/simple-cmu.lisp
View File

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

3
src/drivers/simple-lwl.lisp Executable file → Normal file
View File

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

3
src/drivers/simple-sbcl.lisp
View File

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

3
src/lwl-locking.lisp
View File

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

3
src/main/authorization.lisp
View File

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

3
src/main/buffer.lisp
View File

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

3
src/main/conditions.lisp
View File

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

3
src/main/connection.lisp
View File

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

3
src/main/entity.lisp
View File

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

3
src/main/http-io.lisp
View File

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

3
src/main/logging.lisp
View File

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

3
src/main/messages.lisp
View File

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

3
src/main/method.lisp
View File

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

3
src/main/mime.lisp
View File

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

3
src/main/namespace.lisp
View File

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

3
src/main/parsing.lisp
View File

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

3
src/main/readtable.lisp
View File

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

3
src/main/resource.lisp
View File

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

3
src/main/responses.lisp
View File

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

3
src/main/server.lisp
View File

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

3
src/main/session.lisp
View File

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

3
src/main/status-codes.lisp
View File

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

3
src/main/url.lisp
View File

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

3
src/main/utility.lisp
View File

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

3
src/main/version.lisp
View File

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

7
src/package.lisp
View File

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

3
src/sbcl-locking.lisp
View File

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

3
src/test/basic-demo.lisp
View File

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

3
src/utility.lisp
View File

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