[Openmcl-devel] Visual Bugs in the IDE
John McAleely
john at mcaleely.com
Wed May 20 15:55:54 PDT 2009
> - Cmd-right arrow appears to do nothing to move the cursor. My
> muscle memory expects it to move the cursor to the end of the line.
- Mac OS X 10.5.7
- Welcome to Clozure Common Lisp Version 1.3-dev-r12100M-trunk
(DarwinX8664)!
A new one. Open a source window and triple click to select a line (has
the attempt to select an s-expr been removed?). cmd-right arrow will
output this in alt-console:
*** Error in event process: Too few arguments in call to #<Anonymous
Function #x3000412CA29F>:
2 arguments provided, at least 3 required.
(442950) : 0 (FUNCALL #'#<(:INTERNAL GUI::|-
[HemlockTextstorageTextView keyDown:]|)> #<CCL::TOO-FEW-ARGUMENTS
#x300041D3238D>) 149
(#:G25318)
#:G25318: #<CCL::TOO-FEW-ARGUMENTS #x300041D3238D>
#:COMPILER-VAR: (NIL)
#:G25315: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF420>
(442978) : 1 (SIGNAL #<CCL::TOO-FEW-ARGUMENTS #x300041D3238D>) 981
(CONDITION &REST CCL::ARGS)
CONDITION: #<CCL::TOO-FEW-ARGUMENTS #x300041D3238D>
CCL::ARGS: NIL
CCL::%HANDLERS%: ((ERROR) (CONDITION #) (ERROR))
CCL::TAG: #<CCL::TOO-FEW-ARGUMENTS #x300041D3238D>
CCL::HANDLERS: CCL::*BACKTRACE-CONTEXTS*
CCL::FN: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-
[HemlockTextstorageTextView keyDown:]|) #x493C2F>
(4429D0) : 2 (%ERROR #<CCL::TOO-FEW-ARGUMENTS #x300041D3238D>
(:NARGS 2 :FN #<Anonymous Function #x3000412CA29F>) 558440) 117
(CONDITION CCL::ARGS CCL::ERROR-POINTER)
CONDITION: #<CCL::TOO-FEW-ARGUMENTS #x300041D3238D>
CCL::ARGS: (:NARGS 2 :FN #<Anonymous Function #x3000412CA29F>)
CCL::ERROR-POINTER: 558440
(4429F8) : 3 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 1885
NIL
CCL::FRAME-PTR: 558440
CCL::FN: #<Anonymous Function #x3000412CA29F>
CCL::OP0: 205
CCL::OP1: 194
CCL::OP2: 0
CCL::SKIP: -1
CCL::FLAGS: 66195
CCL::NARGS: 2
CCL::CARRY-BIT: T
CCL::XP: #<A Foreign Pointer #x7FFF5FBFF0F0>
CCL::XCF: #<A Foreign Pointer #x442B40>
(442A60) : 4 (FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-
LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x493B6F>) 181
(CCL::THUNK)
CCL::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP)
#x493B6F>
COUNT: 0
CCL::*ERROR-REENTRY-COUNT*: 0
(442AA0) : 5 (FUNCALL #'#<CCL::%XERR-DISP> 17591849975064) 493
(#:G131181)
#:G131181: 17591849975064
#:G131191: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFE8C0>
CCL::XP: #<A Foreign Pointer #x7FFF5FBFF0F0>
CCL::XCF: #<A Foreign Pointer #x442B40>
#:G131192: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP)
#x493B6F>
(442AD8) : 6 (%PASCAL-FUNCTIONS% 2 17591849975064) 397
(CCL::INDEX CCL::ARGS-PTR-FIXNUM)
CCL::INDEX: 2
CCL::ARGS-PTR-FIXNUM: 17591849975064
CCL::LISP-FUNCTION: #<Compiled-function CCL::%XERR-DISP (Non-
Global) #x3000405E7DAF>
WITHOUT-INTERRUPTS: NIL
CCL::*CALLBACK-TRACE-P*: NIL
*(442B40) : 8 (FUNCALL #'#<Anonymous Function #x3000412CA29F> #<A
Foreign Pointer [stack-allocated] (:* (:STRUCT :OBJC_SUPER))
#x7FFF5FBFF330> #<A Foreign Pointer #x7FFF81D723E8>) 7
(#:G4831 #:G4832 CCL::ARG0)
(442B98) : 9 (%CALL-NEXT-OBJC-METHOD #<HEMLOCK-TEXT-VIEW
<HemlockTextView: 0xa98adf0>
Frame = {{0.00, 0.00}, {570.00, 336.00}}, Bounds = {{0.00, 0.00},
{570.00, 336.00}}
Horizontally resizable: YES, Vertically resizable: YES
MinSize = {570.00, 336.00}, MaxSize = {10000000.00, 10000000.00}
(#xA98ADF0)> #<OBJC:OBJC-CLASS GUI::HEMLOCK-TEXTSTORAGE-TEXT-VIEW
(#x136A50)> #<A Foreign Pointer #x7FFF81D723E8> (:VOID :ID)) 837
(CCL::SELF CLASS CCL::SELECTOR CCL::SIG &REST CCL::ARGS)
CCL::SELF: #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0xa98adf0>
Frame = {{0.00, 0.00}, {570.00, 336.00}}, Bounds = {{0.00, 0.00},
{570.00, 336.00}}
Horizontally resizable: YES, Vertically resizable: YES
MinSize = {570.00, 336.00}, MaxSize = {10000000.00, 10000000.00}
(#xA98ADF0)>
CLASS: #<OBJC:OBJC-CLASS GUI::HEMLOCK-TEXTSTORAGE-TEXT-VIEW
(#x136A50)>
CCL::SELECTOR: #<A Foreign Pointer #x7FFF81D723E8>
CCL::SIG: (:VOID :ID)
CCL::ARGS: NIL
CCL::S: #<A Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFF330>
CCL::SIGINFO: #S(CCL::OBJC-METHOD-SIGNATURE-INFO :TYPE-SIGNATURE
(:VOID :ID) :FUNCTION #<Anonymous Function #x3000412CA62F> ...)
FUNCTION: #<Anonymous Function #x3000412CA29F>
(442BF8) : 10 (FUNCALL #'#<GUI::|-[HemlockTextstorageTextView
keyDown:]|> 17591849975428) 2173
(#:G25314)
#:G25314: 17591849975428
#:G25330: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF420>
#:G25315: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF420>
#:COMPILER-VAR: (NIL)
#:G25320: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-
[HemlockTextstorageTextView keyDown:]|) #x493C2F>
#:G25331: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #x493C2F>)
CCL::%HANDLERS%: ((CONDITION #) (CONDITION #) (ERROR))
GUI::SELF: #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0xa98adf0>
Frame = {{0.00, 0.00}, {570.00, 336.00}}, Bounds = {{0.00, 0.00},
{570.00, 336.00}}
Horizontally resizable: YES, Vertically resizable: YES
MinSize = {570.00, 336.00}, MaxSize = {10000000.00, 10000000.00}
(#xA98ADF0)>
GUI::_CMD: #<A Foreign Pointer #x7FFF81D723E8>
GUI::EVENT: #<NS-EVENT NSEvent: type=KeyDown loc=(0,393)
time=206156.2 flags=0xb00108 win=0x0 winNum=54432 ctxt=0x0 chars=""
unmodchars="" repeat=0 keyCode=124 (#xA997E50)>
GUI::VIEW: #<HI:HEMLOCK-VIEW #x300041CE247D>
GUI::QUOTE-P: NIL
GUI::FLAGS: 11534600
GUI::HEMLOCK-KEY: NIL
(442C88) : 11 (%PASCAL-FUNCTIONS% 72 17591849975428) 397
(CCL::INDEX CCL::ARGS-PTR-FIXNUM)
CCL::INDEX: 72
CCL::ARGS-PTR-FIXNUM: 17591849975428
CCL::LISP-FUNCTION: #<Compiled-function GUI::|-
[HemlockTextstorageTextView keyDown:]| (Non-Global) #x300041678D9F>
WITHOUT-INTERRUPTS: NIL
CCL::*CALLBACK-TRACE-P*: NIL
(442D48) : 13 (FUNCALL #'#<Anonymous Function #x3000412CA29F> #<A
Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFF8D0> #<A Foreign
Pointer #x7FFF81CCDD48> #<NS-EVENT NSEvent: type=KeyDown loc=(0,393)
time=206156.2 flags=0xb00108 win=0x0 winNum=54432 ctxt=0x0 chars=""
unmodchars="" repeat=0 keyCode=124 (#xA997E50)>) 397
(#:G4831 #:G4832 CCL::ARG0)
#:G4831: #<A Foreign Pointer [stack-allocated] (:* #)
#x7FFF5FBFF8D0>
#:G4832: #<A Foreign Pointer #x7FFF81CCDD48>
CCL::ARG0: #<NS-EVENT NSEvent: type=KeyDown loc=(0,393)
time=206156.2 flags=0xb00108 win=0x0 winNum=54432 ctxt=0x0 chars=""
unmodchars="" repeat=0 keyCode=124 (#xA997E50)>
(442D70) : 14 (%CALL-NEXT-OBJC-METHOD #<LISP-APPLICATION
<LispApplication: 0x1bf200> (#x1BF200)> #<OBJC:OBJC-CLASS GUI::LISP-
APPLICATION (#x1349D0)> #<A Foreign Pointer #x7FFF81CCDD48>
(:VOID :ID) #<NS-EVENT NSEvent: type=KeyDown loc=(0,393) time=206156.2
flags=0xb00108 win=0x0 winNum=54432 ctxt=0x0 chars="" unmodchars=""
repeat=0 keyCode=124 (#xA997E50)>) 837
(CCL::SELF CLASS CCL::SELECTOR CCL::SIG &REST CCL::ARGS)
CCL::SELF: #<LISP-APPLICATION <LispApplication: 0x1bf200>
(#x1BF200)>
CLASS: #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x1349D0)>
CCL::SELECTOR: #<A Foreign Pointer #x7FFF81CCDD48>
CCL::SIG: (:VOID :ID)
CCL::ARGS: (#<NS-EVENT NSEvent: type=KeyDown loc=(0,393)
time=206156.2 flags=0xb00108 win=0x0 winNum=54432 ctxt=0x0 chars=""
unmodchars="" repeat=0 keyCode=124 (#xA997E50)>)
CCL::S: #<A Foreign Pointer [stack-allocated] (:* #) #x7FFF5FBFF8D0>
CCL::SIGINFO: #S(CCL::OBJC-METHOD-SIGNATURE-INFO :TYPE-SIGNATURE
(:VOID :ID) :FUNCTION #<Anonymous Function #x3000412CA62F> ...)
FUNCTION: #<Anonymous Function #x3000412CA29F>
(442DD0) : 15 (FUNCALL #'#<GUI::|-[LispApplication sendEvent:]|>
17591849975608) 1141
(#:G5538)
#:G5538: 17591849975608
#:G5554: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF9C0>
#:G5539: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF9C0>
#:COMPILER-VAR: (NIL)
#:G5544: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-
[LispApplication sendEvent:]|) #x493DBF>
#:G5555: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #x493DBF>)
CCL::%HANDLERS%: ((CONDITION #) (ERROR))
GUI::SELF: #<LISP-APPLICATION <LispApplication: 0x1bf200> (#x1BF200)>
GUI::_CMD: #<A Foreign Pointer #x7FFF81CCDD48>
GUI::E: #<NS-EVENT NSEvent: type=KeyDown loc=(0,393) time=206156.2
flags=0xb00108 win=0x0 winNum=54432 ctxt=0x0 chars="" unmodchars=""
repeat=0 keyCode=124 (#xA997E50)>
CCL::ARGS: (#<NS-EVENT NSEvent: type=KeyDown loc=(0,393)
time=206156.2 flags=0xb00108 win=0x0 winNum=54432 ctxt=0x0 chars=""
unmodchars="" repeat=0 keyCode=124 (#xA997E50)>)
(442E48) : 16 (%PASCAL-FUNCTIONS% 14 17591849975608) 397
(CCL::INDEX CCL::ARGS-PTR-FIXNUM)
CCL::INDEX: 14
CCL::ARGS-PTR-FIXNUM: 17591849975608
CCL::LISP-FUNCTION: #<Compiled-function GUI::|-[LispApplication
sendEvent:]| (Non-Global) #x3000412F8E0F>
WITHOUT-INTERRUPTS: NIL
CCL::*CALLBACK-TRACE-P*: NIL
(442F08) : 18 (FUNCALL #'#<Anonymous Function #x30004122244F> #<LISP-
APPLICATION <LispApplication: 0x1bf200> (#x1BF200)> #S(CCL::OBJC-
SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF81D84D68>)) 205
(#:G3078 #:G3079)
#:G3078: #<LISP-APPLICATION <LispApplication: 0x1bf200> (#x1BF200)>
#:G3079: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign
Pointer #x7FFF81D84D68>)
(442F28) : 19 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE
(SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<LISP-
APPLICATION <LispApplication: 0x1bf200> (#x1BF200)>) 501
(CCL::RECEIVER &REST CCL::ARGS)
CCL::RECEIVER: #<LISP-APPLICATION <LispApplication: 0x1bf200>
(#x1BF200)>
CCL::ARGS: NIL
CCL::SELECTOR: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign
Pointer #x7FFF81D84D68>)
FUNCTION: #<Anonymous Function #x30004122244F>
More information about the Openmcl-devel
mailing list