0.9.7.10:

[sbcl.git] / tests / interface.impure.lisp

diff --git a/tests/interface.impure.lisp b/tests/interface.impure.lisp
index 22a9ace..406dfba 100644 (file)
--- a/tests/interface.impure.lisp
+++ b/tests/interface.impure.lisp
@@ -23,18 +23,10 @@
 (assert (string= (documentation #'(setf foo) 'function)
                  "(setf foo) documentation"))
 
-(defun (sb-pcl::class-predicate foo) (x)
-  "(class-predicate foo) documentation"
-  x)
-
 (assert (string= (documentation '(setf foo) 'function)
                  "(setf foo) documentation"))
 (assert (string= (documentation #'(setf foo) 'function)
                  "(setf foo) documentation"))
-(assert (string= (documentation '(sb-pcl::class-predicate foo) 'function)
-                 "(class-predicate foo) documentation"))
-(assert (string= (documentation #'(sb-pcl::class-predicate foo) 'function)
-                 "(class-predicate foo) documentation"))
 \f
 ;;; DISASSEMBLE shouldn't fail on closures or unpurified functions
 (defun disassemble-fun (x) x)