Custom Query (1030 matches)

On a long running server process, ClozureCL crashed in networking code. The server uses Hunchentoot.

Welcome to Clozure Common Lisp Version 1.3-dev-r11784M-trunk (LinuxX8664)!

Exception occurred while executing foreign code
? for help
[12821] Clozure CL kernel debugger: B
current thread: tcr = 0x404c77c0, native thread ID = 0x3217, interrupts enabled
(#x00002AAAAC6D99E8) #x0000300040085F04 : #<Function MALLOC #x0000300040085E6F> + 149
(#x00002AAAAC6D9A00) #x00003000402D540C : #<Function %MAKE-HEAP-IVECTOR #x00003000402D536F> + 157
(#x00002AAAAC6D9A40) #x00003000402D4504 : #<Function MAKE-HEAP-IVECTOR #x00003000402D440F> + 245
(#x00002AAAAC6D9A78) #x0000300040334E94 : #<Function INIT-STREAM-IOBLOCK #x0000300040334ACF> + 965
(#x00002AAAAC6D9BE8) #x000030004033332C : #<Function MAKE-IOBLOCK-STREAM #x00003000403331AF> + 381
(#x00002AAAAC6D9C20) #x00003000403314C4 : #<Function MAKE-FD-STREAM #x00003000403310BF> + 1029
(#x00002AAAAC6D9D38) #x00003000406091D4 : #<Function ACCEPT-SOCKET-CONNECTION #x000030004060905F> + 373
(#x00002AAAAC6D9DA8) #x000030004018F5F4 : #<Function %%CHECK-KEYWORDS #x000030004018F50F> + 229
(#x00002AAAAC6D9E20) #x0000300041A1CCD4 : #<Function (:INTERNAL OPEN-SOCKET-AND-ACCEPT START-UP-SERVER) #x0000300041A1C7CF> + 1285
(#x00002AAAAC6D9EB8) #x00003000404AB97C : #<Function RUN-PROCESS-INITIAL-FORM #x00003000404AB6AF> + 717
(#x00002AAAAC6D9F48) #x00003000404AC584 : #<Function (:INTERNAL (%PROCESS-PRESET-INTERNAL (PROCESS))) #x00003000404AC3FF> + 389
(#x00002AAAAC6D9F98) #x000030004048D10C : #<Function (:INTERNAL THREAD-MAKE-STARTUP-FUNCTION) #x000030004048CFDF> + 301
[12821] Clozure CL kernel debugger: T
Current Thread Context Record (tcr) = 0x404c77c0
Control (C) stack area:  low = 0x40274000, high = 0x404c8000
Value (lisp) stack area: low = 0x2aaaac4c9000, high = 0x2aaaac6da000
Exception stack pointer = 0x404c6ca0
[12821] Clozure CL kernel debugger: R
%rax = 0x0000000000000051      %r8  = 0x0000000000000001
%rcx = 0x00002aaab0000090      %r9  = 0x00002aaab0000048
%rdx = 0x00002aaab0008810      %r10 = 0x00002aaab0000078
%rbx = 0x0000000000000001      %r11 = 0x00000000004204d0
%rsp = 0x00000000404c6ca0      %r12 = 0x0000000000000050
%rbp = 0x00002aaab0005b20      %r13 = 0x0000000000000020
%rsi = 0x0000000000000419      %r14 = 0x00002aaab0000080
%rdi = 0x00002aaab0000020      %r15 = 0x00002aaab0000020
%rip = 0x00002aaaab3dea1b   %rflags = 0x00010202

When running a loop-back test for an extended period of time, the computer goes into screen saving mode, and Clozure server sockets shut down, refusing any further (re)connections. This is not a one-time event. I see it repeatedly after many such trials.

The message from the client side, after receiving a time out on an awaited reply, and then attempting to reconnect, is:

Error making TCP connection: host="Amethyst.local", service=12010,

reason=Failed to connect: Connection refused (61).

(That (61) may be a locally generated error? or it may be a Unix error number?)

I get this fairly often when editing a file with lot of character constants, like format.lisp. In this case I was typing on a fresh line in the middle of a function: " (format scan-check #" and then I typed a backslash, but it crashed before the backslash got displayed. Below is the entire contents of the AltConsole window that popped up:

*** Error in event process: Array index 35 out of bounds for "  (format-scan-check #\\" .

  0: (:INTERNAL GUI::|-[HemlockTextView drawRect:]|) at pc +149
     Arguments: (#:G25462)
       #:G25462: #<SIMPLE-ERROR Array index 35 out of bounds for "  (format-scan-check #\\" . #x300041E3CEAD>
     Local bindings:
       #:COMPILER-VAR: (NIL)
       #:G25459: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFC8A0>

  1: SIGNAL at pc +981
     Arguments: (CONDITION &REST CCL::ARGS)
       CONDITION: #<SIMPLE-ERROR Array index 35 out of bounds for "  (format-scan-check #\\" . #x300041E3CEAD>
       CCL::ARGS: NIL
     Local bindings:
       CCL::%HANDLERS%: ((ERROR) (ERROR))
       CCL::TAG: #<SIMPLE-ERROR Array index 35 out of bounds for "  (format-scan-check #\\" . #x300041E3CEAD>
       CCL::HANDLERS: CCL::*BACKTRACE-CONTEXTS*
       CCL::FN: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-[HemlockTextView drawRect:]|) #x493DBF>

  2: %ERROR at pc +117
     Arguments: (CONDITION CCL::ARGS CCL::ERROR-POINTER)
       CONDITION: #<SIMPLE-ERROR Array index 35 out of bounds for "  (format-scan-check #\\" . #x300041E3CEAD>
       CCL::ARGS: (35 "  (format-scan-check #\\")
       CCL::ERROR-POINTER: 558478

  3: (:INTERNAL CCL::%XERR-DISP) at pc +2485
     Arguments: ()
     Local bindings:
       CCL::FRAME-PTR: 558478
       CCL::FN: #<Compiled-function HEMLOCK-INTERFACE:LINE-CHARACTER #x30004140F18F>
       CCL::OP0: 205
       CCL::OP1: 200
       CCL::OP2: 254
       CCL::SKIP: -1
       CCL::XP: #<A Foreign Pointer #x7FFF5FBFC540>
       CCL::XCF: #<A Foreign Pointer #x442C70>

  4: FUNCALL-WITH-ERROR-REENTRY-DETECTION at pc +181
     Arguments: (CCL::THUNK)
       CCL::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x493CCF>
     Local bindings:
       COUNT: 0
       CCL::*ERROR-REENTRY-COUNT*: 0

  5: CCL::%XERR-DISP at pc +501
     Arguments: (#:G128837)
       #:G128837: 17591849973666
     Local bindings:
       #:G128847: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFBD10>
       CCL::XCF: #<A Foreign Pointer #x442C70>
       CCL::XP: #<A Foreign Pointer #x7FFF5FBFC540>
       #:G128848: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x493CCF>

  6: %PASCAL-FUNCTIONS% at pc +397
     Arguments: (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
       CCL::INDEX: 2
       CCL::ARGS-PTR-FIXNUM: 17591849973666
     Local bindings:
       CCL::LISP-FUNCTION: #<Compiled-function CCL::

(it just ends here)