diff options
Diffstat (limited to 'src/interp/nlib.lisp')
| -rw-r--r-- | src/interp/nlib.lisp | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp index f990c2c5..770c6ada 100644 --- a/src/interp/nlib.lisp +++ b/src/interp/nlib.lisp @@ -248,7 +248,7 @@ (cons cd $library-directory-list) $library-directory-list)) (t (adjoin cd - (adjoin (namestring (user-homedir-pathname)) + (adjoin (namestring (|userHomeDirectory|)) $directory-list :test #'string=) :test #'string=))))) @@ -267,9 +267,6 @@ (return newfn))) (|probeReadableFile| filename)))) -(defun $FILEP (&rest filearg) (|makeFullFilePath| filearg)) -(define-function '$OUTFILEP #'$FILEP) ;;temporary bogus def - (defun $findfile (filespec filetypelist) (let ((file-name (if (consp filespec) (car filespec) filespec)) (file-type (if (consp filespec) (cadr filespec) nil))) |