From 665ee28bdf5b711af4cc93ebc50a88ea25d1dfeb Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 10 Dec 2005 13:32:18 +0000
Subject: [PATCH] Add a test that (setf class-name) returns the correct values

---
 ansi-tests/class-name.lsp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/ansi-tests/class-name.lsp b/ansi-tests/class-name.lsp
index 8804f3e8..b590ac0a 100644
--- a/ansi-tests/class-name.lsp
+++ b/ansi-tests/class-name.lsp
@@ -26,6 +26,22 @@
   (typep* #'(setf class-name) 'standard-generic-function)
   t)
 
+(deftest setf-class-name.2
+  (let ((sym (gensym))
+	(newsym (gensym)))
+    (eval `(defclass ,sym () (a b c)))
+    (let ((class (find-class sym)))
+      (values
+       (eqlt (class-name class) sym)
+       (equalt
+	(multiple-value-list (setf (class-name (find-class sym)) newsym))
+	(list newsym))
+       (eqlt newsym (class-name class)))))
+  t t t)
+     
+
+;;; Error tests
+
 (deftest class-name.error.1
   (signals-error (class-name) program-error)
   t)
-- 
GitLab