[Openmcl-cvs-notifications] r15280 - in /release/1.8/source: ./ level-1/l1-sysio.lisp

[rme at clozure.com]

Author: rme
Date: Wed Mar 28 11:54:37 2012
New Revision: 15280

Log:
Merge r15270 from trunk.

Modified:
    release/1.8/source/   (props changed)
    release/1.8/source/level-1/l1-sysio.lisp

Propchange: release/1.8/source/
---------------------------------------------------------------------------=
---
--- svn:mergeinfo (original)
+++ svn:mergeinfo Wed Mar 28 11:54:37 2012
@@ -4,4 +4,4 @@
 /branches/rme-logops:13875-13886
 /branches/working-0711/ccl:7970-13192,13197-13198,13202,13208,13214,13235-=
13236,13239,13263,13277-13278,13290,13293-13294,13302-13306,13331-13332,133=
39,13361-13364,13379,13383,13386,13388,13409,13435-13436,13438,13440-13442,=
13460-13461,13465,13467,13476,13487,13490,13492-13493,13502-13528,13545-135=
47,13549,13557-13558
 /release/1.5/source:13667
-/trunk/source:15221-15223,15225-15226,15228,15249,15252,15255-15256,15259,=
15265-15266,15277
+/trunk/source:15221-15223,15225-15226,15228,15249,15252,15255-15256,15259,=
15265-15266,15270,15277

Modified: release/1.8/source/level-1/l1-sysio.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
--- release/1.8/source/level-1/l1-sysio.lisp (original)
+++ release/1.8/source/level-1/l1-sysio.lisp Wed Mar 28 11:54:37 2012
@@ -812,7 +812,11 @@
 					      ((:probe :input) #$O_RDONLY)
 					      (:output #$O_WRONLY)
 					      (:io #$O_RDWR)))))
-	  (when (< fd 0)  (signal-file-error fd filename))
+	  (when (< fd 0)
+            (if (and (eql fd (- #$ENOENT))
+                     (null if-does-not-exist))
+              (return-from open nil)
+              (signal-file-error fd filename)))
 	  (let* ((pos (fd-lseek fd 0 #$SEEK_CUR)))
 	    (if (not (>=3D pos 0))
 	      (make-fd-stream fd :direction direction