Added version numbering scheme for CLASH releases.

src/main/version.cl

@@ -1,7 +1,7 @@
 ;;;; CLASH --- The Common Lisp Adaptable Simple HTTP server
 ;;;; This is copyrighted software.  See documentation for terms.
 ;;;; 
-;;;; version.cl --- HTTP-Version handling
+;;;; version.cl --- HTTP-Version handling and CLASH version
 ;;;; 
 ;;;; Checkout Tag: $Name$
 ;;;; $Id$
@@ -10,10 +10,28 @@
 
 ;;;; %File Description:
 ;;;; 
-;;;; 
+;;;; This file contains the code for handling HTTP protocol version
+;;;; numbers.  It also contains the current CLASH release version
+;;;; number, since there was nowhere else to put it.
 ;;;; 
 
-;;;; Some typedef for version numbers
+;;;; CLASH Release Version
+
+(defparameter *clash-major-version* 1
+  "Major release version of CLASH.")
+
+(defparameter *clash-minor-version* 0
+  "Minor release version of CLASH.")
+
+(defun clash-version-string ()
+  "Returns a string containing the CLASH release version."
+  (format nil "~D.~D"
+	  *clash-major-version*
+	  *clash-minor-version*))
+
+;;;; HTTP Protocol Version Handling
+
+;;; Some typedef for version numbers
 (deftype http-version-number-type ()
   "Type for HTTP-Version major and minor version numbers."
   `(integer 0 ,most-positive-fixnum))

src/package.cl

@@ -104,6 +104,9 @@
    #:url-query-argument
    #:url-http
    ;; Version
+   #:*clash-major-version*
+   #:*clash-minor-version*
+   #:clash-version-string
    #:http-version
    #:http-version-major
    #:http-version-minor