From d8f2ca18a42e1dbb41ec8c55ae38d8f14faf8ff8 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 17 Feb 2003 13:25:22 +0000
Subject: [PATCH] Retracted builtin macro error tests pending clarification of
 the ANSI CL spec.

---
 ansi-tests/block.lsp               |  8 ++++++++
 ansi-tests/case.lsp                |  6 +++---
 ansi-tests/ccase.lsp               |  6 +++---
 ansi-tests/ctypecase.lsp           |  6 +++---
 ansi-tests/defconstant.lsp         | 26 ++++++++++++------------
 ansi-tests/define-modify-macro.lsp | 32 +++++++++++++++---------------
 ansi-tests/defparameter.lsp        | 26 ++++++++++++------------
 ansi-tests/defvar.lsp              | 16 +++++++--------
 ansi-tests/destructuring-bind.lsp  |  9 +++++++++
 9 files changed, 76 insertions(+), 59 deletions(-)

diff --git a/ansi-tests/block.lsp b/ansi-tests/block.lsp
index b45b6d18..b68d9dff 100644
--- a/ansi-tests/block.lsp
+++ b/ansi-tests/block.lsp
@@ -63,3 +63,11 @@
       (block done (mapcar #'%f '(good bad bad))))
     'bad)
   good)
+
+#|
+(deftest return.error.1
+  (classify-error
+   (block nil
+     (return 'a 'b)))
+  program-error)
+|#
diff --git a/ansi-tests/case.lsp b/ansi-tests/case.lsp
index 0f170d66..3118ccc7 100644
--- a/ansi-tests/case.lsp
+++ b/ansi-tests/case.lsp
@@ -166,6 +166,6 @@
   (case 'a (b 'b) (otherwise))
   nil)
 
-(deftest case.error.1
-  (classify-error (case))
-  program-error)
+;;; (deftest case.error.1
+;;;  (classify-error (case))
+;;;  program-error)
diff --git a/ansi-tests/ccase.lsp b/ansi-tests/ccase.lsp
index 58cef3cf..8bbc4455 100644
--- a/ansi-tests/ccase.lsp
+++ b/ansi-tests/ccase.lsp
@@ -181,9 +181,9 @@
       (2 nil))))
   :good)
 
-(deftest ccase.error.1
-  (classify-error (ccase))
-  program-error)
+;;; (deftest ccase.error.1
+;;;  (classify-error (ccase))
+;;;  program-error)
 
 
     
diff --git a/ansi-tests/ctypecase.lsp b/ansi-tests/ctypecase.lsp
index 00416b3d..c49a4412 100644
--- a/ansi-tests/ctypecase.lsp
+++ b/ansi-tests/ctypecase.lsp
@@ -75,6 +75,6 @@
      x))
   :good a)
 
-(deftest ctypecase.error.1
-  (classify-error (ctypecase))
-  program-error)
+;;; (deftest ctypecase.error.1
+;;;  (classify-error (ctypecase))
+;;;  program-error)
diff --git a/ansi-tests/defconstant.lsp b/ansi-tests/defconstant.lsp
index 2c40ffd8..6c4ffe2a 100644
--- a/ansi-tests/defconstant.lsp
+++ b/ansi-tests/defconstant.lsp
@@ -30,16 +30,16 @@
   (defconstant test-constant-3 0)
   test-constant-3)
 
-(deftest defconstant.error.1
-  (classify-error (defconstant))
-  program-error)
-
-(deftest defconstant.error.2
-  (classify-error (defconstant +ignorable-constant-name+))
-  program-error)
-
-(deftest defconstant.error.3
-  (classify-error (defconstant +ignorable-constant-name2+ nil
-		    "This is a docstring"
-		    "This is an unnecessary extra argument."))
-  program-error)
\ No newline at end of file
+;;; (deftest defconstant.error.1
+;;;   (classify-error (defconstant))
+;;;   program-error)
+;;; 
+;;; (deftest defconstant.error.2
+;;;   (classify-error (defconstant +ignorable-constant-name+))
+;;;   program-error)
+;;; 
+;;; (deftest defconstant.error.3
+;;;   (classify-error (defconstant +ignorable-constant-name2+ nil
+;;; 		    "This is a docstring"
+;;; 		    "This is an unnecessary extra argument."))
+;;;   program-error)
\ No newline at end of file
diff --git a/ansi-tests/define-modify-macro.lsp b/ansi-tests/define-modify-macro.lsp
index 3be06e6b..e1d43814 100644
--- a/ansi-tests/define-modify-macro.lsp
+++ b/ansi-tests/define-modify-macro.lsp
@@ -64,20 +64,20 @@
   new-incf2
   (3 #(0 0 3 0 0) 3))
 
-(deftest define-modify-macro.error.1
-  (classify-error (define-modify-macro))
-  program-error)
-
-(deftest define-modify-macro.error.2
-  (classify-error (define-modify-macro dfm-error-1))
-  program-error)
-
-(deftest define-modify-macro.error.3
-  (classify-error (define-modify-macro dfm-error-2 ()))
-  program-error)
-
-(deftest define-modify-macro.error.4
-  (classify-error (define-modify-macro dfm-error-2 () nil "Documentation"
-		    "extra illegal argument"))
-  program-error)
+;;; (deftest define-modify-macro.error.1
+;;;   (classify-error (define-modify-macro))
+;;;   program-error)
+;;; 
+;;; (deftest define-modify-macro.error.2
+;;;   (classify-error (define-modify-macro dfm-error-1))
+;;;   program-error)
+;;; 
+;;; (deftest define-modify-macro.error.3
+;;;   (classify-error (define-modify-macro dfm-error-2 ()))
+;;;   program-error)
+;;; 
+;;; (deftest define-modify-macro.error.4
+;;;   (classify-error (define-modify-macro dfm-error-2 () nil "Documentation"
+;;; 		    "extra illegal argument"))
+;;;   program-error)
 
diff --git a/ansi-tests/defparameter.lsp b/ansi-tests/defparameter.lsp
index 0b17aa93..4cc3c908 100644
--- a/ansi-tests/defparameter.lsp
+++ b/ansi-tests/defparameter.lsp
@@ -51,16 +51,16 @@
   "And ever."
   300)
 
-(deftest defparameter.error.1
-  (classify-error (defparameter))
-  program-error)
-
-(deftest defparameter.error.2
-  (classify-error (defparameter *ignored-defparameter-name*))
-  program-error)
-
-(deftest defparameter.error.3
-  (classify-error (defparameter *ignored-defparameter-name* nil
-		    "documentation"
-		    "illegal extra argument"))
-  program-error)
+;;; (deftest defparameter.error.1
+;;;   (classify-error (defparameter))
+;;;   program-error)
+;;; 
+;;; (deftest defparameter.error.2
+;;;   (classify-error (defparameter *ignored-defparameter-name*))
+;;;   program-error)
+;;; 
+;;; (deftest defparameter.error.3
+;;;   (classify-error (defparameter *ignored-defparameter-name* nil
+;;; 		    "documentation"
+;;; 		    "illegal extra argument"))
+;;;   program-error)
diff --git a/ansi-tests/defvar.lsp b/ansi-tests/defvar.lsp
index 6821fd1c..02aadc83 100644
--- a/ansi-tests/defvar.lsp
+++ b/ansi-tests/defvar.lsp
@@ -54,11 +54,11 @@
   200
   0)
 
-(deftest defvar.error.1
-  (classify-error (defvar))
-  program-error)
-
-(deftest defvar.error.2
-  (classify-error (defvar *ignored-defvar-name* nil "documentation"
-		    "illegal extra argument"))
-  program-error)
+;;; (deftest defvar.error.1
+;;;   (classify-error (defvar))
+;;;   program-error)
+;;; 
+;;; (deftest defvar.error.2
+;;;   (classify-error (defvar *ignored-defvar-name* nil "documentation"
+;;; 		    "illegal extra argument"))
+;;;   program-error)
diff --git a/ansi-tests/destructuring-bind.lsp b/ansi-tests/destructuring-bind.lsp
index f42426fd..240e52f2 100644
--- a/ansi-tests/destructuring-bind.lsp
+++ b/ansi-tests/destructuring-bind.lsp
@@ -97,3 +97,12 @@
 (deftest destructuring-bind.error.4
   (classify-error (destructuring-bind (a . b) 'x (list a b)))
   program-error)
+
+(deftest destructuring-bind.error.5
+  (classify-error (destructuring-bind))
+  program-error)
+
+(deftest destructuring-bind.error.6
+  (classify-error (destructuring-bind x))
+  program-error)
+
-- 
GitLab