Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: fb5ce8b)
run-program: declare additional keys in symbols_list.h
authorDaniel Kochmański <daniel@turtleware.eu>
Fri, 18 Sep 2015 09:31:26 +0000 (11:31 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Fri, 18 Sep 2015 09:31:26 +0000 (11:31 +0200)
Each key used in core environment has to be declared beforehand in
`symbols_list.h'. Fixes #166. Fixes #149.

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/c/symbols_list.h patch | blob | blame | history
src/c/symbols_list2.h patch | blob | blame | history

diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h
index 457faf4..5b00119 100755 (executable)
--- a/src/c/symbols_list.h
+++ b/src/c/symbols_list.h
@@ -1361,7 +1361,9 @@ cl_symbols[] = {
 {KEY_ "GENSYM", KEYWORD, NULL, -1, OBJNULL},
 {KEY_ "HOST", KEYWORD, NULL, -1, OBJNULL},
 {KEY_ "IF-DOES-NOT-EXIST", KEYWORD, NULL, -1, OBJNULL},
+{KEY_ "IF-ERROR-EXISTS", KEYWORD, NULL, -1, OBJNULL},
 {KEY_ "IF-EXISTS", KEYWORD, NULL, -1, OBJNULL},
+{KEY_ "IF-INPUT-DOES-NOT-EXIST", KEYWORD, NULL, -1, OBJNULL},
 {KEY_ "IF-OUTPUT-EXISTS", KEYWORD, NULL, -1, OBJNULL},
 {KEY_ "IGNORE", KEYWORD, NULL, -1, OBJNULL},
 {KEY_ "IMPORT-FROM", KEYWORD, NULL, -1, OBJNULL},
diff --git a/src/c/symbols_list2.h b/src/c/symbols_list2.h
index 2740232..a0a5466 100644 (file)
--- a/src/c/symbols_list2.h
+++ b/src/c/symbols_list2.h
@@ -1361,7 +1361,9 @@ cl_symbols[] = {
 {KEY_ "GENSYM",NULL},
 {KEY_ "HOST",NULL},
 {KEY_ "IF-DOES-NOT-EXIST",NULL},
+{KEY_ "IF-ERROR-EXISTS",NULL},
 {KEY_ "IF-EXISTS",NULL},
+{KEY_ "IF-INPUT-DOES-NOT-EXIST",NULL},
 {KEY_ "IF-OUTPUT-EXISTS",NULL},
 {KEY_ "IGNORE",NULL},
 {KEY_ "IMPORT-FROM",NULL},
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)