From de3a19c35df30298d323c5882e39931f329ea29e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 1 Jun 2013 01:26:18 +0000
Subject: Introduce Boot wrapper for GET-IO-INDEX-STREAM.

---
 src/ChangeLog               | 4 ++++
 src/interp/nlib.lisp        | 3 +++
 src/interp/sys-utility.boot | 5 +++--
 3 files changed, 10 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/ChangeLog b/src/ChangeLog
index bf9ef414..8ef8b738 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-05-31  Gabriel Dos Reis  <gdr@integrable-solutions.net>
+
+	* interp/nlib.lisp (getIndexIOStreamAndTable): New.
+
 2013-05-30  Gabriel Dos Reis  <gdr@integrable-solutions.net>
 
 	* interp/define.boot (knowInfo): Fix typo.
diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp
index 6ed9a531..79c19b64 100644
--- a/src/interp/nlib.lisp
+++ b/src/interp/nlib.lisp
@@ -91,6 +91,9 @@
              (setq indextable pos)))
     (values stream indextable)))
 
+(defun |getIndexIOStreamAndTable| (d)
+  (multiple-value-call #'cons (get-io-index-stream d)))
+
 ;substitute indextable in dirname
 
 (defun write-indextable (indextable stream)
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot
index fa29d102..650fcf7c 100644
--- a/src/interp/sys-utility.boot
+++ b/src/interp/sys-utility.boot
@@ -395,16 +395,17 @@ macro constructorDB ctor ==
 --%
 structure %Libstream ==
   Record(mode: %IOMode, dir: %Pathname,tbl: %Thing, idxst: %Stream,
-    cdst: %Stream,insnst: %Stream) with
+    cdst: %Stream,insnst: %Stream,tmpdir: %Pathname) with
       libIOMode == (.mode)
       libDirname == (.dir)
       libIndexTable == (.tbl)
       libIndexStream == (.idxst)
       libCodeStream == (.cdst)
       libInsnStream == (.insnst)
+      libStationaryDirname == (.tmpdir)
 
 makeLibstream(m,p,idx==nil,st==nil) ==
-  mk%Libstream(m,p,idx,st,nil,nil)
+  mk%Libstream(m,p,idx,st,nil,nil,nil)
 
 makeFilename(filearg,filetype==nil) ==
   if ident? filetype then
-- 
cgit v1.2.3