From c7046312c662b1f7c85bbece0afdafcfae3a98c0 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 28 Jun 2003 20:55:14 +0000
Subject: [PATCH] Fixed failed test due to special var name conflict.

---
 ansi-tests/set.lsp | 52 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 ansi-tests/set.lsp

diff --git a/ansi-tests/set.lsp b/ansi-tests/set.lsp
new file mode 100644
index 00000000..37b25bd5
--- /dev/null
+++ b/ansi-tests/set.lsp
@@ -0,0 +1,52 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Sat Jun 21 22:35:48 2003
+;;;; Contains: Tests of SET
+
+(in-package :cl-test)
+
+(deftest set.1
+  (let ((*var-used-in-set-tests* 'a)
+	(var '*var-used-in-set-tests*))
+    (declare (special *var-used-in-set-tests*))
+    (values
+     *var-used-in-set-tests*
+     (set var 'b)
+     *var-used-in-set-tests*))
+  a b b)
+
+(deftest set.2
+  (let ((*var-used-in-set-tests* 'a)
+	(var '*var-used-in-set-tests*))
+    (declare (special *var-used-in-set-tests*))
+    (values
+     (let ((*var-used-in-set-tests* 'c))
+       (list (set var 'b) *var-used-in-set-tests* (symbol-value var)))
+     *var-used-in-set-tests*))
+  (b c b)
+  b)
+
+(deftest set.error.1
+  (classify-error (set))
+  program-error)
+
+(deftest set.error.2
+  (classify-error
+   (let ((*var-used-in-set-tests* 'a))
+     (declare (special *var-used-in-set-tests*))
+     (set '*var-used-in-set-tests*)))
+  program-error)
+
+(deftest set.error.3
+  (classify-error
+   (let ((*var-used-in-set-tests* 'a))
+     (declare (special *var-used-in-set-tests*))
+     (set '*var-used-in-set-tests* nil nil)))
+  program-error)
+
+(deftest set.error.4
+  (classify-error
+   (let ((*var-used-in-set-tests* 'a) (*y* 'b))
+     (declare (special *var-used-in-set-tests*))
+     (set '*var-used-in-set-tests* nil '*y* nil)))
+  program-error)
-- 
GitLab