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/interp/nlib.lisp        | 3 +++
 src/interp/sys-utility.boot | 5 +++--
 2 files changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/interp')

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