diff options
| -rw-r--r-- | translator/interfaces/fsys-getroot.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translator/interfaces/fsys-getroot.lisp b/translator/interfaces/fsys-getroot.lisp index 3f27db1af..7fc9dabc2 100644 --- a/translator/interfaces/fsys-getroot.lisp +++ b/translator/interfaces/fsys-getroot.lisp @@ -70,7 +70,7 @@ Filename to retry. #'get-translator-callback (callback fetch-root-callback)) (unless (eq retry :no-such-file) - (return-from %fsys-getroot (values retry port :move-send retry-name)))))) + (return-from do-fsys-getroot (values retry port :move-send retry-name)))))) (%fsys-getroot-normal node flags dotdot user)) (def-fsys-interface :fsys-getroot ((fsys port) |