hangs when cannot connect about carrier HOT 13 CLOSED

CL-USER> (as:with-event-loop ()                                                                                         
           (bb:catcher                                                                                                  
            (bb:alet ((result (carrier:request "https://www.apple.com/" :return-body t)))                               
              (format t "result: ~s" result))                                                                           
            (t (e) (format t "error: ~a" e))))                                                                          
result: CARRIER::BODY

CL-USER> (as:with-event-loop ()                                                                                         
           (bb:catcher                                                                                                  
            (bb:alet ((result (carrier:request "https://www.apple.com:999/" :return-body t)))                           
              (format t "result: ~s" result))                                                                           
            (t (e) (format t "error: ~a" e))))

CL-USER> (as:with-event-loop ()                                                                                         
           (bb:catcher                                                                                                  
            (bb:alet ((result (bb:with-promise (res rej)                                                                
                                (let ((x 4))                                                                            
                                  (res x)))))                                                                           
              (format t "result: ~s" result))                                                                           
            (t (e) (format t "error: ~a" e))))                                                                          
result: 4

CL-USER> (as:with-event-loop ()                                                                                         
           (bb:catcher                                                                                                  
            (bb:alet ((result (bb:with-promise (res rej)                                                                
                                (let ((x 4))                                                                            
                                  (res x x)))))                                                                         
              (format t "result: ~s" result))                                                                           
            (t (e) (format t "error: ~a" e))))                                                                          
; in: CL-ASYNC:WITH-EVENT-LOOP ()                                                                                       
;     (LET ((X 4))                                                                                                      
;       (RES X X))                                                                                                      
;                                                                                                                       
; caught STYLE-WARNING:                                                                                                 
;   The variable X is defined but never used.                                                                           
;                                                                                                                       
; compilation unit finished                                                                                             
;   caught 1 STYLE-WARNING condition                                                                                    
result: X

`(apply ,',resolve-fn ',args))))

`(funcall ,',resolve-fn ,@args))))