[Openmcl-devel] Visual Bugs in the IDE

Gary Byers gb at clozure.com
Wed May 20 23:13:04 UTC 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