mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

cosmetic: replace @'t' with ECL_T in core

Browse source
This commit is contained in:
Daniel Kochmański 2024-12-11 12:37:44 +01:00
parent 9dcd8ff7c3
commit 82e01c0b7d
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/array.d
View file

@ -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);

2
src/c/clos/instance.d
View file

@ -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);
}

4
src/c/load.d
View file

@ -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);