Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 5cf14eb)
encodings: fix misplaced function reference
authorDaniel Kochmański <daniel@turtleware.eu>
Wed, 12 Aug 2015 11:27:08 +0000 (13:27 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Wed, 12 Aug 2015 11:27:08 +0000 (13:27 +0200)
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
src/c/unixsys.d patch | blob | blame | history

diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h
index a4353c1..875c538 100755 (executable)
--- a/src/c/symbols_list.h
+++ b/src/c/symbols_list.h
@@ -1878,9 +1878,9 @@ cl_symbols[] = {
 {KEY_ "UCS-2LE", KEYWORD, NULL, -1, OBJNULL},
 {KEY_ "UCS-4LE", KEYWORD, NULL, -1, OBJNULL},
 
-{EXT_ "LOAD-ENCODING", EXT_ORDINARY, NULL, -1, OBJNULL},
+{EXT_ "LOAD-ENCODING", EXT_ORDINARY, ECL_NAME(si_load_encoding), 1, OBJNULL},
 {EXT_ "MAKE-ENCODING", EXT_ORDINARY, si_make_encoding, 1, OBJNULL},
-{EXT_ "ALL-ENCODINGS", EXT_ORDINARY, ECL_NAME(si_load_encoding), 1, OBJNULL},
+{EXT_ "ALL-ENCODINGS", EXT_ORDINARY, NULL, -1, OBJNULL},
 
 {KEY_ "US-ASCII", KEYWORD, NULL, -1, OBJNULL},
 {KEY_ "LITTLE-ENDIAN", KEYWORD, NULL, -1, OBJNULL},
diff --git a/src/c/symbols_list2.h b/src/c/symbols_list2.h
index 0ea44e1..61f15f4 100644 (file)
--- a/src/c/symbols_list2.h
+++ b/src/c/symbols_list2.h
@@ -1878,9 +1878,9 @@ cl_symbols[] = {
 {KEY_ "UCS-2LE",NULL},
 {KEY_ "UCS-4LE",NULL},
 
-{EXT_ "LOAD-ENCODING",NULL},
+{EXT_ "LOAD-ENCODING","ECL_NAME(si_load_encoding)"},
 {EXT_ "MAKE-ENCODING","si_make_encoding"},
-{EXT_ "ALL-ENCODINGS","ECL_NAME(si_load_encoding)"},
+{EXT_ "ALL-ENCODINGS",NULL},
 
 {KEY_ "US-ASCII",NULL},
 {KEY_ "LITTLE-ENDIAN",NULL},
diff --git a/src/c/unixsys.d b/src/c/unixsys.d
index d90e401..6ea7c4d 100644 (file)
--- a/src/c/unixsys.d
+++ b/src/c/unixsys.d
@@ -504,7 +504,6 @@ create_descriptor(cl_object stream, cl_object direction,
         }
 }
 #endif
-
 @(defun ext::run-program (command argv &key (input @':stream') (output @':stream')
                           (error @':output') (wait @'t') (environ ECL_NIL)
                           (if_input_does_not_exist ECL_NIL)
@@ -776,4 +775,3 @@ create_descriptor(cl_object stream, cl_object direction,
                  exit_status
                  process)
 @)
-
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)