From cd8ad462ae2166554ef81bc3948ef8c97bdb56d4 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 24 Feb 2009 16:49:41 +0100 Subject: [PATCH] Ensure that the CLX directory exists before creating module.lsp --- src/compile.lsp.in | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/compile.lsp.in b/src/compile.lsp.in index 284594715..28645d734 100644 --- a/src/compile.lsp.in +++ b/src/compile.lsp.in @@ -230,9 +230,11 @@ "build:clx;module.lisp")) #+:msvc (c::*cc-flags* (concatenate 'string c::*cc-flags* " -Zm150"))) - (with-open-file (s "build:clx;module.lisp" :direction :output :if-exists :overwrite - :if-does-not-exist :create) - (print '(provide :clx) s)) + (let ((filename "build:clx;module.lisp")) + (ensure-directories-exist filename) + (with-open-file (s filename :direction :output :if-exists :overwrite + :if-does-not-exist :create) + (print '(provide :clx) s))) (unless (find-package "SB-BSD-SOCKETS") (load "ext:sockets;package.lisp")) (mapcar #'load +clx-src-files+)