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