From 97f54bf68c5aefffc94a4935e08fd6449ec501c9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 20 Mar 2008 00:01:40 +0000
Subject: 	* interp/vmlisp.lisp (GETREFV): Set initial elements to NIL. 
 (MAKE-OUTSTREAM): Supersede existing files. 	* interp/template.boot
 (makeTemplate): Use newDomainShell instead 	of GETREFV. 
 (extendVectorSize): Likewise. 	(mkSigPredVectors): Likewise. 
 (list2LongerVec): Likewise. 	(measure): Remove. 	(measureCommon):
 Likewise. 	* interp/sys-utility.boot (loadNativeModule): New. 	*
 interp/sys-os.boot: Import "cfuns" and "sockio". 	(runProgram): New. 
 * interp/sys-globals.boot (/SOURCEFILES): Define here. 	(/SPACELIST):
 Likewise. 	* interp/sys-driver.boot ($OpenAxiomCoreModuleLoaded): New
 global 	variable. 	(AxiomCore::%sysInit): Load libopen-axiom-core
 if necessary. 	($defaultMsgDatabaseName): Define here. 	*
 interp/spad.lisp (|New,ENTRY,1|): Tidy. 	* interp/sockio.lisp: Move
 import declarations to sys-os.boot. 	Remove unused codes. 	*
 interp/server.boot (serverReadLine): Use coreQuit instead of BYE. 	*
 interp/pspad1.boot (formatMDEF): Tidy. 	* interp/pspad2.boot
 (formatIf1): Tidy. 	* interp/patches.lisp: Import "sys-driver".  Remove 
 $CURRENT-DIRECTORY. 	* interp/nruncomp.boot (buildFunctor): Use
 newDomainShell instead 	of GETREFV. 	* interp/nrunopt.boot
 (makeDomainTemplate): Likewise. 	* interp/package.boot
 (processFunctorOrPackage): Likewise. 	* interp/nlib.lisp (rdefiostream):
 Tidy. 	* interp/monitor.lisp (monitor-autoload): Define when GCL. 	*
 interp/interop.boot (oldAxiomCategoryDevaluate): Tidy. 	*
 interp/i-toplev.boot (start): Don't set $CURRENT-DIRECTORY. 	*
 interp/i-syscmd.boot (close): Use newDomainShell. 	(leaveScratchpad): Use
 coreQuit instead of BYE. 	(compileAsharpArchiveCmd): Use
 GET-CURRENT-DIRECTORY. 	* interp/g-util.boot (newDomainShell): Define.
 	* interp/functor.boot (NewbFVectorCopy): Use newDomainShell. 	*
 interp/daase.lisp (asharp): Use runProgram. 	* interp/cfuns.lisp: Remove
 unused codes. 	(directoryp): Move import declaration to sys-os.bot. 
 (writeablep): Likewise. 	* interp/buildom.boot (Record0): Use
 newDomainShell instead of 	GETREFV. 	(coerceRe2E): Likewise. 
 (Union): Likewise. 	(Mapping): Likewise. 	(Enumeration): Likewise. 
 * interp/category.boot (mkCategory): Likewise. 	*
 interp/Makefile.pamphlet (patches.$(FASLEXT)): Require 
 sys-driver.$(FASLEXT). 	(sys-os.$(FASLEXT)): Require cfuns.$(FASLEXT),
 sockio.$(FASLEXT). 	* algebra/view2D.spad.pamphlet: Use $ViewportServer
 instead of 	VIEWPORTSERVER.  Use sockSendInt instead of SOCK-SEND-INT. 
 Use sockSendFloat instead of SEND-SEND-FLOAT.  Use sockSendString 
 instead of SOCK-SEND-STRING.  Use sockGetInt instead of 	SOCK-GET-INT.
 Use sockGetFloat instead of SOCK-SEND-FLOAT. 	*
 algebra/view3D.spad.pamphlet: Likewise. 	* interp/util.lisp (fe):
 Remove. 	(fc): Likewise. 	(interp-make-directory): Simplify. 
 (OLD-BOOT::BOOT): Don't declare *PRINT-PRETTY* and *PRINT-LENGTH* 
 special.

---
 src/interp/nlib.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/interp/nlib.lisp')

diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp
index 289fa580..00393de5 100644
--- a/src/interp/nlib.lisp
+++ b/src/interp/nlib.lisp
@@ -80,6 +80,9 @@
                      (-1 (|checkMkdir| fullname))
                      (0 (error (format nil "~s is an existing file, not a library" fullname)))
                      (otherwise))
+	       ;; Make sure parent directory exists.
+	       #-:GCL (ensure-directories-exist 
+		       (|ensureTrailingSlash| fullname))
                (multiple-value-setq (stream indextable) (get-io-index-stream fullname))
                (make-libstream :mode 'output  :dirname fullname
                                :indextable indextable
-- 
cgit v1.2.3