[Openmcl-devel] popen is not happy

[Erann Gat]

This works fine:

? (with-cstrs ((s1 "ls")) (#_system s1))
LGPL            bindarwin       doc             dppccl.image    scripts
LICENSE         darwin-headers  dppccl          library
0
?

This doesn't work so good:

? (with-cstrs ((s1 "ls") (s2 "r+")) (#_popen s1 s2))
#<A Null Mac Pointer>
?

...

? (with-cstrs ((s1 "ls") (s2 "r")) (#_popen s1 s2))
Unhandled exception 11 at 0x900336a4, context->regs at #xbffff648
Continue/Debugger/eXit <enter>?
X
#<A Mac Pointer #xA0006B0C>
? (setf p *)
#<A Mac Pointer #xA0006B0C>
? (#_fileno p)
8
? (make-instance 'fd-stream :fd 8)

[hang]

Is this a bug, or am I doing something wrong?

E.



_______________________________________________
Openmcl-devel mailing list
Openmcl-devel at clozure.com
http://clozure.com/cgi-bin/mailman/listinfo/openmcl-devel