diff options
author | Stas Boukarev <stassats@gmail.com> | 2024-05-24 19:03:59 +0300 |
---|---|---|
committer | Stas Boukarev <stassats@gmail.com> | 2024-05-24 19:04:17 +0300 |
commit | eda4c159316def50cf7f4f1466ceba5e6d9b7477 (patch) | |
tree | f6b152fa109d7306d0743f02219f323be96238f5 | |
parent | 92b2ec96ae10504bff5ca6a8f493671c85349132 (diff) |
Correct an error message.
-rw-r--r-- | src/code/warm-mswin.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/code/warm-mswin.lisp b/src/code/warm-mswin.lisp index 4bb42ed6d..4234a91d2 100644 --- a/src/code/warm-mswin.lisp +++ b/src/code/warm-mswin.lisp @@ -366,7 +366,7 @@ true to stop searching)." *console-control-spec*) (t (let ((last-error (get-last-error))) (unless (= last-error error-broken-pipe) - (pending-or-error "ReadFile" last-error))))))))) + (pending-or-error "GetOverlappedResult" last-error))))))))) (loop for copier across copiers do (try-read copier)) (loop for event = (wait-for-multiple-objects-or-signal (cast events |