[Openmcl-devel] Visual Bugs in the IDE

[John McAleely]

On 20 May 2009, at 21:29, Ron Garret wrote:
>>
>
> Check-for-updates seems to be working now too!
>
> rg
>

Not for me :-( Still outputs a lot of chat to the AltConsole:



*** Error in event process: value NIL is not of the expected type ARRAY.

  (442BC0) : 0 (FUNCALL #'#<(:INTERNAL CCL::|-[LispApplicationDelegate  
updateCCL:]|)> #<TYPE-ERROR #x300041DDB60D>) 149
   (#:G36316)
    #:G36316: #<TYPE-ERROR #x300041DDB60D>

   #:COMPILER-VAR: (NIL)
   #:G36313: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFE680>

  (442BE8) : 1 (SIGNAL #<TYPE-ERROR #x300041DDB60D>) 981
   (CONDITION &REST CCL::ARGS)
    CONDITION: #<TYPE-ERROR #x300041DDB60D>
    CCL::ARGS: NIL

   CCL::%HANDLERS%: ((ERROR) (ERROR))
   CCL::TAG: #<TYPE-ERROR #x300041DDB60D>
   CCL::HANDLERS: CCL::*BACKTRACE-CONTEXTS*
   CCL::FN: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::|- 
[LispApplicationDelegate updateCCL:]|) #x493DBF>

  (442C40) : 2 (%ERROR #<TYPE-ERROR #x300041DDB60D> NIL 558477) 117
   (CONDITION CCL::ARGS CCL::ERROR-POINTER)
    CONDITION: #<TYPE-ERROR #x300041DDB60D>
    CCL::ARGS: NIL
    CCL::ERROR-POINTER: 558477



  (442C68) : 3 (ARRAY-DATA-AND-OFFSET NIL) 85
   (ARRAY)
    ARRAY: NIL

   CCL::TYPECODE: 3

  (442C88) : 4 (MAKE-STRING-INPUT-STREAM NIL 0 0) 189
   (STRING &OPTIONAL CCL::START CCL::END)
    STRING: NIL
    CCL::START: 0
    CCL::END: 0



  (442CE8) : 5 (READ-FROM-STRING NIL T NIL :START 0 :END NIL :PRESERVE- 
WHITESPACE NIL) 245
   (STRING &OPTIONAL CCL::EOF-ERROR-P CCL::EOF-VALUE  
&KEY :START :END :PRESERVE-WHITESPACE)
    STRING: NIL
    CCL::EOF-ERROR-P: T
    CCL::EOF-VALUE: NIL
    CCL::START: 0
    CCL::END: NIL
    CCL::PRESERVE-WHITESPACE: NIL

   CCL::IDX: NIL

  (442D60) : 6 (SVN-UPDATE-AVAILABLE-P) 117
   NIL

   CCL::CCL-DIR: #P"/Applications/ccl/"

  (442D78) : 7 (FUNCALL #'#<CCL::|-[LispApplicationDelegate  
updateCCL:]|> 17591849974992) 1445
   (#:G36312)
    #:G36312: 17591849974992

   #:G36328: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFE680>
   #:G36313: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFE680>
   #:COMPILER-VAR: (NIL)
   #:G36318: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::|- 
[LispApplicationDelegate updateCCL:]|) #x493DBF>
   #:G36329: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #x493DBF>)
   CCL::%HANDLERS%: ((CONDITION #) (ERROR))
   CCL::SELF: #<LISP-APPLICATION-DELEGATE <LispApplicationDelegate:  
0x1eff20> (#x1EFF20)>
   CCL::_CMD: #<A Foreign Pointer #x1A67A0>
   CCL::SENDER: #<NS-MENU-ITEM <MenuItem: 0x1d1c30 Check for  
Updates...> (#x1D1C30)>
   GUI::NSTITLE: #<NS-MUTABLE-STRING "Checking for  
Updates..." (#xC42CDD0)>
   GUI::NSMESSAGE: #<NS-MUTABLE-STRING "Checking for new CCL  
changes..." (#xC4685B0)>
   GUI::WINDOW: #<NS-WINDOW <NSWindow: 0xc472e80> (#xC472E80)>
   GUI::PROGRESS-BAR: #<NS-PROGRESS-INDICATOR <NSProgressIndicator:  
0xc471a60> (#xC471A60)>
   GUI::MESSAGE-FIELD: #<NS-TEXT-FIELD <NSTextField: 0xc471f50>  
(#xC471F50)>
   GUI::MODAL-SESSION: #<A Foreign Pointer #x1DFC60>

  (442E48) : 8 (%PASCAL-FUNCTIONS% 247 17591849974992) 397
   (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
    CCL::INDEX: 247
    CCL::ARGS-PTR-FIXNUM: 17591849974992

   CCL::LISP-FUNCTION: #<Compiled-function CCL::|- 
[LispApplicationDelegate updateCCL:]| (Non-Global)  #x3000417F327F>
   WITHOUT-INTERRUPTS: NIL
   CCL::*CALLBACK-TRACE-P*: NIL

  (442F08) : 10 (FUNCALL #'#<Anonymous Function #x3000412223EF> #<LISP- 
APPLICATION <LispApplication: 0x1bf750> (#x1BF750)> #S(CCL::OBJC- 
SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF81D84D68>)) 205
   (#:G3078 #:G3079)
    #:G3078: #<LISP-APPLICATION <LispApplication: 0x1bf750> (#x1BF750)>
    #:G3079: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign  
Pointer #x7FFF81D84D68>)



  (442F28) : 11 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE  
(SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<LISP- 
APPLICATION <LispApplication: 0x1bf750> (#x1BF750)>) 501
   (CCL::RECEIVER &REST CCL::ARGS)
    CCL::RECEIVER: #<LISP-APPLICATION <LispApplication: 0x1bf750>  
(#x1BF750)>
    CCL::ARGS: NIL

   CCL::SELECTOR: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign  
Pointer #x7FFF81D84D68>)
   FUNCTION: #<Anonymous Function #x3000412223EF>

  (442F68) : 12 (EVENT-LOOP NIL) 413
   (&OPTIONAL GUI::END-TEST)
    GUI::END-TEST: NIL

   GUI::APP: #<LISP-APPLICATION <LispApplication: 0x1bf750> (#x1BF750)>
   *BREAK-ON-ERRORS*: NIL
   #:G7603: (ERROR)
   CCL::%HANDLERS%: ((ERROR))
   GUI::*EVENT-PROCESS-REPORTED-CONDITIONS*: (#<TYPE-ERROR  
#x300041DDB60D>)