diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-01-31 15:51:44 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-01-31 15:51:44 +0000 |
| commit | a92db17d6671d4b2de5cf615e08033fcc15d45f3 (patch) | |
| tree | dca8b64647c148c57728d8a778970b971b851daa /src/interp/pathname.boot | |
| parent | fd939b875ff1ed38ac3d22684b0f745705ab834a (diff) | |
| download | open-axiom-a92db17d6671d4b2de5cf615e08033fcc15d45f3.tar.gz | |
Clean up unlisp.lisp.
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 |