[Openmcl-cvs-notifications] r11951 - /trunk/source/level-0/l0-io.lisp

[rme at clozure.com]

Author: rme
Date: Mon Apr 13 23:37:14 2009
New Revision: 11951

Log:
In FD-OPEN-PATH, check for #$ENFILE too (not #$EMFILE a second time).

Modified:
    trunk/source/level-0/l0-io.lisp

Modified: trunk/source/level-0/l0-io.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-0/l0-io.lisp (original)
+++ trunk/source/level-0/l0-io.lisp Mon Apr 13 23:37:14 2009
@@ -217,7 +217,7 @@
               :address p :int flags :mode_t create-mode :int)))
     (declare (fixnum fd))
     (when (or (=3D fd (- #$EMFILE))
-              (=3D fd (- #$EMFILE)))
+              (=3D fd (- #$ENFILE)))
       (gc)
       (drain-termination-queue)
       (setq fd (int-errno-ffcall