From 8c4f321fdf8e5e43dc9635d54ae87be6d521b7ba Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 29 Jan 2004 12:27:39 +0000
Subject: [PATCH] Added note to indicate that open :if-exists :new-version
 should not throw an error.  This note is disabled for sbcl.

---
 ansi-tests/notes.lsp |  5 +++++
 ansi-tests/open.lsp  | 12 ++++++++++--
 2 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/notes.lsp b/ansi-tests/notes.lsp
index cd36ce4a..5f24241c 100644
--- a/ansi-tests/notes.lsp
+++ b/ansi-tests/notes.lsp
@@ -26,3 +26,8 @@
 (defnote :assume-no-simple-streams
   "Disable the test if simple streams are present.")
 
+(defnote :open-if-exists-new-version-no-error
+  "Assume that OPEN, when called with :if-exists :new-version, does not fail.")
+
+#+sbcl (rt::disable-note :open-if-exists-new-version-no-error)
+
diff --git a/ansi-tests/open.lsp b/ansi-tests/open.lsp
index b1e978b4..719c6bec 100644
--- a/ansi-tests/open.lsp
+++ b/ansi-tests/open.lsp
@@ -42,6 +42,7 @@
 
 (defmacro def-open-test (name args form expected
 			      &key
+			      (notes nil notes-p)
 			      (build-form nil build-form-p)
 			      (element-type 'character element-type-p)
 			      (pathname #p"tmp.dat"))
@@ -74,6 +75,7 @@
 	    ))))
 			      
   `(deftest ,name
+     ,@(when notes-p `(:notes ,notes))
      (let ((pn ,pathname))
        (delete-all-versions pn)
        ,build-form
@@ -548,7 +550,9 @@
 	 (with-open-file
 	  (s pn :direction :input)
 	  (values (read-line s nil))))
-  ("wxyz"))
+  ("wxyz")
+  :notes (:open-if-exists-new-version-no-error)
+  )
 
 (def-open-test open.output.22 (:if-exists :rename :direction :output)
   (progn (write-sequence "wxyz" s)
@@ -628,6 +632,7 @@
 ;;; of the filespec is :newest
 
 (deftest open.output.30
+  :notes (:open-if-exists-new-version-no-error)
   (let ((pn (make-pathname :name "tmp" :type "dat" :version :newest)))
     (or (not (eql (pathname-version pn) :newest))
 	(progn
@@ -877,7 +882,9 @@
   (progn (write-sequence "wxyz" s)
 	 (file-position s :start)
 	 (values (read-line s nil)))
-  ("wxyz"))
+  ("wxyz")
+  :notes (:open-if-exists-new-version-no-error)
+  )
 
 (def-open-test open.io.22 (:if-exists :rename :direction :io)
   (progn (write-sequence "wxyz" s)
@@ -945,6 +952,7 @@
 ;;; of the filespec is :newest
 
 (deftest open.io.30
+  :notes (:open-if-exists-new-version-no-error)
   (let ((pn (make-pathname :name "tmp" :type "dat" :version :newest)))
     (or (not (eql (pathname-version pn) :newest))
 	(progn
-- 
GitLab