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

Diff of /clhp/clhp.lisp

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

revision 1.2 by aventimiglia, Wed Sep 17 20:09:02 2003 UTC revision 1.3 by aventimiglia, Wed Sep 17 20:21:52 2003 UTC
# Line 40  Line 40 
40  ;; 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
41  ;; will override the CVS keyword  ;; will override the CVS keyword
42  (defconstant *CLHP-VERSION*  (defconstant *CLHP-VERSION*
43    #.(or nil    #.(or nil                             ; Set this for releases
44          (let* ((trimmed (string-trim "$ Date:" "$Date$"))          (let* ((trimmed (string-trim "$ Date:" "$Date$"))
45                 (date (subseq trimmed 0 (search " " trimmed))))                 (date (subseq trimmed 0 (search " " trimmed))))
46            (concatenate 'string            (concatenate 'string
47                         (subseq date 0 4)                         (subseq date 0 4)
48                         (subseq date 5 7)                         (subseq date 5 7)
49                         (subseq date 8 10)))))                         (subseq date 8 10)
50                           "cvs"))))
51  (defconstant *PI-START* "<?clhp")  (defconstant *PI-START* "<?clhp")
52  (defconstant *PI-END* "?>")  (defconstant *PI-END* "?>")
53    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5