mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-19 13:40:37 -08:00
Code Issues Projects Releases Packages Wiki Activity

*CURRENT-FORM* must be bound to at least an empty statement.

Browse source
This commit is contained in:
jgarcia 2007-10-13 09:41:29 +00:00
parent 2d1a535eb8
commit 7de7e4a471
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/symbols_list.h
View file

@ -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},

2
src/c/symbols_list2.h
View file

@ -1657,7 +1657,7 @@ cl_symbols[] = {
{SYS_ "GC-STATS","si_gc_stats"},
{SYS_ "*CURRENT-FORM*",NULL},
{SYS_ "*CURRENT-FORM*","Cnil"},
{SYS_ "CODE-BLOCK",NULL},

2
src/lsp/config.lsp.in
View file

@ -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: ()