From f80f28430d73058f2fde936b5ea21f8a01a9952b Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 11 Jun 2003 10:57:49 +0000
Subject: [PATCH] Commented out tests allocate-instance.error.[23], after a
 good argument was received that they are bogus.

---
 ansi-tests/allocate-instance.lsp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ansi-tests/allocate-instance.lsp b/ansi-tests/allocate-instance.lsp
index 653266f2..830bec3c 100644
--- a/ansi-tests/allocate-instance.lsp
+++ b/ansi-tests/allocate-instance.lsp
@@ -111,6 +111,11 @@
   (classify-error (allocate-instance))
   program-error)
 
+;;; Duane Rettig made a convincing argument that the next two
+;;; tests are bad, since the caller of allocate-instance
+;;; is supposed to have checked that the initargs are valid
+
+#|
 (deftest allocate-instance.error.2
   (classify-error (allocate-instance (find-class 'allocate-instance-class-01)
 				     :b))
@@ -120,3 +125,4 @@
   (classify-error (allocate-instance (find-class 'allocate-instance-class-01)
 				     '(a b c) nil))
   program-error)
+|#
-- 
GitLab