Changeset 8217

Timestamp:

Jan 18, 2008, 10:20:25 AM (17 years ago)

Author:

Gary Byers

Message:

MAKE-FILE-STREAM (called by OPEN) passes :IF-EXISTS NIL do
%CREATE-FILE and returns NIL if it does.

File:

• branches/working-0711/ccl/level-1/l1-sysio.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-sysio.lisp

@@ -773 +773 @@
               (return-from open nil)))
           (if (setq filename (if-does-not-exist if-does-not-exist filename))
-            (setq native-truename (%create-file filename))
+            (unless (setq native-truename (%create-file filename :if-exists if-exists ))
+              (return-from open nil))
             (return-from open nil)))
         (let* ((fd (fd-open native-truename (case direction