diff --git a/src/main/version.cl b/src/main/version.cl index df163f7..9bcc0d7 100644 --- a/src/main/version.cl +++ b/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)) diff --git a/src/package.cl b/src/package.cl index 3132b4c..ae3922f 100644 --- a/src/package.cl +++ b/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