source: trunk/source/level-1/version.lisp @ 11760

Last change on this file since 11760 was 11760, checked in by gb, 11 years ago

When generating the version string, only incorprate the svn revision
and the preceding "-r" if the svn revision is a non-empty string.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.4 KB
Line 
1;;;-*-Mode: LISP; Package: CCL -*-
2;;;
3;;;   Copyright (C) 1994-2001 Digitool, Inc
4;;;   This file is part of OpenMCL. 
5;;;
6;;;   OpenMCL is licensed under the terms of the Lisp Lesser GNU Public
7;;;   License , known as the LLGPL and distributed with OpenMCL as the
8;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
9;;;   which is distributed with OpenMCL as the file "LGPL".  Where these
10;;;   conflict, the preamble takes precedence. 
11;;;
12;;;   OpenMCL is referenced in the preamble as the "LIBRARY."
13;;;
14;;;   The LLGPL is also available online at
15;;;   http://opensource.franz.com/preamble.html
16
17(in-package "CCL")
18
19(defparameter *openmcl-major-version* 1)
20(defparameter *openmcl-minor-version* 3)
21(defparameter *openmcl-revision* "dev")
22;;; May be set by xload-level-0
23(defvar *openmcl-svn-revision* nil)
24(defparameter *openmcl-dev-level* nil)
25
26(defparameter *openmcl-version* (format nil "~d.~d~@[-~a~]~@[-r~a~] ~@[+~s~] (~@[~A: ~]~~A)"
27                                        *openmcl-major-version*
28                                        *openmcl-minor-version*
29                                        (unless (null *openmcl-revision*)
30                                          *openmcl-revision*)
31                                        (if (and (typep *openmcl-svn-revision* 'string)
32                                                 (> (length *openmcl-svn-revision*) 0))
33                                          *openmcl-svn-revision*)
34                                        *optional-features*
35                                        *openmcl-dev-level*))
36
37
38
39
40;;; end
Note: See TracBrowser for help on using the repository browser.