[Maxima-commits] CVS: maxima/src init-cl.lisp,1.116.2.2,1.116.2.3

[Robert D. <rob...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv15479/src

Modified Files:
      Tag: RELEASE-5_16-BRANCH
	init-cl.lisp 
Log Message:
Define variable *MAXIMA-BUILD-TIME* for the benefit of build_info.
Definition is for ECL only. *MAXIMA-BUILD-TIME* is also defined in src/maxima.system
and src/maxima.asd; not sure what is the effect of redundant definitions.
With this change, build_info works OK in Maxima compiled with ECL.
Thanks to Andrej Vodopivec for this.

Index: init-cl.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/init-cl.lisp,v
retrieving revision 1.116.2.2
retrieving revision 1.116.2.3
diff -u -d -r1.116.2.2 -r1.116.2.3
--- init-cl.lisp	14 Aug 2008 18:48:17 -0000	1.116.2.2
+++ init-cl.lisp	17 Aug 2008 17:32:36 -0000	1.116.2.3
@@ -9,6 +9,8 @@
 
 ;;; An ANSI-CL portable initializer to replace init_max1.lisp
 
+#+ecl (defvar cl-user::*maxima-build-time* '#.(multiple-value-list (get-decoded-time)))
+
 ;;; Locations of various types of files. These variables are discussed
 ;;; in more detail in the file doc/implementation/dir_vars.txt. Since
 ;;; these are already in the maxima package, the maxima- prefix is