diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h index 770a99ed7..69ba86165 100644 --- a/src/c/symbols_list.h +++ b/src/c/symbols_list.h @@ -1657,7 +1657,7 @@ cl_symbols[] = { {SYS_ "GC-STATS", SI_ORDINARY, si_gc_stats, 1, OBJNULL}, -{SYS_ "*CURRENT-FORM*", SI_SPECIAL, NULL, -1, OBJNULL}, +{SYS_ "*CURRENT-FORM*", SI_SPECIAL, Cnil, -1, OBJNULL}, {SYS_ "CODE-BLOCK", SI_ORDINARY, NULL, -1, OBJNULL}, diff --git a/src/c/symbols_list2.h b/src/c/symbols_list2.h index 9649f1b53..54c995dd6 100644 --- a/src/c/symbols_list2.h +++ b/src/c/symbols_list2.h @@ -1657,7 +1657,7 @@ cl_symbols[] = { {SYS_ "GC-STATS","si_gc_stats"}, -{SYS_ "*CURRENT-FORM*",NULL}, +{SYS_ "*CURRENT-FORM*","Cnil"}, {SYS_ "CODE-BLOCK",NULL}, diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in index 0b41fda2b..5eaca981c 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-10-13 11:39)") + "@PACKAGE_VERSION@ (CVS 2007-10-13 11:40)") (defun machine-type () "Args: ()