From c5829dea5a8238c62f3a581a40e9f7023eb3d7a5 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 8 Oct 2002 05:18:15 +0000
Subject: [PATCH] Added error tests for FBOUNDP; added tests for FMAKUNBOUND.

---
 ansi-tests/fboundp.lsp     | 13 ++++++++-
 ansi-tests/fmakunbound.lsp | 56 ++++++++++++++++++++++++++++++++++++++
 ansi-tests/gclload2.lsp    |  1 +
 3 files changed, 69 insertions(+), 1 deletion(-)
 create mode 100644 ansi-tests/fmakunbound.lsp

diff --git a/ansi-tests/fboundp.lsp b/ansi-tests/fboundp.lsp
index 220fa159..43cc14e9 100644
--- a/ansi-tests/fboundp.lsp
+++ b/ansi-tests/fboundp.lsp
@@ -39,9 +39,20 @@
   (let ((g (gensym))) (fboundp (list 'setf g)))
   nil)
 
+(deftest fboundp.8
+  (catch-type-error (fboundp 1))
+  type-error)
+
+(deftest fboundp.9
+  (catch-type-error (fboundp #\a))
+  type-error)
+
+(deftest fboundp.10
+  (catch-type-error (fboundp '(foo)))
+  type-error)
+
 
 
-  
 
 
   
diff --git a/ansi-tests/fmakunbound.lsp b/ansi-tests/fmakunbound.lsp
new file mode 100644
index 00000000..6b46ac73
--- /dev/null
+++ b/ansi-tests/fmakunbound.lsp
@@ -0,0 +1,56 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Tue Oct  8 00:09:14 2002
+;;;; Contains: Tests for FMAKUNBOUND
+
+(in-package :cl-test)
+
+(deftest fmakunbound.1
+  (let ((g (gensym)))
+    (and (not (fboundp g))
+	 (setf (symbol-function g) #'car)
+	 (fboundp g)
+	 (values (eq (fmakunbound g) g)
+		 (fboundp g))))
+  t nil)
+
+(deftest fmakunbound.2
+  (let ((g (gensym)))
+    (and (not (fboundp g))
+	 (eval `(defun ,g () nil))
+	 (fboundp g)
+	 (values (eq (fmakunbound g) g)
+		 (fboundp g))))
+  t nil)
+
+(deftest fmakunbound.3
+  (let ((g (gensym)))
+    (and (not (fboundp g))
+	 (eval `(defmacro ,g () nil))
+	 (fboundp g)
+	 (values (eq (fmakunbound g) g)
+		 (fboundp g))))
+  t nil)
+
+(deftest fmakunbound.4
+  (let* ((g (gensym))
+	 (n `(setf ,g)))
+    (and (not (fboundp n))
+	 (eval `(defun ,n () nil))
+	 (fboundp n)
+	 (values (equal (fmakunbound n) n)
+		 (fboundp n))))
+  t nil)
+
+(deftest fmakunbound.5
+  (catch-type-error (fmakunbound 1))
+  type-error)
+
+(deftest fmakunbound.6
+  (catch-type-error (fmakunbound #\a))
+  type-error)
+
+(deftest fmakunbound.7
+  (catch-type-error (fmakunbound '(x)))
+  type-error)
+
diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp
index d0b63bee..1daa7411 100644
--- a/ansi-tests/gclload2.lsp
+++ b/ansi-tests/gclload2.lsp
@@ -9,6 +9,7 @@
 (load "constantly.lsp")
 (load "complement.lsp")
 (load "fboundp.lsp")
+(load "fmakunbound.lsp")
 (load "function.lsp")
 (load "functionp.lsp")
 (load "lambda-list-keywords.lsp")
-- 
GitLab