babel-test: equalp does not return

Question

lisp
(equalp 
  (make-array 4 :element-type 'character :initial-contents (list #\a #\SUB #\b #\c))
   #(#\a #\Sub #\b #\c))

` does not return. this is the simplified version of test

lisp
(defstest dec.ascii.3
    (octets-to-string (ub8v 97 255 98 99) :encoding :ascii :errorp nil)
  #(#\a #\Sub #\b #\c))

`

该提问来源于开源项目：clasp-developers/clasp

Answer 1

Backtrace seem to show:

`
1436 wrapped_cl__equalp_T_spT_sp  (in clasp) + 9  [0x10a51cbd9]  c-wrappers.h:659
    + 1137 thread-local wrapper routine for my_thread  (in clasp) + 13  [0x10a8150bd]
    + ! 1083 _sigtramp  (in libsystem_platform.dylib) + 0,1,...  [0x7fff5e653b20,0x7fff5e653b21,...]
    + ! 45 _sigtramp  (in libsystem_platform.dylib) + 29  [0x7fff5e653b3d]
    + ! : 14 gctools::handle_or_queue(core::ThreadLocalState*, gctools::smart_ptr<:t_o>)  (in clasp) + 74,71,...  [0x10a817a6a,0x10a817a67,...]  interrupt.cc:240
    + ! : 9 gctools::handle_signals(int)  (in clasp) + 14  [0x10a817b0e]  interrupt.cc:298
    + ! : 8 gctools::handle_signals(int)  (in clasp) + 11  [0x10a817b0b]  interrupt.cc:298
    + ! : | 5 thread-local wrapper routine for my_thread  (in clasp) + 13  [0x10a8150bd]
    + ! : | + 5 tlv_get_addr  (in libdyld.dylib) + 4,0,...  [0x7fff5e454fe9,0x7fff5e454fe5,...]
    + ! : | 3 thread-local wrapper routine for my_thread  (in clasp) + 1  [0x10a8150b1]
    + ! : 5 gctools::handle_signals(int)  (in clasp) + 1  [0x10a817b01]  interrupt.cc:294
    + ! : 4 gctools::handle_or_queue(core::ThreadLocalState*, gctools::smart_ptr<:t_o>)  (in clasp) + 87  [0x10a817a77]  interrupt.cc:240
    + ! : | 3 core::DynamicBindingStack::reference_raw_(core::Symbol_O const*, gctools::smart_ptr<:t_o> const*) const  (in clasp) + 25  [0x10a814a59]  threadlocal.cc:91
    + ! : | 1 core::DynamicBindingStack::reference_raw_(core::Symbol_O const*, gctools::smart_ptr<:t_o> const*) const  (in clasp) + 1  [0x10a814a41]  threadlocal.cc:89
    + ! : 2 gctools::queue_signal(core::ThreadLocalState*, gctools::smart_ptr<:t_o>, bool)  (in clasp) + 72  [0x10a817278]  interrupt.cc:188
    + ! : 1 gctools::handle_or_queue(core::ThreadLocalState*, gctools::smart_ptr<:t_o>)  (in clasp) + 136  [0x10a817aa8]  interrupt.cc:0
    + ! : 1 gctools::handle_or_queue(core::ThreadLocalState*, gctools::smart_ptr<:t_o>)  (in clasp) + 40  [0x10a817a48]  interrupt.cc:239
    + ! : 1 gctools::queue_signal(core::ThreadLocalState*, gctools::smart_ptr<:t_o>, bool)  (in clasp) + 334  [0x10a81737e]  interrupt.cc:206
    + ! 8 _sigtramp  (in libsystem_platform.dylib) + 51  [0x7fff5e653b53]
    + ! : 8 __sigreturn  (in libsystem_kernel.dylib) + 0,5,...  [0x7fff5e5a9d60,0x7fff5e5a9d65,...]
    + ! 1 DYLD-STUB$$__sigreturn  (in libsystem_platform.dylib) + 0  [0x7fff5e656594]
    + 299 bool core::template_string_equalp_bool<:simplecharacterstring_o core::strwns_o>(core::SimpleCharacterString_O const&, core::StrWNs_O const&, unsigned long, unsigned long, unsigned long, unsigned long)  (in clasp) + 162  [0x10ac42602]  array.cc:886

</:simplecharacterstring_o></:t_o></:t_o></:t_o></:t_o></:t_o></:t_o></:t_o></:t_o>

`