* lib/cfuns-c.c (oa_chdir): Define.

	(is_dot_or_dotdot): New.
	(oa_unlink): Define.
	(oa_rename): Likewise.
	(oa_mkdir): Likewise.
	* interp/sys-os.boot: New file.
	* interp/util.lisp (MAKE-TAGS-FILE): Use changeDirectory.
	(MAKELIB): Likewise.
	(MAKESPAD): Likewise.
	(LIBCHECK): Likewise.
	* interp/sys-utility.boot ($ERASE): Define here.  Use removeFile.
	($REPLACE): Likewise.
	(checkMkdir): Define.
	* interp/obey.lisp (MAKEDIR): Remove definition.
	* interp/nlib.lisp (RDEFIOSTREAM): Use checkMkdir.
	(MAKEDIR): Remove.
	(RPACKFILE): Use removeFile.
	($ERASE): Remove Lisp definition.
	($REPLACE): Likewise.
	* interp/i-syscmd.boot (cd): Use changeDirectory.
	(compileAsharpArchiveCmd): Use mkdir.
	(histFileErase): Likewise.
	* interp/fortcall.boot (fortCall): Use removeFile.
	(invokeNagman): Likewise.
	* interp/daase.lisp (|library|): Use changeDirectory.
	(LOCALDATABASE): Likewise.
	(DaaseName): Use removeFile.
	* interp/construc.lisp (mergelibs): Use removeFile.
	(mergeall): Use changeDirectory.
	* interp/c-doc.boot (docreport): Use removeFile.
	* interp/br-search.boot (getTempPath): Likewise.
	* interp/br-saturn.boot (dbSort): Likewise.
	* interp/br-data.boot (buildLibdb): Likewise
	(dbSplitLibdb): Likewise.
	(buildGloss): Likewise.
	(purgeLocalLibdb): Likewise.
	* interp/as.boot (asList): Likewise.
	* interp/Makefile.pamphlet (OBJS): Include sys-os.$(FASLEXT).
	(sys-os.$(FASLEXT)): New rule.
	(sys-utility.$(FASLEXT)): Require sys-os.$(FASLEXT).
	* include/cfuns.h (oa_chdir): Declare.
	(oa_unlink): Likewise.
	(oa_rename): Likewise.
	(oad_mkdir): Likewise.

1 files changed, 5 insertions, 5 deletions

diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp
index 57732417..88f599e2 100644
--- a/src/interp/daase.lisp
+++ b/src/interp/daase.lisp
@@ -817,7 +817,7 @@
 #+:CCL
  (dolist (a args) (check-module-exists a))
  (|extendLocalLibdb| |$newConlist|)
- (system::chdir original-directory)
+ (|changeDirectory| original-directory)
  (tersyscommand))
 
 ;; check-module-exists looks to see if a module exists in one of the current
@@ -870,9 +870,9 @@
     (values only dir noexpose)))
   (processDir (dirarg thisdir)
    (let (allfiles skipasos)
-    (system:chdir (string dirarg))
+    (|changeDirectory| (string dirarg))
     (setq allfiles (directory "*"))
-    (system:chdir thisdir)
+    (|changeDirectory| thisdir)
     (values
      (mapcan #'(lambda (f)
       (when (string-equal (pathname-type f) "NRLIB")
@@ -1237,7 +1237,7 @@
                                (|systemRootDirectory|)
                                "/algebra/"
                                name)))
-  (when erase? (system::system (concatenate 'string "rm -f " filename)))
+  (when erase? (|removeFile| filename))
   filename))
 
 ;; rewrite this so it works in mnt
@@ -1249,7 +1249,7 @@
 ;;    (setq filename  (concatenate 'string daase "/algebra/" name))
 ;;    (format t "   Using local database ~a.." filename))
 ;;   (setq filename (concatenate 'string $spadroot "/algebra/" name)))
-;;  (when erase? (system::system (concatenate 'string "rm -f " filename)))
+;;  (when erase? (|removeFile| filename))
 ;;  filename))