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