X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_error.c;fp=src%2Flisp%2Fao_lisp_error.c;h=cfa78d2272e73c473f2196464333cd497ec6c6ab;hb=c7d7cdc2318a97534c4c1f9c6fd2b51644be729d;hp=8b9fe2d5fd4d6f9e6993d6ba8b79c4ef2710c8d4;hpb=417161dbb36323b5a6572859dedad02ca92fc65c;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_error.c b/src/lisp/ao_lisp_error.c
index 8b9fe2d5..cfa78d22 100644
--- a/src/lisp/ao_lisp_error.c
+++ b/src/lisp/ao_lisp_error.c
@@ -73,6 +73,7 @@ static const char *state_names[] = {
 	"exec",
 	"cond",
 	"cond_test",
+	"progn",
 };
 
 void