From 82e01c0b7ddaca6ab0b6be89d646cfc1be64bda5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Wed, 11 Dec 2024 12:37:44 +0100 Subject: [PATCH] cosmetic: replace @'t' with ECL_T in core --- src/c/array.d | 2 +- src/c/clos/instance.d | 2 +- src/c/load.d | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/c/array.d b/src/c/array.d index bc67e1aa8..89d7d022a 100644 --- a/src/c/array.d +++ b/src/c/array.d @@ -712,7 +712,7 @@ ecl_symbol_to_elttype(cl_object x) else if (x == @'ext::integer64') return(ecl_aet_i64); #endif - else if (x == @'t') + else if (x == ECL_T) return(ecl_aet_object); else if (x == ECL_NIL) { FEerror("ECL does not support arrays with element type NIL", 0); diff --git a/src/c/clos/instance.d b/src/c/clos/instance.d index 2618a332b..e589692b0 100644 --- a/src/c/clos/instance.d +++ b/src/c/clos/instance.d @@ -520,7 +520,7 @@ cl_class_of(cl_object x) * optimize the slot access */ cl_object v = @'clos::+builtin-classes+'->symbol.value; cl_object output = Null(v)? - cl_find_class(1,@'t') : + cl_find_class(1, ECL_T) : v->vector.self.t[index]; @(return output); } diff --git a/src/c/load.d b/src/c/load.d index 3b5efe069..3862c9857 100644 --- a/src/c/load.d +++ b/src/c/load.d @@ -118,7 +118,7 @@ si_load_source(cl_object source, cl_object verbose, cl_object print, cl_object e try to close the stream, and then jump to next catch point */ if (strm != source) - cl_close(3, strm, @':abort', @'t'); + cl_close(3, strm, @':abort', ECL_T); } ECL_UNWIND_PROTECT_THREAD_SAFE_END; @(return ECL_NIL); } @@ -193,7 +193,7 @@ si_load_bytecodes(cl_object source, cl_object verbose, cl_object print, cl_objec try to close the stream, and then jump to next catch point */ if (strm != source) { - cl_close(3, strm, @':abort', @'t'); + cl_close(3, strm, @':abort', ECL_T); } } ECL_UNWIND_PROTECT_THREAD_SAFE_END; @(return ECL_NIL);