/[clhp]/clhp/clhp.lisp
ViewVC logotype

Diff of /clhp/clhp.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by aventimiglia, Wed Oct 15 12:50:52 2003 UTC revision 1.13 by aventimiglia, Wed Oct 15 14:44:04 2003 UTC
# Line 25  Line 25 
25    (unless (find-package :cgi)    (unless (find-package :cgi)
26      (load "cgi")))      (load "cgi")))
27    
28  (defpackage :clhp  (defpackage #:net.common-lisp.aventimiglia.clhp
29      (:nicknames :clhp)
30    (:use :cgi :cl)    (:use :cgi :cl)
31    (:import-from :cgi #:cond-bind #:list-to-a-list)    (:import-from :cgi #:cond-bind #:list-to-a-list)
32    (:export #:parse #:*clhp-version* #:echo #:include #:xml-element    (:export #:parse #:*clhp-version* #:echo #:include #:xml-element
# Line 38  Line 39 
39  ;; by changing the NIL in the first part of the OR, a release number  ;; by changing the NIL in the first part of the OR, a release number
40  ;; will override the CVS keyword  ;; will override the CVS keyword
41  (defconstant *CLHP-VERSION*  (defconstant *CLHP-VERSION*
42    #.(or nil                             ; Set this for releases    #.(or "0.1.1alpha"                            ; Set this for releases
43          (let* ((trimmed (string-trim "$ Date:" "$Date$"))          (let* ((trimmed (string-trim "$ Date:" "$Date$"))
44                 (date (subseq trimmed 0 (search " " trimmed))))                 (date (subseq trimmed 0 (search " " trimmed))))
45            (concatenate 'string            (concatenate 'string

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5