Author: fperrad
Date: Tue Dec 9 02:49:56 2008
New Revision: 33703
Modified:
trunk/languages/lisp/cl.pir
Log:
[pdd22io] Lisp
- replace opcode pioctl by buffer_type method
Modified: trunk/languages/lisp/cl.pir
==============================================================================
--- trunk/languages/lisp/cl.pir (original)
+++ trunk/languages/lisp/cl.pir Tue Dec 9 02:49:56 2008
@@ -44,8 +44,7 @@
.DEFVAR(symbol, package, "*STANDARD-INPUT*", value)
getstdout stream
- .local int res
- pioctl res, stream, 3, 0
+ stream.'buffer_type'('unbuffered')
.STREAM(value,stream)
.DEFVAR(symbol, package, "*STANDARD-OUTPUT*", value)
