mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 11:40:45 -07:00
Code Issues Projects Releases Packages Wiki Activity

universal_error_handler: print more of the error

Browse source 
Having *PRINT-LENGTH* at 3 is not satisfactory, especially in the early handler
where there are no other means to introspect errors. Change it to 8.

Before:

    ;;; Message:
    |TYPE-ERROR|
    ;;; Arguments:
    (:|EXPECTED-TYPE| |FUNCTION| :|DATUM| ...)

After:

    ;;; Message:
    |TYPE-ERROR|
    ;;; Arguments:
    (:|EXPECTED-TYPE| |FUNCTION| :|DATUM| (|QUOTE| |WHILE|))
This commit is contained in:
Daniel Kochmański 2024-12-06 10:20:34 +01:00
parent 0ebcbbd70c
commit fcd9abba71
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/error.d
View file

@ -502,8 +502,8 @@ universal_error_handler(cl_object continue_string, cl_object datum,
stream = cl_core.error_output;
if (!Null(stream)) {
ecl_bds_bind(the_env, @'*print-readably*', ECL_NIL);
ecl_bds_bind(the_env, @'*print-level*', ecl_make_fixnum(3));
ecl_bds_bind(the_env, @'*print-length*', ecl_make_fixnum(3));
ecl_bds_bind(the_env, @'*print-level*', ecl_make_fixnum(4));
ecl_bds_bind(the_env, @'*print-length*', ecl_make_fixnum(8));
ecl_bds_bind(the_env, @'*print-circle*', ECL_NIL);
ecl_bds_bind(the_env, @'*print-base*', ecl_make_fixnum(10));
writestr_stream("\n;;; Unhandled lisp initialization error",