source: release/1.5/source/level-1/version.lisp @ 13616

Last change on this file since 13616 was 13616, checked in by rme, 10 years ago

Put "rc1" in version string in preparation
for building a set of binaries.

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