Ticket #444 (closed defect: fixed)
Display error when entering #\
| Reported by: | gz | Owned by: | gb |
|---|---|---|---|
| Priority: | major | Milestone: | Cocoa IDE v1 |
| Component: | IDE | Version: | |
| Keywords: | Cc: |
Description
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)
Change History
Note: See
TracTickets for help on using
tickets.
