develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33703 - trunk/languages/lisp

From:
fperrad
Date:
December 9, 2008 02:50
Subject:
[svn:parrot] r33703 - trunk/languages/lisp
Message ID:
20081209105004.551DBCB9AF@x12.develooper.com
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)
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About