Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 143517a)
cosmetic: change label name from ERR to ERROR
authorDaniel Kochmański <daniel@turtleware.eu>
Sat, 29 Aug 2015 18:37:25 +0000 (20:37 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Sat, 29 Aug 2015 18:37:42 +0000 (20:37 +0200)
First netbsd patch is partly applied (we have dragonfly platform), but
it drops solaris 10 support which we don't. Second is cosmetic and
applied right now. Fixes #144.

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

diff --git a/src/c/file.d b/src/c/file.d
index e975056..2dbfd86 100755 (executable)
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -5367,7 +5367,7 @@ ecl_integer_to_off_t(cl_object offset)
         } else if (ECL_BIGNUMP(offset)) {
                 if (sizeof(ECL_BIGNUM_LIMBS(offset)[0]) == sizeof(cl_index)) {
                         if (ECL_BIGNUM_SIZE(offset) > 2) {
-                                goto ERR;
+                                goto ERROR;
                         }
                         if (ECL_BIGNUM_SIZE(offset) == 2) {
                             output = ECL_BIGNUM_LIMBS(offset)[1];
@@ -5376,12 +5376,12 @@ ecl_integer_to_off_t(cl_object offset)
                         output += ECL_BIGNUM_LIMBS(offset)[0];
                 } else if (sizeof(ECL_BIGNUM_LIMBS(offset)[0]) >= sizeof(ecl_off_t)) {
                         if (ECL_BIGNUM_SIZE(offset) > 1) {
-                                goto ERR;
+                                goto ERROR;
                         }
                         output = ECL_BIGNUM_LIMBS(offset)[0];
                 }
         } else {
-        ERR:    FEerror("Not a valid file offset: ~S", 1, offset);
+        ERROR:    FEerror("Not a valid file offset: ~S", 1, offset);
         }
         return output;
 }
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)