[Openmcl-devel] File descriptor issue trying to use LTk on win32

[Matthew D. Swank]

Using CCL 1.3 RC1 on windows XP, I get the following error when LTk tries to run
an external process:

value 440 is not of the expected type CCL:MACPTR.
   [Condition of type TYPE-ERROR]


Backtrace:
  0: ((:INTERNAL CCL::%XERR-DISP))
      Locals:
        CCL::XP = #<A Foreign Pointer #x302FA24>
        CCL::XCF = #<A Foreign Pointer #x25C0ABC>
        CCL::FRAME-PTR = 9896623
        CCL::FN = #<Compiled-function CCL::FD-DUP #x8279796>
        CCL::OP0 = 205
        CCL::OP1 = 217
        CCL::OP2 = 31
        CCL::SKIP = -1
        CCL::TYPENAME = CCL:MACPTR
  1: (CCL::FUNCALL-WITH-ERROR-REENTRY-DETECTION #<CCL:COMPILED-LEXICAL-CLOSURE
(:INTERNAL CCL::%XERR-DISP) #x265F966>)
      Locals:
        CCL::THUNK = #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP)
#x265F966>
        COUNT = 0
        CCL::*ERROR-REENTRY-COUNT* = 0
  2: (CCL::%XERR-DISP 12631314)
      Locals:
        #:G128171 = 12631314
        #:G128181 = #<A Foreign Pointer [stack-allocated] #x302F448>
        CCL::XP = #<A Foreign Pointer #x302FA24>
        CCL::XCF = #<A Foreign Pointer #x25C0ABC>
        #:G128182 = #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP)
#x265F966>
  3: (CCL::%PASCAL-FUNCTIONS% 2 12631314)
      Locals:
        CCL::INDEX = 2
        CCL::ARGS-PTR-FIXNUM = 12631314
        CCL::LISP-FUNCTION = #<Compiled-function CCL::%XERR-DISP (Non-Global) 
#x83DB35E>
        CCL:WITHOUT-INTERRUPTS = NIL
        CCL::*CALLBACK-TRACE-P* = #<error printing CCL::IMMEDIATE #x33>
  4: (CCL::FD-DUP 440 :DIRECTION :OUTPUT :INHERITABLE NIL)
      Locals:
        CCL::FD = 440
        CCL::DIRECTION = :OUTPUT
        CCL::INHERITABLE = NIL
        CCL::HANDLE = #<A Foreign Pointer [stack-allocated] (:* (:* :VOID))
#x302FF40>
  5: (CCL::FD-UNINHERITABLE 440 :DIRECTION :OUTPUT)
      Locals:
        CCL::FD = 440
        CCL::DIRECTION = :OUTPUT
  6: (CCL::GET-DESCRIPTOR-FOR :STREAM #<EXTERNAL-PROCESS (c:/Tcl/bin/wish85.exe
-name ..)
      Locals:
        CCL::OBJECT = :STREAM
        CCL::PROC = #<EXTERNAL-PROCESS (c:/Tcl/bin/wish85.exe -name ..)
        CCL::CLOSE-IN-PARENT = NIL
        CCL::CLOSE-ON-ERROR = NIL
        CCL::DIRECTION = :INPUT
        CCL::ELEMENT-TYPE = CHARACTER
        CCL::SHARING = :PRIVATE
        CCL::KEYS = (:DIRECTION :INPUT :IF-DOES-NOT-EXIST NIL :SHARING :PRIVATE ...)
        CCL::READ-PIPE = 444
        CCL::WRITE-PIPE = 440
  7: (CCL:RUN-PROGRAM #1="c:/Tcl/bin/wish85.exe" (#1# "-name" ..)
      Locals:
        CCL::PROGRAM = "c:/Tcl/bin/wish85.exe"
        CCL::ARGS = ("c:/Tcl/bin/wish85.exe" "-name" "LTK")
        CCL::WAIT = NIL
        CCL::PTY = NIL
        CCL::INPUT = :STREAM
        CCL::IF-INPUT-DOES-NOT-EXIST = NIL
        CCL::OUTPUT = :STREAM
        CCL::IF-OUTPUT-EXISTS = :ERROR
        ERROR = :OUTPUT
        CCL::IF-ERROR-EXISTS = :ERROR
        CCL::STATUS-HOOK = NIL
        CCL::ELEMENT-TYPE = CHARACTER
        CCL::SHARING = :PRIVATE
        CCL::ENV = NIL
        CCL::TOKEN = (0)
        CCL::IN-FD = NIL
        CCL::IN-STREAM = NIL
        CCL::OUT-FD = NIL
        CCL::OUT-STREAM = NIL
        CCL::ERROR-FD = NIL
        CCL::ERROR-STREAM = NIL
        CCL::CLOSE-IN-PARENT = NIL
        CCL::CLOSE-ON-ERROR = NIL
        CCL::PROC = #<EXTERNAL-PROCESS (c:/Tcl/bin/wish85.exe -name ..)
        CCL::*INTERRUPT-LEVEL* = 0
        CCL::*INTERRUPT-LEVEL* = -1
  8: (DO-EXECUTE "c:/Tcl/bin/wish85.exe" ("-name" "LTK") NIL)
  9: (START-WISH :HANDLE-ERRORS :DEBUG :HANDLE-WARNINGS :SIMPLE :DEBUGGER T)
 10: (CALL-WITH-LTK #<Compiled-function (:INTERNAL LTKTEST) (Non-Global) 
#x8CB21FE>)
 11: (#<Anonymous Function #x8CFAC8E>)
 --more--