diff options
Diffstat (limited to 'src/interp/nlib.lisp')
| -rw-r--r-- | src/interp/nlib.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
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 |