[Openmcl-devel] Visual Bugs in the IDE
Gary Byers
gb at clozure.com
Wed May 20 16:13:04 PDT 2009
What we clearly need is an svn client in the IDE; I'd fixed this
in the IDE but hadn't saved the buffer, then checked in the unsaved
buffer from Emacs.
Fixed now.
On Wed, 20 May 2009, John McAleely wrote:
>> - 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>
>
>
>
>
>
> _______________________________________________
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
> http://clozure.com/mailman/listinfo/openmcl-devel
>
>
More information about the Openmcl-devel
mailing list