X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=tests%2Fclos.pure.lisp;h=425a0b2c96892d63304ef6d81a6baa72cf74bf5c;hb=94b8f6d07445666017dfeac29bbbe0863a3c2de2;hp=5a20e88af3531ed606721a27f48171fb03cb3e6f;hpb=b49f85124decb6b5e32e7a3919c024528680a7ac;p=sbcl.git

diff --git a/tests/clos.pure.lisp b/tests/clos.pure.lisp
index 5a20e88..425a0b2 100644
--- a/tests/clos.pure.lisp
+++ b/tests/clos.pure.lisp
@@ -46,3 +46,6 @@
 (let (result)
   (sb-pcl::map-all-classes (lambda (c) (push c result)))
   (assert (equal result (remove-duplicates result))))
+
+;;; this one's user-observable
+(assert (typep #'(setf class-name) 'generic-function))