From 9cabb942d4b8d060aa1220c11ce88ac58060e34c Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 21 May 2005 14:10:28 +0000
Subject: [PATCH] Add tests for IGNORE, IGNORABLE declarations

---
 ansi-tests/ignorable.lsp             | 25 +++++++++++++++++++++++
 ansi-tests/ignore.lsp                | 30 ++++++++++++++++++++++++++++
 ansi-tests/load-eval-and-compile.lsp |  3 +++
 3 files changed, 58 insertions(+)
 create mode 100644 ansi-tests/ignorable.lsp
 create mode 100644 ansi-tests/ignore.lsp

diff --git a/ansi-tests/ignorable.lsp b/ansi-tests/ignorable.lsp
new file mode 100644
index 00000000..08a3754e
--- /dev/null
+++ b/ansi-tests/ignorable.lsp
@@ -0,0 +1,25 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Sat May 21 08:16:27 2005
+;;;; Contains: Tests of the IGNORABLE declaration
+
+(in-package :cl-test)
+
+(deftest ignorable.1
+  (let ((x 'foo)) (declare (ignorable x)))
+  nil)
+
+(deftest ignorable.2
+  (let ((x 'foo)) (declare (ignorable x)) x)
+  foo)
+
+(deftest ignorable.3
+  (flet ((%f () 'foo))
+    (declare (ignorable (function %f))))
+  nil)
+    
+(deftest ignorable.4
+  (flet ((%f () 'foo))
+    (declare (ignorable (function %f)))
+    (%f))
+  foo)
diff --git a/ansi-tests/ignore.lsp b/ansi-tests/ignore.lsp
new file mode 100644
index 00000000..1375fad3
--- /dev/null
+++ b/ansi-tests/ignore.lsp
@@ -0,0 +1,30 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Sat May 21 07:59:24 2005
+;;;; Contains: Tests of the IGNORE declarations
+
+(in-package :cl-test)
+
+(deftest ignore.1
+  (let ((x 'foo)) (declare (ignore x)))
+  nil)
+
+(deftest ignore.2
+  (let ((x 'foo)) (declare (ignore x)) x)
+  foo)
+
+(deftest ignore.3
+  (flet ((%f () 'foo))
+    (declare (ignore (function %f))))
+  nil)
+    
+(deftest ignore.4
+  (flet ((%f () 'foo))
+    (declare (ignore (function %f)))
+    (%f))
+  foo)
+
+    
+
+
+    
diff --git a/ansi-tests/load-eval-and-compile.lsp b/ansi-tests/load-eval-and-compile.lsp
index aa9dc08d..19430117 100644
--- a/ansi-tests/load-eval-and-compile.lsp
+++ b/ansi-tests/load-eval-and-compile.lsp
@@ -14,3 +14,6 @@
 (load "proclaim.lsp")
 (load "declaim.lsp")
 (load "locally.lsp")
+(load "ignore.lsp")
+(load "ignorable.lsp")
+
-- 
GitLab