[Openmcl-devel] Visual Bugs in the IDE

John McAleely john at mcaleely.com
Wed May 20 22:55:54 UTC 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