[Openmcl-devel] check-for-updates not functioning

[John McAleely]

Doh. forgot to mention:

Mac OS X 10.5.7, Clozure Common Lisp version 0.1 (12103M-trunk)


On 21 May 2009, at 11:29, John McAleely wrote:

>
> 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>)
>
>
> _______________________________________________
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
> http://clozure.com/mailman/listinfo/openmcl-devel
>