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

Last change on this file since 15278 was 15248, checked in by rme, 8 years ago

Bump minor version.

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