From b781f532ee026a9b955fdf892eb10da481057ac2 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 19 Mar 2003 12:35:50 +0000 Subject: [PATCH] Removed the cond-12, cond-13 tests due to convincing argument about how the hyperspec should be interpreted. Fixed typos in cond-23 tests. --- ansi-tests/define-condition.lsp | 62 ++++++++++++++++----------------- 1 file changed, 31 insertions(+), 31 deletions(-) diff --git a/ansi-tests/define-condition.lsp b/ansi-tests/define-condition.lsp index 11199ee2..8191a3d4 100644 --- a/ansi-tests/define-condition.lsp +++ b/ansi-tests/define-condition.lsp @@ -228,26 +228,30 @@ ;;; (cond-11/r c))) ;;; 117 117) -(define-condition-with-tests cond-12 nil - (((slot1) :initarg :slot1 :reader cond-12/slot-1) - ((slot2) :initarg :slot2 :reader cond-12/slot-2))) - -(deftest cond-12-slots.1 - (let ((c (make-condition 'cond-12 :slot1 'a :slot2 'b))) - (and (typep c 'cond-12) - (eqt (cond-12/slot-1 c) 'a) - (eqt (cond-12/slot-2 c) 'b))) - t) - -(define-condition-with-tests cond-13 nil - (((slot1 10) :initarg :slot1 :reader cond-13/slot-1))) - -(deftest cond-13-slots.1 - (let ((c (make-condition 'cond-13))) - (and (typep c 'cond-13) - (cond-13/slot-1 c))) - 10) +;;; The cond-12 and cond-13 tests have been removed. Duane Rettig +;;; convincingly argued that the feature being tested (non-symbol +;;; slot names) remains in the standard only because of editing errors. +;;; (define-condition-with-tests cond-12 nil +;;; (((slot1) :initarg :slot1 :reader cond-12/slot-1) +;;; ((slot2) :initarg :slot2 :reader cond-12/slot-2))) +;;; +;;; (deftest cond-12-slots.1 +;;; (let ((c (make-condition 'cond-12 :slot1 'a :slot2 'b))) +;;; (and (typep c 'cond-12) +;;; (eqt (cond-12/slot-1 c) 'a) +;;; (eqt (cond-12/slot-2 c) 'b))) +;;; t) +;;; +;;; (define-condition-with-tests cond-13 nil +;;; (((slot1 10) :initarg :slot1 :reader cond-13/slot-1))) +;;; +;;; (deftest cond-13-slots.1 +;;; (let ((c (make-condition 'cond-13))) +;;; (and (typep c 'cond-13) +;;; (cond-13/slot-1 c))) +;;; 10) + (define-condition-with-tests cond-14 nil ((s1 :initarg :i1 :type fixnum :reader cond-14/s1) (s2 :initarg :i2 :type t :reader cond-14/s2))) @@ -458,8 +462,8 @@ (let ((c (make-condition 'cond-23 :slot1 'a :slot2 'b))) (and (typep c 'cond-5) (typep c 'cond-23) - (eqt (cond-4/slot-1 c) 'a) - (eqt (cond-4/slot-2 c) 'b) + (eqt (cond-5/slot-1 c) 'a) + (eqt (cond-5/slot-2 c) 'b) )) t) @@ -467,8 +471,8 @@ (let ((c (make-condition 'cond-23 :slot1 'a))) (and (typep c 'cond-5) (typep c 'cond-23) - (eqt (cond-4/slot-1 c) 'a) - (eqt (cond-4/slot-2 c) 'y) + (eqt (cond-5/slot-1 c) 'a) + (eqt (cond-5/slot-2 c) 'y) )) t) @@ -476,8 +480,8 @@ (let ((c (make-condition 'cond-23 :slot2 'b))) (and (typep c 'cond-5) (typep c 'cond-23) - (eqt (cond-4/slot-1 c) 'x) - (eqt (cond-4/slot-2 c) 'b) + (eqt (cond-5/slot-1 c) 'x) + (eqt (cond-5/slot-2 c) 'b) )) t) @@ -485,11 +489,7 @@ (let ((c (make-condition 'cond-23))) (and (typep c 'cond-5) (typep c 'cond-23) - (eqt (cond-4/slot-1 c) 'x) - (eqt (cond-4/slot-2 c) 'y) + (eqt (cond-5/slot-1 c) 'x) + (eqt (cond-5/slot-2 c) 'y) )) t) - - - - -- GitLab