X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finterface.pure.lisp;h=c69e03e28b9b70d1672fd4958556842eabd52bd4;hb=a64589ed34ce0298fae164476af7de14c4652909;hp=76171e0ff5b2509562b3fc5f23756655c7dc6c8f;hpb=648b48d2406f6d6f2bf341bf8ed350aac85398d0;p=sbcl.git

diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp
index 76171e0..c69e03e 100644
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@ -44,6 +44,7 @@
 
 ;;; support for DESCRIBE tests
 (defstruct to-be-described a b)
+(defclass forward-describe-class (forward-describe-ref) (a))
 
 ;;; DESCRIBE should run without signalling an error.
 (describe (make-to-be-described))
@@ -69,7 +70,8 @@
 		 #'car #'make-to-be-described (lambda (x) (+ x 11))
 		 (constantly 'foo) #'(setf to-be-described-a)
 		 #'describe-object (find-class 'to-be-described)
-		 (find-class 'cons)))
+		 (find-class 'forward-describe-class)
+		 (find-class 'forward-describe-ref) (find-class 'cons)))
   (let ((s (with-output-to-string (s)
 	     (write-char #\x s)
 	     (describe i s))))
@@ -96,4 +98,3 @@
 
 ;;; DECLARE should not be a special operator
 (assert (not (special-operator-p 'declare)))
-