diff options
Diffstat (limited to 'src/interp/pathname.boot')
-rw-r--r-- | src/interp/pathname.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/pathname.boot b/src/interp/pathname.boot index 8184ab1d..3b7fe71d 100644 --- a/src/interp/pathname.boot +++ b/src/interp/pathname.boot @@ -62,7 +62,7 @@ pathnameType p == PATHNAME_-TYPE pathname p pathnameTypeId p == UPCASE object2Identifier pathnameType p pathnameDirectory p == - NAMESTRING MAKE_-PATHNAME(LispKeyword '"DIRECTORY",PATHNAME_-DIRECTORY pathname p) + NAMESTRING MAKE_-PATHNAME(KEYWORD::DIRECTORY,PATHNAME_-DIRECTORY pathname p) deleteFile f == _$ERASE pathname f |