X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fclasses.lisp;h=7404c4961c4c4ac996c373bdd616e9aab19d6433;hb=12c6e1daab52d528fbbbf0d0e4a7e6f0fec548d9;hp=dd334296b6616e2ba80995ed585ce397adf40d25;hpb=32647bbefaa857c797ba241ea14ff3bfe2c0ac95;p=fiveam.git

diff --git a/src/classes.lisp b/src/classes.lisp
index dd33429..7404c49 100644
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -28,6 +28,10 @@
                            information will be collected when the
                            test is run.")))
 
+(defgeneric testable-object-p (object)
+  (:method ((object testable-object)) t)
+  (:method ((object t)) nil))
+
 (defmethod print-object ((test testable-object) stream)
   (print-unreadable-object (test stream :type t :identity t)
     (format stream "~S" (name test))))