Permalink
Browse files

Added ERROR-AGAIN condition for errno = EINTR and errno = 0. These ca…

…ses can now be handled in calling code.
  • Loading branch information...
1 parent f9f1ce7 commit 9d2eb8913d8685855cac1a4e91e41a1f01050eae @lhope committed Feb 24, 2012
Showing with 7 additions and 1 deletion.
  1. +7 −1 meta.lisp
View
@@ -49,6 +49,12 @@
(let ((errno (errno)))
(cond
#-windows
- ((eq errno isys:ewouldblock) (error 'error-again :argument errno))
+ ((eq errno isys:ewouldblock)
+ (error 'error-again :argument errno))
+ ((eq errno isys:eintr)
+ (error 'error-again :argument errno))
+ ;; Lucas Hope 2012-02-24 - this is a workaround for a bug in 2.1.11.
+ ((eq errno 0)
+ (error 'error-again :argument errno))
(t (error (convert-from-foreign (%strerror errno) :string)))))
,ret))))))))

0 comments on commit 9d2eb89

Please sign in to comment.