From 2b75bb9fad0dc03232ffb31a40a9b71f5f53791c Mon Sep 17 00:00:00 2001 From: jgarcia Date: Sat, 13 Oct 2007 09:47:09 +0000 Subject: [PATCH] *CURRENT-FORM* must be bound to at least an empty statement. --- src/c/symbols_list.h | 2 +- src/c/symbols_list2.h | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h index 69ba86165..6fcaa3c60 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, Cnil, -1, OBJNULL}, +{SYS_ "*CURRENT-FORM*", SI_SPECIAL, NULL, -1, Cnil}, {SYS_ "CODE-BLOCK", SI_ORDINARY, NULL, -1, OBJNULL}, diff --git a/src/c/symbols_list2.h b/src/c/symbols_list2.h index 54c995dd6..9649f1b53 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*","Cnil"}, +{SYS_ "*CURRENT-FORM*",NULL}, {SYS_ "CODE-BLOCK",NULL},