diff --git a/src/CHANGELOG b/src/CHANGELOG index 3bb1a2c6d..a90891664 100644 --- a/src/CHANGELOG +++ b/src/CHANGELOG @@ -64,6 +64,9 @@ ECL 1.0: * Bugs fixed: + - Lexical environment variables were not marked as volatile and thus they + were sometimes clobbered by the C compiler. + - COMPILE-FILE-PATHNAME accepts the same keyword arguments as COMPILE-FILE. - COMPILER-LET is not standard and belongs in the EXT package. However, it had diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp index 5bfc07733..f068648cb 100644 --- a/src/cmp/cmptop.lsp +++ b/src/cmp/cmptop.lsp @@ -347,7 +347,7 @@ ; (wt-h "#define VU" *reservation-cmacro*) (wt-h "#define VLEX" *reservation-cmacro*) (when (plusp *max-lex*) - (wt-h1 " cl_object lex") (wt-h1 *level*) + (wt-h1 " volatile cl_object lex") (wt-h1 *level*) (wt-h1 "[") (wt-h1 *max-lex*) (wt-h1 "];")) (wt-h "#define CLSR" *reservation-cmacro*) (when (plusp *max-env*) diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in index 70b1d64a5..6caac11c9 100644 --- a/src/lsp/config.lsp.in +++ b/src/lsp/config.lsp.in @@ -24,7 +24,7 @@ Returns, as a string, the location of the machine on which ECL runs." (defun lisp-implementation-version () "Args:() Returns the version of your ECL as a string." - "@PACKAGE_VERSION@ (CVS 2007-12-20 17:07)") + "@PACKAGE_VERSION@ (CVS 2007-12-21 17:58)") (defun machine-type () "Args: ()