Author: fperrad
Date: Thu Dec 11 01:30:09 2008
New Revision: 33796
Modified:
trunk/languages/lisp/system.pir
Log:
[Lisp] pdd22io
- replace deprecated mode/flag open
Modified: trunk/languages/lisp/system.pir
==============================================================================
--- trunk/languages/lisp/system.pir (original)
+++ trunk/languages/lisp/system.pir Thu Dec 11 01:30:09 2008
@@ -413,7 +413,7 @@
.CAR(fname2,args)
fname1 = fname2
- open fd, fname1, "<"
+ open fd, fname1, "r"
unless fd, OPEN_FAILED
.STREAM(stream, fd)
