From b99d2252a04fa96e0f6da50c735d8ba0de4765d8 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 26 May 2013 09:48:21 +0000 Subject: Rename MAKE-FULL-NAMESTRING to makeFullFilePath and implement in Boot. --- src/interp/nlib.lisp | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'src/interp/nlib.lisp') diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp index 7a69738f..317eaf4a 100644 --- a/src/interp/nlib.lisp +++ b/src/interp/nlib.lisp @@ -56,8 +56,7 @@ (get-index-table-from-stream stream) stream))) ((equal (elt (string mode) 0) #\O) - ;;(setq fullname (make-full-namestring (cdr file) 'LISPLIB)) - (setq fullname (make-full-namestring (cdr file) 'NIL)) + (setq fullname (|makeFullFilePath| (cdr file) 'NIL)) (case (|directoryp| fullname) (-1 (|checkMkdir| fullname)) (0 (error (format nil "~s is an existing file, not a library" fullname))) @@ -242,9 +241,6 @@ (putindextable ctable filearg)) -(defun make-full-namestring (filearg &optional (filetype nil)) - (namestring (merge-pathnames (|makeFilename| filearg filetype)))) - (defun get-directory-list (ft) (let ((cd (get-current-directory))) (cond ((member ft '("NRLIB" "DAASE" "EXPOSED") :test #'string=) @@ -271,7 +267,7 @@ (return newfn))) (|probeReadableFile| filename)))) -(defun $FILEP (&rest filearg) (make-full-namestring filearg)) +(defun $FILEP (&rest filearg) (|makeFullFilePath| filearg)) (define-function '$OUTFILEP #'$FILEP) ;;temporary bogus def (defun $findfile (filespec filetypelist) @@ -285,8 +281,8 @@ ;; (rename-file namestring1 namestring2)) (defun $FCOPY (filespec1 filespec2) - (let ((name1 (make-full-namestring filespec1)) - (name2 (make-full-namestring filespec2))) + (let ((name1 (|makeFullFilePath| filespec1)) + (name2 (|makeFullFilePath| filespec2))) (if (library-file name1) (copy-lib-directory name1 name2) (copy-file name1 name2)))) -- cgit v1.2.3