(lldb)     connect
(lldb)     run
success
Process 1932 stopped
* thread #1, queue = 'com.apple.main-thread', stop reason = EXC_BAD_ACCESS (code=1, address=0x218)
    frame #0: 0x0000000100490ce8 repl`::si_signal_simple_error(narg=8, v1base_condition=0x00000001006d5b20, v2continue_message=0x0000000000000001, v3format_control=0x0000000100a80750, v4format_args=0x0000000101188fe1) at conditions.cxx:2454:50
   2451	  {
   2452	   cl_object v6simple_error_name;
   2453	   T0 = cl_string(v1base_condition);
-> 2454	   T1 = cl_concatenate(3, ECL_SYM("STRING",805), VV[67], T0);
   2455	   T2 = cl_find_package(VV[68]);
   2456	   v6simple_error_name = cl_intern(2, T1, T2);
   2457	   if ((cl_find_class(2, v6simple_error_name, ECL_NIL))!=ECL_NIL) { goto L2; }
Target 0: (repl) stopped.

(lldb) bt
* thread #1, queue = 'com.apple.main-thread', stop reason = EXC_BAD_ACCESS (code=1, address=0x218)
  * frame #0: 0x0000000100490ce8 repl`::si_signal_simple_error(narg=8, v1base_condition=0x00000001006d5b20, v2continue_message=0x0000000000000001, v3format_control=0x0000000100a80750, v4format_args=0x0000000101188fe1) at conditions.cxx:2454:50
    frame #1: 0x0000000100418a10 repl`FEwrong_type_only_arg(function=0x00000001006ca088, value=0x0000000000000001, type=0x00000001006d2160) at error.d:288:9
    frame #2: 0x00000001004367f0 repl`negatefailed(x=0x0000000000000001) at negate.d:68:1
    frame #3: 0x00000001004367b4 repl`ecl_negate(arg=0x0000000000000001) at negate.d:68:1
    frame #4: 0x0000000100437940 repl`cl_M(narg=1, num=0x0000000000000001) at minus.d:26:23
    frame #5: 0x000000010052cc44 repl`::_ecllqJxvfb7_PZJOlV41(flag=0x0000000000000000) at numlib.cxx:882:10
    frame #6: 0x0000000100414bc0 repl`ecl_init_module(block=0x0000000100a1c700, entry_point=(repl`::_ecllqJxvfb7_PZJOlV41(cl_object) at numlib.cxx:833)) at read.d:2449:17
    frame #7: 0x00000001004b2930 repl`::init_lib__ECLQFZLE1A7_SZRPLV41(cblock=0x0000000000000000) at eclinitu3xS4C.cxx:176:9
    frame #8: 0x00000001004b3180 repl`::init_lib_LSP(cblock=0x0000000000000000) at eclinitu3xS4C.cxx:407:9
    frame #9: 0x0000000100414bc0 repl`ecl_init_module(block=0x0000000100a1cf00, entry_point=(repl`::init_lib_LSP(cl_object) at eclinitu3xS4C.cxx:404)) at read.d:2449:17
    frame #10: 0x00000001003d31f0 repl`cl_boot(argc=1, argv=0x000000016fa33b20) at main.d:775:9
    frame #11: 0x00000001003d2164 repl`main(argc=<unavailable>, argv=<unavailable>) at main.cpp:10:5 [opt]
    frame #12: 0x00000001db4ca8e0 libdyld.dylib`start + 4

(lldb) up 12
frame #12: 0x00000001db4ca8e0 libdyld.dylib`start + 4
libdyld.dylib`start:
->  0x1db4ca8e0 <+4>: bl     0x1db570eac               ; exit
    0x1db4ca8e4 <+8>: brk    #0x3

libdyld.dylib`dyld3::kdebug_trace_dyld_image:
    0x1db4ca8e8 <+0>: stp    x22, x21, [sp, #-0x30]!
    0x1db4ca8ec <+4>: stp    x20, x19, [sp, #0x10]

(lldb) down
repl was compiled with optimization - stepping may behave oddly; variables may not be available.
frame #11: 0x00000001003d2164 repl`main(argc=<unavailable>, argv=<unavailable>) at main.cpp:10:5 [opt]
   7   	    //setenv("ECLDIR", "", 1);
   8   	    //char tmp[1024];
   9   	
-> 10  	    cl_boot(1, argv);
   11  	
   12  	    //cl_object s = make_constant_base_string("CIAO");
   13  	    //cl_print(1, s);

(lldb) down
frame #10: 0x00000001003d31f0 repl`cl_boot(argc=1, argv=0x000000016fa33b20) at main.d:775:9
   772 	         * ecl_clear_compiler_properties() to work in init_CLOS(). */
   773 	        ecl_set_option(ECL_OPT_BOOTED, 1);
   774 	
-> 775 	        ecl_init_module(OBJNULL,init_lib_LSP);
   776 	
   777 	        if (cl_fboundp(@'ext::make-encoding') != ECL_NIL) {
   778 	                maybe_fix_console_stream(cl_core.standard_input);

(lldb) down
frame #9: 0x0000000100414bc0 repl`ecl_init_module(block=0x0000000100a1cf00, entry_point=(repl`::init_lib_LSP(cl_object) at eclinitu3xS4C.cxx:404)) at read.d:2449:17
   2446	                }
   2447	                /* Execute top-level code */
   2448	                (*entry_point)(OBJNULL);
-> 2449	                x = cl_set_difference(2, env->packages_to_be_created, old_eptbc);
   2450	                old_eptbc = env->packages_to_be_created;
   2451	                unlikely_if (!Null(x)) {
   2452	                        CEerror(ECL_T,

(lldb) down
frame #8: 0x00000001004b3180 repl`::init_lib_LSP(cblock=0x0000000000000000) at eclinitu3xS4C.cxx:407:9

(lldb) down
frame #7: 0x00000001004b2930 repl`::init_lib__ECLQFZLE1A7_SZRPLV41(cblock=0x0000000000000000) at eclinitu3xS4C.cxx:176:9

(lldb) down
frame #6: 0x0000000100414bc0 repl`ecl_init_module(block=0x0000000100a1c700, entry_point=(repl`::_ecllqJxvfb7_PZJOlV41(cl_object) at numlib.cxx:833)) at read.d:2449:17
   2446	                }
   2447	                /* Execute top-level code */
   2448	                (*entry_point)(OBJNULL);
-> 2449	                x = cl_set_difference(2, env->packages_to_be_created, old_eptbc);
   2450	                old_eptbc = env->packages_to_be_created;
   2451	                unlikely_if (!Null(x)) {
   2452	                        CEerror(ECL_T,

(lldb) down
frame #5: 0x000000010052cc44 repl`::_ecllqJxvfb7_PZJOlV41(flag=0x0000000000000000) at numlib.cxx:882:10
   879 	     }
   880 	    }
   881 	    si_Xmake_constant(ECL_SYM("SHORT-FLOAT-POSITIVE-INFINITY",1719), ecl_make_single_float(v2a));
-> 882 	    T0 = (cl_env_copy->function=(ECL_SYM("-",17)->symbol.gfdef))->cfun.entry(1, ecl_make_single_float(v2a)) /*  - */;
   883 	    si_Xmake_constant(ECL_SYM("SHORT-FLOAT-NEGATIVE-INFINITY",1723), T0);
   884 	   }
   885 	   {

(lldb) down
frame #4: 0x0000000100437940 repl`cl_M(narg=1, num=0x0000000000000001) at minus.d:26:23
   23  	@
   24  	        /* INV: argument type check in number_{negate,minus}() */
   25  	        if (narg == 1)
-> 26  	                @(return ecl_negate(num))
   27  	        for (diff = num;  --narg; )
   28  	                diff = ecl_minus(diff, ecl_va_arg(nums));
   29  	        @(return diff)

(lldb) down
frame #3: 0x00000001004367b4 repl`ecl_negate(arg=0x0000000000000001) at negate.d:68:1
   65  	                                ecl_negate(x->complex.imag));
   66  	}
   67  	
-> 68  	MATH_DEF_DISPATCH1_NE(negate, @[-], @[number],
   69  	                      ecl_negate_fix, ecl_negate_big, ecl_negate_ratio,
   70  	                      ecl_negate_single_float, ecl_negate_double_float,
   71  	                      ecl_negate_long_float,

(lldb) down
frame #2: 0x00000001004367f0 repl`negatefailed(x=0x0000000000000001) at negate.d:68:1
   65  	                                ecl_negate(x->complex.imag));
   66  	}
   67  	
-> 68  	MATH_DEF_DISPATCH1_NE(negate, @[-], @[number],
   69  	                      ecl_negate_fix, ecl_negate_big, ecl_negate_ratio,
   70  	                      ecl_negate_single_float, ecl_negate_double_float,
   71  	                      ecl_negate_long_float,

(lldb) down
frame #1: 0x0000000100418a10 repl`FEwrong_type_only_arg(function=0x00000001006ca088, value=0x0000000000000001, type=0x00000001006d2160) at error.d:288:9
   285 	        if (!Null(function) && env->ihs_top && env->ihs_top->function != function) {
   286 	                ecl_ihs_push(env,&tmp_ihs,function,ECL_NIL);
   287 	        }        
-> 288 	        si_signal_simple_error(8,
   289 	                               @'type-error', /* condition name */
   290 	                               ECL_NIL, /* not correctable */
   291 	                               make_constant_base_string(message), /* format control */

(lldb) print function->symbol
(ecl_symbol) $0 = {
  t = '\n'
  m = '\x9f'
  stype = '\x02'
  dynamic = '\0'
  value = 0x0000000000000001
  gfdef = 0x0000000100a21cc0
  plist = 0x0000000000000001
  name = 0x0000000100a1ec00
  hpack = 0x0000000100a21fc0
  binding = 18446744073709551615
}

(lldb) print function->symbol.name->base_string.self
(ecl_base_char *) $1 = 0x0000000100689f97 "-"

(lldb) print env->ihs_top->function
(cl_object) $2 = 0x00000001006ca088

(lldb) print function
(cl_object) $3 = 0x00000001006ca088

(lldb) print message
(const char *) $4 = 0x0000000100652942 "In ~:[an anonymous function~;~:*function ~A~], the value of the only argument is~&  ~S~&which is not of the expected type ~A"
