[Openmcl-devel] Visual Bugs in the IDE

Gary Byers gb at clozure.com
Thu May 21 04:00:17 PDT 2009


Please try:

? (run-program "svn" (list "info" "/Applications/ccl/") :output t)

Does that generate several lines of output (lines starting with
"Path:", "URL:", etc.) ?  Does the EXTERNAL-PROCESS that's returned
exit with an exit status of 0 (its printed representation would contain
'(EXITED : 0)' in that case ?

Calling:

? (getenv "PATH")

will (not surprisingly) return the value of the PATH environment
variable; for a GUI application (which is ultimately a descendant
of the "LoginWindow" process, IIRC"), that's often something
a good deal more ... spartan than what one sees in the shell:

/usr/bin:/bin:/usr/sbin:/sbin"

On Leopard, svn is usually installed in /usr/bin; if you're
running Leopard and svn is installed there, then I don't have
a good idea of why this doesn't work.  If svn isn't installed
in some directory that's on the IDE process's PATH, then things
would likely behave as you describe.

On Thu, 21 May 2009, 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
>
>



More information about the Openmcl-devel mailing list