diff options
| author | Flavio Cruz <flaviocruz@gmail.com> | 2008-08-08 17:28:11 +0000 |
|---|---|---|
| committer | Flavio Cruz <flaviocruz@gmail.com> | 2008-08-08 17:28:11 +0000 |
| commit | 23aaf598b6a16d8edc7746da1cadd809f8ee7020 (patch) | |
| tree | 5bb9069aab861e29186597a546da5f8f3c459af1 | |
| parent | 1b8b331b71ff75b7767a06b8f250d3e0ce697294 (diff) | |
Fix type, s/%fsys-getroot/do-fsys-getroot.
| -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) |